Program Kalkulator sederhana menggunakan Delphi 7

Program-program dasar untuk melatih penggunaan operator penghitungan untuk program Borland Delphi 7. Program delphi ini adalah sebuah kalkulator sederhana yang berisi penjumlahan, pengurangan, perkalian, dan pembagian untuk dua bilangan.

Komponen-komponen yang dibutuhkan untuk pembuatan program :

1. 2 buah Tlabel
2. 3 buah Tedit
3. 4 buah Tbutton

Komponen dapat disusun seperti gambar berikut :

Untuk script hanya di masukkan ke dalam Tbutton :

1. Klik dua kali button + dengan nama default button1. Dan akan muncul jendela baru dan berikan command/script seperti berikut. 

Dan berikut source code untuk button1 untuk penjumlahan :

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z : real;
begin
  x:=StrToFloat(Edit1.Text);
  y:=StrToFloat(Edit2.Text);
  z:=x+y;
  Edit3.Text:=FloatToStr(z);
end;

Keterangan variabel x,y,z di deklarasikan sebagai variabel non-global. Dan digolongkan ke dalam type data real.
2. Klik dua kali button - dengan nama default button2. Dan akan muncul jendela baru dan berikan command/script seperti berikut. Dan berikut source code untuk button2 untuk pengurangan :

   
   procedure TForm1.Button2Click(Sender: TObject);
   var x,y,z : real;
   begin
     x:=StrToFloat(Edit1.Text);
     y:=StrToFloat(Edit2.Text);
     z:=x-y;
     Edit3.Text:=FloatToStr(z);
   end;
   

3. Klik dua kali button * dengan nama default button3. Dan akan muncul jendela baru dan berikan command/script seperti berikut. Dan berikut source code untuk button3 untuk perkalian :

   
   procedure TForm1.Button3Click(Sender: TObject);
   var x,y,z : real;
   begin
     x:=StrToFloat(Edit1.Text);
     y:=StrToFloat(Edit2.Text);
     z:=x*y;
     Edit3.Text:=FloatToStr(z);
   end;
   

4. Klik dua kali button / dengan nama default button4. Dan akan muncul jendela baru dan berikan command/script seperti berikut. Dan berikut source code untuk button4 untuk pembagian :

   
   procedure TForm1.Button4Click(Sender: TObject);
   var x,y,z : real;
   begin
     x:=StrToFloat(Edit1.Text);
     y:=StrToFloat(Edit2.Text);
     z:=x / y;
     Edit3.Text:=FloatToStr(z);
   end;
   

Setelah itu klik toolbar->Run->Run(F9) atau pencet shortcut F9 untuk melakukan proses running program.

Artikel Terkait:

Pemrograman

• Menggerakkan Komponen & Membuat Animasi menggunakan komponen tTimer
• Cara Membuat Aplikasi Chatting Menggunakan Delphi 7
• String dalam Bahasa C
• Array dalam Bahasa C
• Fungsi dalam Bahasa C
• Perulangan dalam Bahasa C
• Percabangan dalam Bahasa C
• Fungsi-fungsi Dasar Dalam Bahasa C
• Tipe Data Primitif dalam Bahasa C
• Sejarah Perkembangan Bahasa Pemrograman C
• Perulangan Dengan Repeat Until Menggunakan Turbo Pascal
• Menghitung Bilangan Ganjil dan Genap Menggunakan Turbo Pascal
• Pengurutan Bilangan mengunakan Turbo Pascal
• MEMBUAT APLIKASI KONVERSI BILANGAN DENGAN PROGRAM VB
• MEMBUAT PROGRAM DATABASE MAHASISWA DENGAN VB 6.0
• MEMBUAT PROGRAM APLIKASI ALARM DENGAN VB 6.0
• MEMBUAT PROGRAM PEMUTAR MUSIK DENGAN VB 6.0 | APLIKASI MP3 PLAYER
• MEMBUAT PROGRAM PORT PARALEL LED BERJALAN DENGAN VB
• MEMBUAT PROGRAM SIMULASI LAMPU LALU LINTAS DENGAN VISUAL BASIC
• MEMBUAT PROGRAM KALKULATOR DENGAN VISUAL BASIC
• MEMBUAT APLIKASI ACAK ANGKA (RANDOM) DENGAN VISUAL BASIC
• MEMBUAT APLIKASI PASSWORD DENGAN VISUAL BASIC
• MEMBUAT APLIKASI PENGHITUNG HARGA BARANG DENGAN VISUAL BASIC
• MEMBUAT PROGRAM MENGKONVERSI SUHU DENGAN VISUAL BASIC
• CONTOH-CONTOH PROGRAM MATEMATIKA SEDERHANA DENGAN VB 6.0