Mirsaid Aripov, Nurillo Otaxanov

15.4-listing. Dala-hovliga borib-kelish ilovasi yordamida komponentani testdan o`tkazish

unit fazenda_;

interface

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

type

TForm1  class(TForm)

NkEdit1: TNkEdit;  masofa

NkEdit2: TNkEdit;  benzin bahosi

NkEdit3: TNkEdit;  100 km ga benzin sarfi

CheckBox1: TCheckBox;  True - borib kelish

Button1: TButton;  hisoblash tugmasi

Label4: TLabel;  Hisoblash natijasini chiqarish uchun

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

procedure NkEdit1KeyPress(Sender: TObject; var Key: Char);

procedure NkEdit2KeyPress(Sender: TObject; var Key: Char);

procedure NkEdit3KeyPress(Sender: TObject; var Key: Char);

private { Private declarations }

Public { Public declarations } end;

var

Form1: TForm1;

implementation

{$R *.dfm}

 masofa maydonida klavisha bosish

procedure TForm1.NkEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if Key  Char(VK_RETURN)

then NkEdit2.SetFocus;  narx maydoniga o`tkazish

end;

 narx maydonida klavisha bosish

procedure TForm1.NkEdit2KeyPress(Sender: TObject; var Key: Char);

begin

if Key  Char(VK_RETURN)

then NkEdit3.SetFocus;

end;

 iste`mol masofa maydonida klavisha bosish

procedure TForm1.NkEdit3KeyPress(Sender: TObject; var Key: Char);

begin

if Key  Char(VK_RETURN)

then Button1.SetFocus;

end;

 Hisoblash tugmasini bosish

procedure TForm1.Button1Click(Sender: TObject);

var

rast : real;  masofa

cena : real;  narx

potr : real;  100 km ga benzin iste`moli

summ : real;  summasi

mes: string;

begin

rast : StrToFloat(NkEdit1.Text);

cena : StrToFloat(NkEdit2.Text);

potr : StrToFloat(NkEdit3.Text);

summ : rast  100 * potr * cena;

if CheckBox1.Checked then

summ : summ * 2;

mes : 'dala-Hovliga borish';

if CheckBox1.Checked then mes : mes  ' va qaytib kelish';

mes:mesFloatToStrF(summ,ffGeneral,4,2)  ' sumga tushadi.';

Label4.Caption : mes;

end;

end.