Halo sobat umitranusantara dimanapun kalian berada, kali ini saya akan sharing tentang cara membuat sebuah aplikasi perhitungan gokil (kalkulator sederhana) yang baru kemarin saya pelajari dari modul hasil potokopian bikinan pak Arie. 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.
Oh iya, Sumber dari informasi sharing diatas berasal dari
'Modul Pratikum Pemrograman Borland Delphi' oleh Bpk.
Arie Setya Putra,S.Kom,.M.T.I, yang saya ulas kembali dengan sedikit modifikasi. Kalo temen-temen pengen lihat Source Code dari Program Kalkulator kayak diatas dalam bentuk Project Delphi, kalian tinggal sedot dengan klik
Semoga Bermanfaat....
See You.....
