Читайте также:
|
Тапсырма. Калькулятор бағдарламасын құру.
Орындалуы. Пуск>Все программы>Borland Delphi 7 ашып жаңа формаға
BitBtn(1), Button(6), Label(3) компененттерін компоненттерін алып, форманы келесі түрге келтіреміз (1-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (кесте 1).
| Компоненттер | Object Inspector | Қасиеті | Сипаттама |
| Form1 | Properties | Caption | Калькулятор |
| BitBtn1 | Properties | Caption | Шығу |
| Kind | &Close | ||
| Label1 | Properties | Caption | Кез келген екі сан |
| Label2 | Properties | Caption | Жауабы: |
| Label3 | Properties | Caption | ' ' |
| Button1 | Properties | Caption | '+' |
| Button2 | Properties | Caption | '-' |
| Button3 | Properties | Caption | '*' |
| Button4 | Properties | Caption | '/' |
| Button5 | Properties | Caption | 'c' |
1 – сурет. Форма түр
Button1 компонентіне келесі кодты жазамыз:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label3.Caption:=floattostr(strtofloat(edit1.text)+strtoint(edit2.text));
end;
Button2 компонентіне келесі кодты жазамыз:
procedure TForm1.Button2Click(Sender: TObject);
begin
label3.caption:=floattostr(strtofloat(edit1.Text)-strtoint(edit2.Text));
end;
Button3 компонентіне келесі кодты жазамыз:
procedure TForm1.Button3Click(Sender: TObject);
begin
label3.caption:=floattostr(strtofloat(edit1.text)*strtoint(edit2.text));
end;
Button4 компонентіне келесі кодты жазамыз:
procedure TForm1.Button4Click(Sender: TObject);
begin
if strtoint(edit2.text)<>0 then
label3.Caption:=floattostr(strtofloat(edit1.Text)/strtoint(edit2.text))
else label3.caption:='Нөлге бөлуге болмайды!';
end;
Button5 компонентіне келесі кодты жазамыз:
procedure TForm1.Button5Click(Sender: TObject);
begin
label3.caption:=' ';
edit1.text:=' ';
edit2.text:=' ';
end;
end.
2 – сурет. Нәтиже
Дата добавления: 2015-11-16; просмотров: 96 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| DELPHI ұғымы | | | Тәжірибелік жұмыс №3 |