Kasb ta’limi fakultеti

2.11.-rasm. Ro’yhat tahrirlovchi oyna.

2.6.-jadvalda ilova formasining komponentlari keltirilgan, 2.7-jadvalda esa ushbu komponentlarning hususiyat qiymatlari berilgan.

2.6.-jadval Formaning komponentlari.

Komponent	Vazifasi
ListBox1	Mamlakatni tanlash uchun
Edit1	Og’irlikni funtda kiritish uchun
Label1, Label2, Label3	Kiritish maydonlarining fazifasini ko’rsatuvchi tushuntirish matnlarni chiqarish uchun
Label4	Natijani chiqarish uchun
Button1	Funtda kilogrammga o’tkazuvchi procedurani ishlatish uchun

2.7.-jadval

Hususiyat	Qiymat
Form1 .Caption	Case dan foydalanishga misol
Edit1. Text
Label1 . Caption	Mamlakatni tanlang
Label2 .Caption	Mamlakat
Label3 . Caption	Funt
Button1 . Caption	Hisoblash

Hisoblash buyruq tugmasi bosilganda hisoblash protsedurasi funtdagi og’irlikni kilogrammga o’tkazish koeffisientiga ko’paytiradi. Koeffisient qiymati ro’yhatdan tanlangan element raqami bo’yicha aniqlanadi.

2.3-listingda dastur matni keltirilgan.

2.3.-listing

unit Unit1; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Button1: TButton; Edit1: TEdit;

ListBox1: TListBox; //Ro'yhat procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

{

ListBox1.items.add('Rossiya'); ListBox1.items.add('Angliya'); ListBox1.iterns.add('Avstraliya'); ListBox1.items.add('Germaniya'); ListBox1.iterns.add ('Daniya'); ListBox1.iterns.add ('Italiya'); ListBox1.iterns.add ('Gollandiya');

}

ListBox1.itemindex:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

funt:real; // funtdagi og'irlik kg:real; // kg dagi og'irlik

k:real; // qayta hisoblash koeffisienti

begin

case ListBox1.Itemindex of

0: k:=0.4095; // Rossiya

1: k:=0.453592; // Angliya 2: k:=0.56001; // Avstraliya

3..4,6:k:=0.5; // Germaniya, Daniya, Gollandiya 5: k:=0.31762; // Italiya

end; funt:=StrToFloat(Edit1.Text); kg:=k*funt; label4.caption:=Edit1.Text

+ ' f. - bu '

+ FloatToStrF(kg,ffFixed, 6,3) + 'kg.';

end; end.

Forma yaratilayotgan vaqtda sodir bo’ladigan FormCreate hodisasini qayta ishlash protsedurasiga e’tibor bering. Bu protsedurani dasturdagi o’zgaruvchilarni e’lon qilish uchun ishlatish mumkin. Bizning misolda ro’yhatga element qo’shish uchun ishlatilgan, ammo izoxga aylantirib qoyilgan. Chunki biz komponentaning Items hususiyatidanfoydalanib ro’yhatni kiritib qo’yganmiz.

Navbatdagi misolda uchta o’zgaruvchi, ya’ni day(kun), month (oy) va year (yil) bilan ifodalangan bugungi kunning sanasi bo’yicha keyingi kunning sanasini aniqlovchi dasturni (2.5-listing) ko’rib chiqamiz. Dasturning oyna ko’rinishi 2.12- rasm ko’rsatilgan.