NAMA: SURTINI HANDAYANI
KELAS:X MM 2
NO       :28

ASSALAMUALAIKUM.WR.WB

LANGKAH-LANGKAH

 MEMBUAT KALKULATOR DENGAN MENGGUN AKAN DELPHI7

  

Pertama-tama langkah yang harus dilakukan untuk membuat program Kalkulator di Delphi 7 yaitu mendesain form dengan menggunakan tombol edit, button, dan panel, lalu ubah captionnya seperti gambar dibawah ini. Kemudian ubah juga nama formnya menjadi Kalkulator.

Lalu pada Edit1 ubah ReadOnly menjadi True agar Edit1 tidak berupa inputan dari keyboard.

Kemudian double click pada button 1, lalu ketik kodingan berikut ini :

edit1.Text:=edit1.text+'7';

Maksud dari kodingan diatas yaitu setiap mengklik button1, program akan menyimpan angka 1 tersebut berupa text dan akan ditampilkan pada Edit1 yang berfungsi sebagai layar kalkulator.

Begitu juga selanjutnya double click pada button 2 s.d. 0 dan . (titik) ketik kodingan seperti diatas, hanya diubah dalam kutipnya saja misalkan   edit1.Text:=edit1.text+'8'; untuk button 2 , dan seterusnya untuk button berikutnya.

Kemudian double click pada buttonlalu ketik kodingan berikut ini :

   edit1.Clear;

   end;

maksud dari kodingan tersebut untuk menghapus hasil input dari edit1. , jadi layar kalkulator akan kosong.

Kemudian tambahkan kodingan berikut ini dibagian var :

var
  Form1: TForm1;
 a,b,c:real;
 tambah,kurang,kali,bagi:integer;
implementation

Maksud kodingan diatas adalah untuk mendeklarasikan variabel a,b,c dengan tipe data real dan variabel tambah,kurang,kali,bagi dengan tipe data integer yang nantinya akan digunakan pada kodingan berikutnya.
Kemudian double click pada button +, lalu ketik kodingan berikut ini :

begin

a:=StrToFloat(edit1.Text);

tambah:=1;

Edit1.Text:='';

end; a.

  double klik pada button - ,lalu ketik kodingan berikut ini:

a:=StrToFloat(edit1.Text);

kurang:=1;

Edit1.Text:='';

end;

begin

a:=StrToFloat(edit1.Text);

kali:=1;

Edit1.Text:='';

end;

a:=StrToFloat(edit1.Text);

bagi:=1;

begin

Edit1.Text:='';

end;

Maksud kodingan diatas yaitu StrToFloat(Edit1.Text); berfungsi untuk mengubah tipe data string dari data Edit1 menjadi tipe data float (real), yang nantinya akan disimpan dalam variabel a.

Begitu juga selanjutnya double click pada button -,*,dan/ ketik kodingan seperti diatas, hanya diubah dibagian tambah:=1; menjadikurang:=1; pada button - , dan seterusnya untuk button berikutnya.

Kemudian double click pada button =, lalu ketik kodingan berikut ini :

  untuk tanda +

 begin

b:=StrToFloat(Edit1.Text);

if (tambah > 0)then

begin

 c:=a+b;

 Edit1.Text:=floattostr(c);

 a:=0;

 b:=0;

 tambah:=0;

untuk tanda -

end;

if (kurang > 0)then

begin

 c:=a-b;

 Edit1.Text:=floattostr(c);

 a:=0;

 b:=0;

 kurang:=0;

end;

untuk tanda *

if (kali > 0)then

begin

 c:=a*b;

 Edit1.Text:=floattostr(c);

 a:=0;

 b:=0;

 kali:=0;

end;

 

 untuk tanda /

if (bagi > 0)then

begin

 c:=a/b;

 Edit1.Text:=floattostr(c);

 a:=0;

 b:=0;

bagi:=0;

end;

end;

end.

TAMPILAN AKHIR UNTUK KALKULATOR DELPHI7

WAALAIKUMSALAM.WR.WB