cara membuat aplikasi perhitungan sederhana menggunakan delphi 7

akhirnya bisa posting juga ni,, cara membuat aplikasi perhitungan sederhana menggunakan delphi 7

membuat aplikasi perhitungan menggunakan delphi ini cukup singkat, untuk lebih jelasnya ikuti langka2 berikut:
1. pastikan Borland Delphi 7 sudah terintal di PC yang anda gunakan.
2. jalankan aplikasi delphi 7 dengan cara Klik Start >> All Programs >> Borland Delphi 7 >> Delphi 7
3. setelah muncul form baru pada halaman delphi 7, maka tambahkan componen standar pada form1, komponen yang ditambahkan yaitu :
- Edit1, Edit2 dan Edit3
- Label1, label2 dan label3
- Button1, Button2, Button3 dan Button4
   bisa dilihat disini

4. atur setiap komponen tersebut seperti gambar berikut ini

5. atur properties setiap komponen berdasarkan tabel berikut

    atur seperti gambar berikut :

6. setelah itu klik 2X pada tombol (+) lalu ketik syntax bercetak tebal berikut

procedure TForm1.btntambahClick(Sender: TObject);
var nil1,nil2,hasil:Integer;
begin
nil1:=StrToInt(edtnilai1.Text);
nil2:=StrToInt(edtnilai2.Text);

hasil:=nil1+nil2;
edtnilai3.Text:=IntToStr(hasil);
end;

7. klik 2X pada tombol (X) lalu ketik syntaks bercetak tebal berikut

procedure TForm1.btnkaliClick(Sender: TObject);
var nil1,nil2,hasil:Integer;
begin
nil1:=StrToInt(edtnilai1.Text);
nil2:=StrToInt(edtnilai2.Text);

hasil:=nil1*nil2;
edtnilai3.Text:=IntToStr(hasil);
end;

8. Klik 2X pada tombol (-) lalu ketik syntaks bercetak tebal berikut

procedure TForm1.btnkurangClick(Sender: TObject);
var nil1,nil2,hasil:Integer;
begin
nil1:=StrToInt(edtnilai1.Text);
nil2:=StrToInt(edtnilai2.Text);

hasil:=nil1-nil2;
edtnilai3.Text:=IntToStr(hasil);
end;

9. klik 2x pada tombol ( / ) lalu ketik syntaks bercetak tebal berikut

procedure TForm1.btnbagiClick(Sender: TObject);
var nil1, nil2, hasil : Real;
begin
nil1:=StrToFloat(edtnilai1.Text);
nil2:=StrToFloat(edtnilai2.Text);

hasil:=nil1/nil2;

edtnilai3.Text:=FloatToStr(hasil);
end;

end.

10. selanjutnya adalah menjalankan/run program dengan cara tekan tombol F9 di Keyboard

  selamat mencoba....