Cara Membuat Program Kalkulator Sederhana dengan Delphi 7

Pada kesempatan kali ini ciko mau kasih tau cara bikin kalkulator sederhana menggunakan bahasa pemrograman Delphi 7, ok langsung aja gan

Pertama siapkan


6 buah button

(

Keterangan

Button1 ganti captionnya dengan "ULANG"

Button2 ganti captionnya dengan "KELUAR"

Button3 ganti captionnya dengan "+"

Button4 ganti captionnya dengan "-"

Button5 ganti captionnya dengan "/"

Button6 ganti captionnya dengan "x"  

)

3 buah data edit

(

Keterangan

 Edit1 ganti namenya dengan Eb1,

 Edit2 ganti namenya dengan Eb2,

 Edit3 ganti namenya dengan Ejml.

)
4 buah label

(

Keterangan:

Label 1 ganti captionnya dengan "PROGRAM KALKULATOR SEDERHANA",

Label 1 ganti captionnya dengan "BILANGAN KE I",

Label 1 ganti captionnya dengan "BILANGAN KE II",

Label 1 ganti captionnya dengan "TOTAL".

)

Setelah itu atur tampilannya seperti pada gambar di bawah ini
,

Coding / Listting Program.

button “ + “,


b1:integer;
b2:integer;
jml:integer;
begin
b1:=StrToInt(Eb1.Text);
b2:=StrToInt(Eb2.Text);
jml:=b1+b2; ///operasi penambahan
Ejml.text:=FloatToStr(jml);
End;


button “ -“


b1:integer;
b2:integer;
jml:integer;
begin
b1:=StrToInt(Eb1.Text);
b2:=StrToInt(Eb2.Text);
jml:=b1-b2; //operasi pengurangan
Ejml.text:=FloatToStr(jml);
end;

button “ / “,


b1:integer;
b2:integer;
jml:integer;
begin
b1:=StrToInt(Eb1.Text);
b2:=StrToInt(Eb2.Text);
jml:=b1 div b2;
Ejml.text:=FloatToStr(jml);
end;

button “ / “,


b1:integer;
b2:integer;
jml:integer;
begin
b1:=StrToInt(Eb1.Text);
b2:=StrToInt(Eb2.Text);
jml:=b1*b2;
Ejml.text:=FloatToStr(jml);
end;

button “ulang”
begin
Eb1.Text:='0';
Eb2.Text:='0';
Ejml.Text:='0';
end;


Tombol KELUAR

      close;

setelah itu klik tombol run/pencet tombol f9 pada keyboard anda.

Bagaimana mudah bukan? membuat aplikasi/program kalkulator sederhana,
Sekian dulu tutorial dari ciko,semoga bermanfaat.