KALKULATOR SEDERHANA DENGAN DELPHI

Assalamualaikum wr.wb.

Setalah pada postingan sebelumnya saya telah membuat tutorial tentang membuat kalkulator sederhana dengan VB, namun sekarang membuat kalkulator sederhananya dengan Delphi. Tidak perlu panjang lebar tinggi kali,, udah kaya mau menghitung luas balok ajah...hehehe...

Langka-langkanya adalah sebagi berikut :

1.Buatlah sebuah Form, kemudian 4 buah command button dan 3 buah edit text.

2.Kemudian ubah nama masinh masing command button menjadi: tambah, kurang, kali, bagi...

 

 3.Kemudian double klik pada tombol tambah setelah itu copy kan codingan berikut: 

   

procedure TForm1.Button1Click(Sender: TObject);
var A,B,C:INTEGER;
begin
A:=STRTOINT(EDIT1.TEXT);
B:=STRTOINT(EDIT2.TEXT);
C:=A+B;
EDIT3.Text:=INTTOSTR(C)
end;

 4.Kemudian double klik pada tombol kurang setelah itu copy kan codingan berikut: 

procedure TForm1.Button1Click(Sender: TObject);
var A,B,C:INTEGER;
begin
A:=STRTOINT(EDIT1.TEXT);
B:=STRTOINT(EDIT2.TEXT);
C:=A-B;
EDIT3.Text:=INTTOSTR(C)
end;

5.Kemudian double klik pada tombol kali setelah itu copy kan codingan berikut:

procedure TForm1.Button1Click(Sender: TObject);
var A,B,C:INTEGER;
begin
A:=STRTOINT(EDIT1.TEXT);
B:=STRTOINT(EDIT2.TEXT);
C:=A*B;
EDIT3.Text:=INTTOSTR(C)
end;
 

6.Kemudian double klik pada tombol bagi setelah itu copy kan codingan berikut:

procedure TForm1.Button1Click(Sender: TObject);
var A,B,C:INTEGER;
begin
A:=STRTOINT(EDIT1.TEXT);
B:=STRTOINT(EDIT2.TEXT);
C:=A/B;
EDIT3.Text:=INTTOSTR(C)
end; 

Selesai dah, gymana menurut sobat semua mudahkan...hehehe