11/17/2014

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
Label1Label1Program Kalkulator Sederhana
Label2Label2Bilangan 1
Label3Label3Bilangan 2
Label4Label4Hasilnya

Object
Name
Caption
Edit1Edit1(kosong)
Edit2Edit2(kosong)
Edit3Edit1(kosong)
Button1Button1&Tambah
Button2Button2&Kurang
Button3Button3&Bagi
Button4Button4&Kali
Button5Button5&Hasil Bag/divi
Button5Button6&Sisa Bagi/modl
Button6Button7&BARU
Button7Button8&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 (ToFloatingpoint(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

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

1 comment:

  1. kami sekeluarga tak lupa mengucapkan puji syukur kepada ALLAH S,W,T
    dan terima kasih banyak kepada AKI atas nomor togel.nya yang AKI
    berikan 4 angka 4180 alhamdulillah ternyata itu benar2 tembus AKI.
    dan alhamdulillah sekarang saya bisa melunasi semua utan2 saya yang
    ada sama tetangga.dan juga BANK BRI dan bukan hanya itu AKI. insya
    allah saya akan coba untuk membuka usaha sendiri demi mencukupi
    kebutuhan keluarga saya sehari-hari itu semua berkat bantuan AKI..
    sekali lagi makasih banyak ya AKI… bagi saudara yang suka main togel
    yang ingin merubah nasib seperti saya silahkan hubungi AKI SOLEH,,di no (((082-313-336-747)))
    insya allah anda bisa seperti saya…menang togel 275
    juta, wassalam.


    dijamin 100% jebol saya sudah buktikan...sendiri....







    Apakah anda termasuk dalam kategori di bawah ini !!!!


    1"Dikejar-kejar hutang

    2"Selaluh kalah dalam bermain togel

    3"Barang berharga anda udah habis terjual Buat judi togel


    4"Anda udah kemana-mana tapi tidak menghasilkan solusi yg tepat


    5"Udah banyak Dukun togel yang kamu tempati minta angka jitunya
    tapi tidak ada satupun yang berhasil..







    Solusi yang tepat jangan anda putus asah....AKI SOLEH akan membantu
    anda semua dengan Angka ritwal/GHOIB:
    butuh angka togel 2D 3D 4D SGP / HKG / MALAYSIA / TOTO MAGNUM / dijamin
    100% jebol
    Apabila ada waktu
    silahkan Hub: AKI SOLEH DI NO: (((082-313-336-747)))




    atau klik langsung di KLIK DSINI BOCORAN TOGEL




    angka GHOIB: singapur 2D/3D/4D/



    angka GHOIB: hongkong 2D/3D/4D/



    angka GHOIB; malaysia



    angka GHOIB; toto magnum 4D/5D/6D/



    angka GHOIB; laos

    ReplyDelete

Tolong tinggalkan sedikit komentar untuk koreksi blog ini.
Harap tidak memberikan komentar :
1. Sara dan pornografi
2. Spam Content (Konten Sampah)
3. Penghinaan dan Pelecehan
4. OOT (Out Of Topic)