Sharing Informasi Terkini: Coding Membuat Kalkulator Sederhana dengan Borland Delphi

Halo sobat dimanapun kalian berada, kali ini saya akan sharing tentang cara membuat sebuah aplikasi kalkulator sederhana. Bagi yang pengen bikin, silahkan pantengin caranya dibawah ini...

[Kalkulator Sederhana From Modul 2 - Latihan 1]

1. Buat desain form seperti pada gambar dibawah ini, lalu simpan:
Unit1 : Kalkulator.pas
Project : LatihanKalkulator.dpr

2. Atur desain form dengan ketentuan

Object	Name	Caption
Label1	Label1	Program Kalkulator Sederhana
Label2	Label2	Bilangan 1
Label3	Label3	Bilangan 2
Label4	Label4	Hasilnya

Object	Name	Caption
Edit1	Edit1	(kosong)
Edit2	Edit2	(kosong)
Edit3	Edit1	(kosong)
Button1	Button1	&Tambah
Button2	Button2	&Kurang
Button3	Button3	&Bagi
Button4	Button4	&Kali
Button5	Button5	&Hasil Bag/divi
Button5	Button6	&Sisa Bagi/modl
Button6	Button7	&BARU
Button7	Button8	&KELUAR

Catatan:Fungsi '&' pada Caption '&Tambah) yaitu agar kita dapat menggunakan perintah cepet/shortcut key dengan menekan tombol Alt+T (tambah) atau Alt+ K (keluar). Jadi temen-temen gak perlu repot nggerakin kursor untuk mengklik tombol keluar.

CODING YANG DIGUNAKAN

1.Penjumlahan (Klik ganda pada button Tambah dan masukan coding)

Penjumlahan

procedure TForm1.Button2Click(Sender: TObject);
var
A, B, Hasil: real;
begin
A := StrToFloat (Edit1.Text);
B := StrToFloat (Edit2.Text);
Hasil := A+B;
Edit3.Text := FloatToStr (Hasil);
end;

Catatan: Fungsi var digunakan untuk memasukan tipe variabel baru, bisa berupa Real, Integer, ataupun String. Nah, kalo kita menggunakan salah satu tipe variabel tersebut, maka kita juga harus menggunakan operasi konversi tipe data. Contohnya: StrToFloat, yaitu mengubah nilai Str (String) menjadi (To) Floatingpoint(Bilangan Real).

2.Pengurangan (Klik ganda pada button Kurang dan masukan coding)

Pengurangan

procedure TForm1.Button2Click(Sender: TObject);
var
A, B, Hasil: real;
begin
A := StrToFloat (Edit1.Text);
B := StrToFloat (Edit2.Text);
Hasil := A-B;
Edit3.Text := FloatToStr (Hasil);
end;

3.Perkalian (Klik ganda pada button Kali dan masukan coding)

Perkalian

procedure TForm1.Button3Click(Sender: TObject);
var
A, B, Hasil: real;
begin
A := StrToFloat (Edit1.Text);
B := StrToFloat (Edit2.Text);
Hasil := A*B;
Edit3.Text := FloatToStr (Hasil);
end;

4.Pembagian (Klik ganda pada button Bagi dan masukan coding)

Pembagian

procedure TForm1.Button4Click(Sender: TObject);
var
A, B, Hasil: real;
begin
A := StrToFloat (Edit1.Text);
B := StrToFloat (Edit2.Text);
Hasil := A/B;
Edit3.Text := FloatToStr (Hasil);
end;

5.Hasil Bagi (Klik ganda pada button Hasil Bagi/div dan masukan coding)

Hasil Bagi

procedure TForm1.Button3Click(Sender: TObject);
var
A, B, Hasil: Integer;
begin
A := StrToInt (Edit1.Text);
B := StrToInt (Edit2.Text);
Hasil := A div B;
Edit3.Text := IntToStr (Hasil);
end;

6.Sisa Bagi (Klik ganda pada button Sisa bagi/mod dan masukan coding)

Sisa Bagi

procedure TForm1.Button3Click(Sender: TObject);
var
A, B, Hasil: Integer;
begin
A := StrToInt (Edit1.Text);
B := StrToInt (Edit2.Text);
Hasil := A mod B;
Edit3.Text := IntToStr (Hasil);
end;

Catatan: Pada Perintah Coding 1-4 kita menggunakan Variabel (var) dengan type Real, karena kita akan membaca bilagan angka dalam bentuk real. Sedangkan pada perintah coding 5-6 kita menggunakan Variabel (var) dengan type Integer, karena kita menggunakan Operasi Aritmetika berupa DIV (Pembagian Integer) dan MOD (Sisa Pembagian).

7. BARU (Klik ganda pada button BARU dan masukan coding)

BARU

procedure TForm1.Button8Click(Sender: TObject);
begin
Edit1.Text :='';
Edit2.Text :='';
Edit3.Text :='0';
Edit1.SetFocus;
end;

Catatan: Fungsi 'SetFocus' digunakan agar saat tombol BARU/button8 di klik/eksekusi, maka kursor akan terfokus pada objek 'Edit1'

8. KELUAR (Klik ganda pada button KELUAR dan masukan coding)

KELUAR

procedure TForm1.Button9Click(Sender: TObject);
begin
Close;
end;
end.

Mungkin untuk sekarang cuman ini yang dapat saya share kepada teman sekalian, kali aja bisa mempermudah kita dalam proses belajar Pemrograman Delphi.

Kalo temen-temen pengen lihat Source Code dari Program Kalkulator kayak diatas dalam bentuk Project Delphi, kalian tinggal sedot dengan klik

Downolad Via Sharebeast

Download Via Google Drive

Semoga Bermanfaat....
See You.....

11/17/2014

Coding Membuat Kalkulator Sederhana dengan Borland Delphi