Calkulator dgn Texbox

Membuat Kalkulator Sederhana

Nilai pada sebuah texbox di deklarasikan dengan val
Misalnya :
Val(Text2.Text) untuk nilai untuk texbox2
Dan sebagainya

Untuk menjumlahkan nilai texbox1 dan texbox2  yang hasilnya di texbox3
maka ditulis sebagai berikut :

a = Val(Text1.Text) 
b = Val(Text2.Text)
r = a + b
Text3.Text = r

Keterangan:
a dideklarasikan sebagai nilai untuk texbox1
b dideklarasikan sebagai nilai untuk texbox2
r dideklarasikan sebagai nilai untuk texbox3

maka nilai r = a + b


demikian pula untuk mencari nilai pengurangan atau perkalian akan dideklarasikan dengan contoh berikut sebagai berikut

r = a - b  mendapatkan hasil pengurangan
r = a * b  mendapatkan hasil perkalian

mari kita aplikasikan code vba tersebut untuk membuat kalkulator sederhana

cukup mudah caranya siapka sebuah userform
dengan 3 buah texbox yakni
texbox1 , texbox2 dan texbox3
4 buah Commandbutton yakni
Commandbutton1
Commandbutton2
Commandbutton3
Commandbutton4

Pastekan kode pada  CommandButton1

Private Sub CommandButton1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
r = a + b
Text3.Text = r
End Sub

Pastekan kode pada  CommandButton2

Private Sub CommandButton2_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
r = a - b
Text3.Text = r
End Sub

Pastekan kode pada  CommandButton3


Private Sub CommandButton3_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
r = a * b
Text3.Text = r
End Sub

Pastekan kode pada  CommandButton4


Private Sub CommandButton4_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
r = a / b
Text3.Text = r
End Sub

Pastekan kode pada  sebuah modul yang nantinya digunakan untuk memanggil userform

Sub panggil ()
Userform1.show
End sub

Selesai
semoga bermanfaat

Sampel file dapat didownload di link berikut