Membuat Kalkulator Sederhana dengan Delphi

Untuk membuat kalkulator sederhana dengan delphi pertama harus buat form seperti dibawah ini:


Dalam form diatas terdapat tiga komponen edit (edit1, edit2, edit3) dan 4 komponen button (button1, button2). edit1 digunakan untuk menginputkan angka ke-1, edit2 untuk menginputkan angka ke-2. sedangkan untuk edit3 adalah untuk menperlihatkan hasilnya.
hal pertama yang harus dilakukan adalah mengatur properties pada form1 agar terlihat lebih menarik. Masukkan syntax berikut ini pada procedure TForm1.FormCreate(Sender: TObject);


begin
Form1.Caption:='kalkulator sederhana';  ==> mengganti nama form
Form1.Color:=clBlue;   ==> memberi warna form
Button1.Caption:='Tambah';  ==>mengganti nama button
Button2.Caption:='Kurang';   ==>mengganti nama button
Button3.Caption:='Bagi';        ==>mengganti nama button
Button4.Caption:='Kali';        ==>mengganti nama button
Edit1.Clear;    ==>mengilangkan tulisan edit saat pertama kali form dimunculkan
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
end;

Langkah selanjutnya adalah memberikan syntax pada komponen button seperti dibawah ini :
Pada Button1 klik 2x sehingga masuk ke dalam code editor procedure TForm1.Button1Click(Sender: TObject); lalu masukkan kode dibawah ini :


var x,y,z : integer;
begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
z:=x-y;
Edit3.Text:=IntToStr(z);
end;

Pada Button2 klik 2x sehingga masuk ke dalam code editor procedure TForm1.Button2Click(Sender: TObject); lalu masukkan kode dibawah ini :

var x,y,z : integer;

begin

x:=StrToInt(Edit1.Text);

y:=StrToInt(Edit2.Text);

z:=x+y;

Edit3.Text:=IntToStr(z);

end;

Pada Button3 klik 2x sehingga masuk ke dalam code editor procedure TForm1.Button3Click(Sender: TObject); lalu masukkan kode dibawah ini :

var x,y,z : integer;

begin

x:=StrToInt(Edit1.Text);

y:=StrToInt(Edit2.Text);

z:=x*y;

Edit3.Text:=IntToStr(z);

end;

Pada Button4 klik 2x sehingga masuk ke dalam code editor procedure TForm1.Button4Click(Sender: TObject); lalu masukkan kode dibawah ini :

var x,y,z : float;

begin

x:=StrToFloat(Edit1.Text);

y:=StrToFloat(Edit2.Text);

z:=x/y;

Edit3.Text:=FloatToStr(z);

end;

end.

Kemudian run dengan menekan F9. Jika tidak ada kesalahan maka kalkulator sederhana dengan delphi sudah  bisa digunakan.

ket : StrToInt adalah convert tipe data dari string ke integer begitu pula sebaliknya.

StrToFloat adalah convert tipe data dari string ke float begitu pula sebaliknya.

khusus untuk proses pembagian tipe data menggunakan float, karena pada pembagian harus menggunakan tipe data untuk bilangan desimal.

 Selamat mencoba!