MEMBUAT KALKULATOR MENGGUNAKAN VISUAL BASIC

hay guys, mau share cara bikin program kalkulator dengan visual basic. Ini sih cuma tutorial sederhana, semoga bermanfaat ya buat kalian yang lagi bingung mau bikinnya.

check it out !!!

awalnya, buat seperti contoh diatas.
buat frame dahulu, kemudian textbox untuk menampilkan hasilnya. Untuk tombol kalkulatornya semuanya menggunakan command button. Tapi, ada yang perlu diperhatikan :
untuk commandbutton 0 - 9 dan . pada name di propertiesnya dirubah menjadi angka.
untuk commandbutton +/- pada name propertiesnya dirubah menjadi plusmin
untuk commandbutton + pada name propertiesnya dirubah menjadi tambah
untuk commandbutton - pada name propertiesnya dirubah menjadi kurang
untuk commandbutton 1/*  pada name propertiesnya dirubah menjadi tanda
untuk commandbutton * pada name propertiesnya dirubah menjadi kali
untuk commandbutton /  pada name propertiesnya dirubah menjadi bagi
untuk commandbutton = pada name propertiesnya dirubah menjadi samadengan
untuk commandbutton lainnya pada properties dibagian name nya tidak perlu diganti.

Berikut kodingannya

Option Explicit

Dim operasi1 As Double, operasi2 As Double

Dim operator As String

Dim hapustampilan As Boolean

Private Sub angka_Click(Index As Integer)

If hapustampilan Then

hasil.Text = " "

hapustampilan = False

End If

hasil.Text = hasil.Text + angka(Index).Caption

End Sub

Private Sub bagi_Click()

operasi1 = Val(hasil.Text)

operator = "/"

hasil.Text = " "

End Sub

Private Sub Command12_Click()

operasi1 = Val(hasil.Text)

operator = "sin"

hasil.Text = " "

End Sub

Private Sub Command15_Click()

End

End Sub

Private Sub Command16_Click()

hasil = " "

End Sub

Private Sub Command22_Click()

operasi1 = Val(hasil.Text)

operator = "^"

hasil.Text = " "

End Sub

Private Sub kali_Click()

operasi1 = Val(hasil.Text)

operator = "*"

hasil.Text = " "

End Sub

Private Sub kurang_Click()

operasi1 = Val(hasil.Text)

operator = "-"

hasil.Text = " "

End Sub

Private Sub plusmin_Click()

hasil.Text = -(Val(hasil.Text))

End Sub

Private Sub samadengan_Click()

Dim hasilakhir As Double

operasi2 = Val(hasil.Text)

If operator = "+" Then hasilakhir = operasi1 + operasi2

If operator = "-" Then hasilakhir = operasi1 - operasi2

If operator = "*" Then hasilakhir = operasi1 * operasi2

If operator = "^" Then hasilakhir = operasi1 ^ operasi2

If operator = "/" And operasi2 <> "0" Then hasilakhir = operasi1 / operasi2

If operator = "1/*" And operasi1 <> "0" Then hasilakhir = 1 / operasi1

hasil.Text = hasilakhir

End Sub

Private Sub tambah_Click()

operasi1 = Val(hasil.Text)

operator = "+"

hasil.Text = " "

End Sub

Private Sub tanda_Click()

operasi1 = Val(hasil.Text)

operator = "1/*"

hasil.Text = " "

End Sub

sekian tutorialnya guys. semoga bermanfaat ya :)