Kasb ta’limi fakultеti

2.4. So'zlashuv qiymati dasturining muloqot oynasi.

Eslatma

Bu yerda va bundan keyin formada ishlatiladigan komponentlarning faqat o’zgartiriladigan hususiyatlari beriladi. Qolgan hususiyatlar o’zgartirishsiz qoldirilishi mumkin yoki ixtiyoriy tarzda o’zgartirilishi mumkin.

2.3-jadval

Komponent	Vazifasi
Edit1	So’zlashuv vaqtini (minutda) kiritish maydoni
Edit2	Hafta kunining nomerini kiritish maydoni
Label1, Label2	Kiritish maydonlarining vazifasi to’g’risida ma’lumot chiqarish maydonlari.
Label3	So’zlashuv qiymatini hisoblash natijasini chiqarish maydoni.
Button1	So’zashuv qiymatini hisoblash protsedurasini ishga tushirish tugmasi.

Eslatma

Forma komponentlarinining hususiyatlarini o’zida mujassamlashtirgan jadvalda avval komponent nomi so’ngra nuqtadan keyin hususiyatnomi berilgan.

2.4.-jadval.

	Hususiyat		Qiymati
Form1.Caption		So’zlashuv qiymat
Edit1.Text
Edit2.Text
Label1.Caption		So'zlashuv vaqti (min)
Label2.Caption		Hafta kunining raqami
Label3.Caption
Button1. Caption		Hisoblash

Dastur Hisoblash buyruq tugmasini bosish natijasida hisoblashni amalga oshiradi. Bunda OnClick hodisasi yuz beradi va TForm1.Button1Click protsedurasida qayta ishlanadi.

2.1.-Listing Telefonda so’zlashuv qiymatini hisoblash. unit Tel_U;

interface uses

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

type

TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end; var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

const

PAY =150; // 1 minut so'zlashuv qiymati 150 so'm

DISCOUNT = 0.2; // 20 foiz chegirma

var

Time:Real; // So'zlashuv vaqti Day:integer; // hafta kuni Summa:real; // so'zlashuv qiymati begin

// boshlang'ich ma'lumotlarni olish Time:=StrToFloat(Edit1.Text) ; Day:=StrToInt(Edit2.Text);

// Hisoblash

Summa:= PAY*Time;

// Agar shanba yoki yakshanba bo'lsa chegirma olish

if (Day = 6) OR (Day = 7)

then Summa:=Summa*(1 - DISCOUNT);

// Hisoblash natijasini chiqarish label3.caption:='To`lashga '

+ FloatToStr(Summa) + ' so`m.';

end; end.

Ko’pincha dasturda ikkitadan ortiq variantdan birini tanlashni tashkil qilish kerak. Masalan, ma’lumki, har bir odamning optimal vazni mavjud va quyidagi formula bilan hisoblanadi:

Bo’yi(sm)- 100.

Haqiqiy vazn optimal vazndan farq qilishi mumkin: kam, teng yoki ko’p bo’lishi mumkin.

2.5 rasmda muloqot oynasi keltirilgan navbatdagi dastur, vazn va bo’yni so’raydi, optimal qiymatni hisoblaydi, uni haqiqiy vazn bilan solishtiradi va mos xabarni chiqaradi.