Kalkulator Sederhana Dengan Visual Basic

"Om Swastiastu"

Sedikit bingung mau share apa hari ini, iseng-iseng buka Facebook page ITProgrammer ternyata banyak ada yang request tutorial bikin program aplikasi sederhana. Cara membuat Kalkulator Sederhana Dengan Visual Basic ini salah satunya. :D. Sambil mengingat masa-masa kuliah dulu saat pertama belajar VB pak dosen memberikan tugas membuat kalkulator scientific tapi yang saya buat kalkulator sederhana karena saat itu yang saya dengar beliau hanya bilang membuat kalkulator dengan VB. (jangan ketawa ya).

Oke, biar ceritanya tidak panjang langsung saja ke pembuatan Program Kalkulator Sederhana dengan Visual Basic ini.
Caranya cukup gampang. Pertama siapkan VB kalian dan siapkan tangan kalian di keyboard laptop or PC :). Selanjutnya kita terlebih dahulu membuat tampilan aplikasi ini seperti gambar berikut (sesuaikan dengan selera yaa). caranya gampang, tambahkan sebuah text-box dan beberapa command button. 

Selanjutnya isi value dan properti dari masing-masing text-box dan command button tersebut seperti tabel dibawah ini.

object	properties	value
TextBox1	Name: Text:	txthasil (kosong)
CommandButton1	Name: Caption:	btn1 1
CommandButton2	Name: Caption:	btn2 2
CommandButton3	Name: Caption:	btn3 3
CommandButton4	Name: Caption:	btn4 4
CommandButton5	Name: Caption:	btn5 5
CommandButton6	Name: Caption:	btn6 6
CommandButton7	Name: Caption:	btn7 7
CommandButton8	Name: Caption:	btn8 8
CommandButton9	Name: Caption:	btn9 9
CommandButton10	Name: Caption:	btn0 0
CommandButton11	Name: Caption:	btnTambah +
CommandButton12	Name: Caption:	btnKurang -
CommandButton13	Name: Caption:	btnKali x
CommandButton14	Name: Caption:	btnBagi :
CommandButton15	Name: Caption:	btnProses =
CommandButton16	Name: Caption:	btnClear C

Setelah semua textbox dan button terisi value dan name-nya. selanjutnya siapkan jari-jari kalian untuk mengetik sintak/source code dibawah ini (kalau mau cepat bisa copas langsung):p

Dim nilai1, nilai2, As Long
Dim hasil As Double
Dim operasi, txtnilai1, txtnilai2 As String

(Buat Kode diatas terlebih dahulu. Pilih “General” dan “Declarations”)

Private Sub btn1_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "1"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "1"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn2_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "2"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "2"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn3_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "3"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "3"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn4_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "4"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "4"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn5_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "5"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "5"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn6_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "6"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "6"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn7_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "7"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "7"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn8_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "8"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "8"
txthasil.Text = txtnilai2
End If
End Sub
Private Sub btn9_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "9"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "9"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btn0_Click(Index As Integer)
If operasi = "" Then
txtnilai1 = txtnilai1 + "0"
txthasil.Text = txtnilai1
Else
txtnilai2 = txtnilai2 + "0"
txthasil.Text = txtnilai2
End If
End Sub

Private Sub btnTambah_Click(Index As Integer)
operasi = "+"
End Sub

Private Sub btnKurang_Click(Index As Integer)
operasi = "-"
End Sub

Private Sub btnKali_Click(Index As Integer)
operasi = "x"
End Sub

Private Sub btnBagi_Click(Index As Integer)
operasi = ":"
End Sub

Private Sub btnClear_Click()
operasi = ""
txthasil = ""

txtnilai1 = ""
txtnilai2 = ""
End Sub

Private Sub btnProses_Click()
nilai1 = Val(txtnilai1)
nilai2 = Val(txtnilai2)
If operasi = "+" Then
hasil = nilai1 + nilai2
txthasil.Text = hasil
Else
If operasi = "-" Then
hasil = nilai1 - nilai2
txthasil.Text = hasil
Else
If operasi = "x" Then
hasil = nilai1 * nilai2
txthasil.Text = hasil
Else
If operasi = ":" Then
hasil = nilai1 / nilai2
txthasil.Text = hasil
End If
End If
End If
End If
operasi = ""
txtnilai1 = ""
txtnilai2 = ""
txtnilai1 = Str$(hasil)
End Sub

Private Sub Form_Load()
nilai1 = 0
nilai2 = 0
operasi = ""
End Sub

Untuk melihat hasilnya tekan tombol "F5" pada keyboard. Biasakan kalau terjadi error untuk mencari letak dimana kesalahanya agar kita sering terlatih untuk menganalisa source code/sintak yg kita buat. Program Kalkulator Sederhana Dengan Visual Basic ini bisa kalian kembangkan lagi menjadi kalkulator scientific silahkan kalian kembangkan sendiri dulu nanti pasti akan saya share tutorialnya.
 Selamat mencoba. :)

"Om Santhi, Santhi, Santhi Om"