Visual Basic Tutorial : Program Kalkulator Dengan VB

Visual Basic Tutorial : Program Kalkulator Dengan VBAssalamualaikum Wr. Wb.. Kali ini saya akan memberikan tips ataupun tutorial tentang kalkulator. Tidak asing lagi di telinga anda yang bernama kalkulator. Nah saya akan mengupas habis tentang cara membuat program kalkulator dengan vb. Kalau begitu, kita akan mulai saja.

Sebelum tutorial ini dilakukan, ada baiknya kita siapkan perlengkapan.
Perlengkapan:

  1. Visual Basic 6.0 atau lebih
  2. Laptop
  3. Mental yang kuat
  4. Baca doa dulu dong…… hehehehehe

 

Oke, kita mulai saja, ini dia tutorialnya.
Tutorial:

1. Add New Form dengan cara ini

2. Klik Form and Open seperti ini

kalkulator2

3. Buat tombol-tombol dan tempat teks seperti ini

kalkulator3

Buat kalian, jika mau tambahkan button reset tambahkan saja

3. Edit mulai dari Caption, hingga kata panggilan di kode (biasanya nama di editor itu adalah (Name)

4. Masuk ke View Code.

kalkulator5

5. Ketik deh kode yg di bawah ini.

‘=======================================
‘Besutan Imul
‘Website : imul.zz.mu
‘Ini adalah replika kalkulator di pc
‘=======================================

‘Sebelum mengetik kode ini
‘Ingat editan pernak pernik app anda mulai dari
‘Button Kali sampai Tambah
‘Text Angka
‘Misal, Kita punya tombol bagi dengan (Name) Bagi
‘Ubah ButBagi dengan Bagi
‘Ada lagi, text angka
‘Jika (Name) text Hasil berbeda dengan yang dibawah atau AngkaHasil
‘Ubah!!!!!!
‘Itulah yang saya sampaikan

`Buat deklarasi jika tombol bagi di tekan
Private sub ButBagi_Click()
`Gunakan perintah Val untuk mengetahui jumlahnya
AngkaHasil.Text = Val(Angka1) / Val(Angka2)
`Akhir dari deklarasi
End Sub

`Buat deklarasi jika tombol kali di tekan
Private sub ButBagi_Click()
‘Ingatkan dari tadi
AngkaHasil.Text = Val(Angka1) * Val(Angka2)
End Sub

`Buat deklarasi jika tombol kurang di tekan
Private sub ButKurang_Click()
AngkaHasil.Text = Val(Angka1) – Val(Angka2)
End Sub

`Buat deklarasi jika tombol tambah di tekan
Private sub ButTambah_Click()
AngkaHasil.Text = Val(Angka1) + val(Angka2)
End Sub

‘Buat deklarasi jika ditekan reset akan membersihkan semua kotak text
Private sub Reset_Click()
Angka1.Value = “”
Angka2.Value = “”
AngkaHasil.Value = “”
End Sub
‘Habis deh……..

Yah itulah yang bisa saya bagi, kalau ada tambahan, tambah saja

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s