Membuat kalkulator sederhana lewat delphi

10/10/2011

Nah sekarang mari kita buat sebuah aplikasi Kalkulator sederhana,, yo men lets start it,,, buka borland Delphimu men....
oke sekarang bentuk Formnya seperti ini



ok ,sekarang waktunya kita coding
pertama tama buat variabelnya dulu

procedure TForm1.Button1Click(Sender: TObject);
var
ed3 : real ;
begin
ed3 :=strtoint(edit1.text)+strtoint(edit2.Text);
edit3.Text:=floattostr(ed3);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
ed3 : real ;
begin
ed3 :=strtoint(edit1.text)-strtoint(edit2.Text);
edit3.Text:=floattostr(ed3);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
ed3 : real ;
begin
ed3 :=strtoint(edit1.text)*strtoint(edit2.Text);
edit3.Text:=floattostr(ed3);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
ed3 : real ;
begin
ed3 :=strtoint(edit1.text)/strtoint(edit2.Text);
edit3.Text:=floattostr(ed3);
end;

dan kemudian pada buttom2 yang bercaption clear silahkan isi sintax

procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
edit3.Text:='';
end;

end.

# perintah strtoint digunakan untuk mengubah nilai string menjadi integer agar bisa di matematiskan
#floattostr merupakan fungsi untuk mengubah hasil dari integer menjadi sting yang akan di tampilkan
# Variabel berfungsi untuk mendeklarasikan suatu string yang berisikan nilai tertentu

kurang lebihnya akan seperti ini



silahkan kalian run untuk melihat hasilnya