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 :)
