Program Kalkulator Sederhana Delphi 7.0

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 :

• 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 #