![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUJpD2KPX-JO8nOP1NHdOw9OQuMj7Kf8WutlEjgUPOlyANk4AX5JKcIecCjofXY7hOxARPeNgGgJpgOJNyDbli7UHZC-nM2XebkcjAIGY5Au31-tCwqasi8poO5gJjA_PXx0gLK-8qRmg/s320/3+cerita+islam.jpg" width="320)
Coding Kalkulator Visual Basic
Dim n1, n2, h As Single
Private Sub cmdbagi_Click()
n1 = Val(tnil1.Text)
n2 = Val(tnil2.Text)
h = n1 / n2
thasil.Text = n1 / n2
End Sub
Private Sub cmdbersih_Click()
tnil1.Text = ""
tnil2.Text = ""
thasil.Text = ""
End Sub
Private Sub cmdkali_Click()
n1 = Val(tnil1.Text)
n2 = Val(tnil2.Text)
h = n1 * n2
thasil.Text = n1 * n2
End Sub
Private Sub cmdkeluar_Click()
MsgBox "Belajar VB | Sampai Jumpa Lagi"
End
End Sub
Private Sub cmdkurang_Click()
n1 = Val(tnil1.Text)
n2 = Val(tnil2.Text)
h = n1 - n2
thasil.Text = n1 - n2
End Sub
Private Sub cmdpangkat_Click()
n1 = Val(tnil1.Text)
n2 = Val(tnil2.Text)
h = n1 ^ n2
thasil.Text = n1 ^ n2
End Sub
Private Sub cmdtambah_Click()
n1 = Val(tnil1.Text)
n2 = Val(tnil2.Text)
h = n1 + n2
thasil.Text = n1 + n2
End Sub
