Bagi para pemula delphi ni ada sedikit tambahan buat belajar kalian, walau programnya masih agak cupu, tapi saya harap bisa di pakai batu lonjatan untuk membuat program yang jauh lebih baik lagi !!
langsung aja ya kita mulai :
1) Buatlah komponen di atas dengan sedemikian rupa, yang terdiri dari :
2) Pada combobox lakukan ini :
langsung aja ya kita mulai :
1) Buatlah komponen di atas dengan sedemikian rupa, yang terdiri dari :
- label
- textbox1
- textbox2
- combobox
- textbox3
- button1
- button2
- button3 (jangan ubah caption dan name di semua komponennya
2) Pada combobox lakukan ini :
3) Nah sesudah itu,
langsung aja deh kita liat listing programnya, ini dia :
procedure
TForm1.Button1Click(Sender: TObject);
var
AResult : double;
begin
AResult := 0;
if ComboBox1.Text ='+'
then
AResult :=
StrToInt(Edit1.Text)+StrToInt(Edit2.Text)
else if ComboBox1.Text
='-' then
AResult :=
StrToInt(Edit1.Text)-StrToInt(Edit2.Text)
else if ComboBox1.Text
='/' then
begin
if StrToInt(Edit2.Text)
= 0 then
AResult := 0
else
AResult :=
StrToInt(Edit1.Text)/StrToInt(Edit2.Text);
end
else if
ComboBox1.Text='*' then
AResult := StrToInt(Edit1.Text)*StrToInt(Edit2.Text);
Edit3.Text :=
FloatToStr(AResult);
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
ComboBox1.Text:='';
end;
procedure
TForm1.Button3Click(Sender: TObject);
begin
close
end;
end.
* CACATAN BUAT KALIAN
-BUAT LISTING PROGRAM
DI ATAS DI BAWAH SYNTAK :
implementation
{$R *.dfm}
4) Ini hasil Programnya :
okay well done, program kalian sudah jadi, dan siap
di eksekusi, tentunya program ini masih cukup cupu, dan saya harap ini menjadi
pembelajaran juga buat kita.
# GOOD LUCK #