Cara Membuat Program Kalkulator Sederhana dengan Delphi 7

Saat ini saya akan memberikan cara membuat aplikasi kalkulator sederhana menggunakan pemprograman delphi 7. Untuk Para Master Delphi Harap Skip Tutorial ini yaa,, ^_^ ini dikhususkan bagi rekan-rekan yang baru memulai belajar pemprograman delphi.. ^_^

Adapun langkah - langkahnya adalah sebagai berikut :

Siapkan beberapa label dan button

Kurang lebih tampilannya sebagai berikut

  

 Nahh sekarang bagian intinya yakni coding dibalik layar,, hehehe
yang pertama kita buat 3 variabel yakni sebagai berikut :
b1:integer;
b2:integer;
jml:integer;

setelah itu kita buat coding yang lainya,

procedure TForm1.Button1Click(Sender: TObject);
//kode dibawah ini merupakan proses untuk penambahan
begin
  b1:=StrToInt(edtNilai1.Text);
  b2:=StrToInt(edtNilai2.Text);
  jml:=b1+b2; //tambah
  edtJmlh.text:=FloatToStr(jml);
end;

procedure TForm1.Button2Click(Sender: TObject);
//kode dibawah ini merupakan proses untuk pengurangan
begin
    b1:=StrToInt(edtNilai1.Text);
    b2:=StrToInt(edtNilai2.Text);
    jml:=b1-b2; //pengurangan
    edtJmlh.text:=FloatToStr(jml);
end;

procedure TForm1.Button3Click(Sender: TObject);
//kode dibawah ini merupakan proses untuk pembagian
begin
    b1:=StrToInt(edtNilai1.Text);
    b2:=StrToInt(edtNilai2.Text);
    jml:=b1 div b2; //pembagian
    edtJmlh.text:=FloatToStr(jml);
end;

procedure TForm1.Button4Click(Sender: TObject);
//kode dibawah ini merupakan proses untuk perkalian
begin
    b1:=StrToInt(edtNilai1.Text);
    b2:=StrToInt(edtNilai2.Text);
    jml:=b1 * b2; //perkalian
    edtJmlh.text:=FloatToStr(jml);
end;

procedure TForm1.Button5Click(Sender: TObject);
//kode dibawah ini merupakan proses untuk keluar
begin
   close;
end;

kurang lebih hasilnya sebagai berikut

sekian, semoga bermanfaat bagi rekan-rekan ^_^