Тәжірибелік жұмыс №3
Тапсырма: Калькулятор бағдарламасын құру.
Орындалуы: Пуск > Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(18), Edit(1) компоненттерін алып, форманы келесі түрге келтіреміз (5-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (Кесте 3).
Компонент |
Терезе бөлігінен Object Inspector |
Қасиеті |
Сипаттама |
Button1 |
Properties |
Caption |
'1' |
Button2 |
Properties |
Caption |
'2' |
Button3 |
Properties |
Caption |
'3' |
Button4 |
Properties |
Caption |
'4' |
Button5 |
Properties |
Caption |
'5' |
Button6 |
Properties |
Caption |
'6' |
Button7 |
Properties |
Caption |
'7' |
Button8 |
Properties |
Caption |
'8' |
Button9 |
Properties |
Caption |
'9' |
Button10 |
Properties |
Caption |
'0' |
Button11 |
Properties |
Caption |
',' |
Button12 |
Properties |
Caption |
'+\-' |
Button13 |
Properties |
Caption |
'+' |
Button14 |
Properties |
Caption |
'-' |
Button15 |
Properties |
Caption |
'*' |
Button16 |
Properties |
Caption |
'/' |
Button17 |
Properties |
Caption |
'=' |
Button18 |
Properties |
Caption |
'c'
|
5-сурет. Форма түрі.
var a,b,c,d: extended; znak: char;
Form1 компонентінің OnCreate қасиетіне келесі кодты жазамыз:
procedure TForm1.FormCreate(Sender: TObject);
begin
a:=0;
b:=0;
c:=0;
d:=0;
end;
Button1 компонентіне келесі кодты жазамыз:
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'1';
end;
Button2 компонентіне келесі кодты жазамыз:
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'2';
end;
Button3 компонентіне келесі кодты жазамыз:
procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'3';
end;
Button4 компонентіне келесі кодты жазамыз:
procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'4';
end;
Button5 компонентіне келесі кодты жазамыз:
procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'5';
end;
Button6 компонентіне келесі кодты жазамыз:
procedure TForm1.Button6Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'6';
end;
Button7 компонентіне келесі кодты жазамыз:
procedure TForm1.Button7Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'7';
end;
Button8 компонентіне келесі кодты жазамыз:
procedure TForm1.Button8Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'8';
end;
Button9 компонентіне келесі кодты жазамыз:
procedure TForm1.Button9Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'9';
end;
Button10 компонентіне келесі кодты жазамыз:
procedure TForm1.Button10Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'0';
end;
Button11 компонентіне келесі кодты жазамыз:
procedure TForm1.Button11Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+',';
end;
Button12 компонентіне келесі кодты жазамыз:
procedure TForm1.Button12Click(Sender: TObject);
begin
c:=strtofloat(edit1.text);
c:=c*(-1);
edit1.text:=floattostr(c);
end;
Button13 компонентіне келесі кодты жазамыз:
procedure TForm1.Button13Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
edit1.text:='';
znak:='+';
end;
Button14 компонентіне келесі кодты жазамыз:
procedure TForm1.Button14Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
edit1.text:='';
znak:='-';
end;
Button15 компонентіне келесі кодты жазамыз:
procedure TForm1.Button15Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
edit1.text:='';
znak:='*';
end;
Button16 компонентіне келесі кодты жазамыз:
procedure TForm1.Button16Click(Sender: TObject);
begin
//if strtofloat(edit1.text)<> 0 then
//else edit1.text:='BOlINBEIDI';
a:=strtofloat(edit1.text);
edit1.text:='';
znak:='/';
end;
Button17 компонентіне келесі кодты жазамыз:
procedure TForm1.Button17Click(Sender: TObject);
begin
b:=strtofloat(edit1.text);
case znak of
'+':d:=a+b;
'-':d:=a-b;
'*':d:=a*b;
'/':d:=a/b;
end;
edit1.text:=floattostr(d);
end;
Button18 компонентіне келесі кодты жазамыз:
procedure TForm1.Button18Click(Sender: TObject);
begin
a:=0;
b:=0;
c:=0;
d:=0;
edit1.text:='';
end.
6-сурет. Нәтиже