Contoh Source Code Kalkulator Sederhana Dengan Delphi 7

Tags

Jumpa kembali dengan pembahasan tentang source code delphi 7, kali ini saya akan berbagi cara membuat kalkulator sederhana dengan delphi 7, seperti yang kita semua ketahui, kalkulator adalah sebuah mesin penghitung super cepat, dengan kalkulator maka kita bisa menemukan hasil yang benar dari penambahan, pengurangan, perkalian dan pembagian, tanpa harus takut kalau hasilnya salah.

Berikut adalah Contoh Source Code Kalkulator Sederhana Dengan Delphi 7


Komponen yang diperlukan untuk membuat kalkulator dengan delphi 7 ini adalah:

4 buah Button
3 buah edit.text

Cara pembuatanya pun sangat mudah, pertama buka program delphi 7 anda lalu masukan 3 buah edit.txt.

edit1.text untuk nilai 1
edit2.text untuk nilai 2
edit3.text untuk hasil penjumlahan dari edit1.text dan edit2.text.

Lalu masukan 4 buah button

button1 untuk penambahan
button2 untuk pengurangan
button3 untuk perkalian
button4 untuk pembagian
Button1 beri label Tambah
Button2 beri label Kurang
Button3 beri label Kali
Button4 beri label Bagi

Dan hasilnya akan seperti pada gambar dibawah ini

Contoh Source Code Kalkulator Sederhana Dengan Delphi 7

Sekarang kita masuk ke tahap pengcodingan

Petama dobel klik pada button1 atau tambah lalu masukan coding berikut:

procedure TForm1.Button1Click(Sender: TObject);
var nilai1,nilai2,jumlah:single;
begin
nilai1 := strtofloat(edit1.Text);
nilai2 := strtofloat(edit2.Text);
jumlah := nilai1+nilai2;
edit3.Text := floattostr(jumlah);
end;

Keterangan

Ketika nilai 1 kita masukan di edit1.text dan nilai 2 kita masukan di edit2.text dan jumlah penambahan dari nilai 1 tambah nilai 2 akan tampil di edit3.text.

Kedua dobel klik pada button2 atau kurang lalu masukan coding berikut:

procedure TForm1.Button2Click(Sender: TObject);
begin
nilai1 := strtofloat(edit1.Text);
nilai2 := strtofloat(edit2.Text);
jumlah := nilai1-nilai2;
edit3.Text := floattostr(jumlah);
end;

Keterangan
Ketika nilai 1 kita masukan di edit1.text dan nilai 2 kita masukan di edit2.text dan jumlah pengurangan dari nilai 1 tambah nilai 2 akan tampil di edit3.text.

Ketiga dobel klik pada button3 atau kali lalu masukan coding berikut:

procedure TForm1.Button3Click(Sender: TObject);

var nilai1,nilai2,jumlah:single;
begin
nilai1 := strtofloat(edit1.Text);
nilai2 := strtofloat(edit2.Text);
jumlah := nilai1*nilai2;
edit3.Text := floattostr(jumlah);
end;

Keterangan
Ketika nilai 1 kita masukan di edit1.text dan nilai 2 kita masukan di edit2.text dan jumlah perkalian dari nilai 1 tambah nilai 2 akan tampil di edit3.text.

Ke empat dobel klik pada button4 atau bagi lalu masukan coding berikut:

procedure TForm1.Button4Click(Sender: TObject);
var nilai1,nilai2,jumlah:single;
begin
nilai1 := strtofloat(edit1.Text);
nilai2 := strtofloat(edit2.Text);
jumlah := nilai1/nilai2;
edit3.Text := floattostr(jumlah);
end;

Keterangan
Ketika nilai 1 kita masukan di edit1.text dan nilai 2 kita masukan di edit2.text dan jumlah pembagian dari nilai 1 tambah nilai 2 akan tampil di edit3.text.

Harap di perhatikan yang menentukan hasil akhir atau jumlah akhir dari perhitungannya adalah tanda:

+
-
*
/

Langkah terakhir silahkan compile dan jalankan, kalau terjadi eror di pastikan penulisan coding ada yang salah

Itulah Contoh Source Code Kalkulator Sederhana Dengan Delphi 7.

2 komentar

MAS ERROR MAS, YANG ERROR EDIT1..
KNAPA YA???

silahkan kirim source code kalkulatornya ke flyin.dvb@gmail.com biar saya cek dimana letak kesalahannya

Silahkan berkomentar dengan sopan dan tidak meninggalkan link aktip.

Terima Kasih.

EmoticonEmoticon