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

TUTORIAL MEMBUAT KALKULATOR MENGUNAKAN DELPHI7

Nama : Surtini Handayani
Kelas : X MM 2
No    : 28

LANGKAH-LANGKAH

 MEMBUAT KALKULATOR SEDERHANA DENGAN DELPHI7

1.Buka DELPHI7

2.Buat 4 button (button 1,button 2,button 3,dan button 4) dengan mengeklik tanda pada Delphi7

3.Buat 3 Edit (edit 1,edit 2,edit 3) dengan mengeklik tanda AB pada Delphi7

4.Buat tulisa hasil menggunakan

5.Atur tata letak antara button dan edit agar terlihat rapi

6.Ubah caption Button1= +

                        Button2= -

                        Button3= *

                        Button4= /

                                     

7.Doubleklik Button dan tulis pemrogramana seperti di bawah ini:

    1. Untuk penjumlahan

  2. Untuk pengurangan

 3.Untuk pembagian

  4. Untuk perkalian

   TAMPILAN AKHIR KALKULATOR DENGAN MENGGUNAKAN DELPHI7

                           

SELESAI

            

   

PEMOGRAMAN DELPHI 7

SMK N 6 PURWOREJO

           LANGKAH-LANGKAH MENGOPRASIKAN DELPHI 7

-CARA MEMBUAT WARNA PADA FORM DELPHI-

1.Buka aplikasi DELPHI 7

2.Setelah itu klik ikon 

3.Pindahkan Button 1 pada pojok kiri agar rapi

4.Ganti caption Button 1 menjadi warna merah

 5.klik 2X pada button MERAH

 6.Tulis "form1.color:=clred; lalu

7.Lalu tekan F9 pada keyboard untuk menjalankan program

 8.klil 2X pada tulisan MERAH  dan lihat hasilnya.

 9.jika ingin membuat lagi ganti kata form1.color:=cl.....; dan lankah selanjutnya seperti di atas.

        contoh:merah   :red
                    kuning  :yellow
                    biru       :blue

10.klik Run pada bagian atas dan pilih> Reset program<

  

             

  -CARA MEMBUAT WARNA PADA EDIT-

1.Klik OK pada bagian atas dan klik 1X pada layar komputer dan menghasilkan button 4

2.Kemudian klik AB seperti gambar dibawah ini

3.Klik pada layar dan akan muncul seperti dibawah ini:

4.klil 2X pada button 4 dan dan ketik edit1.color:=clblack;

5.tekan F9 pada keyboard untuk menjalankan program

6.klik 2X pada kata button4 dan lihat hasilnya kurang lebih hasinya akan seperti gambar dibawah ini:

-CARA MEMBUAT WARNA PADA PANEL-

1.klik OK pada  bagian atas dan klik 1X pada layar komputer dan menghasiklan BUTTON 5

2.kemudian klik seperti gambar di bawah ini:

 3.klik pada layar dan akan keluar gambar seperti di bawah ini:

4.klik 2X pada button 5 dan ketik panel1.color:=clyellow;

5.klik F9 untuk menjalankan program

-CARA MENGEDIT NAMA PADA DELPHI7-

 1.klik ikon OK pada atas layar seperti langkah 1 di atas

 2.selanjutnya edit sebelah kiri caption seperti gambar di bawah ini:

3.klik ikon edit seperti gambar di bawah ini:

 4.klik tambahkan button baru di samping button lama

 5.selanjutnya klik 2X pada button lama

 6.lalu klik F9 untuk menjalankan program.