membuat kalkulator sederhana dengan visual basic | R2Srekayasa

 

program :

Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = Val(bil1)
e = Val(bil2)
f = Val(bil3)
g = Val(bil4)
d = a * 4000000
e = b * 750000
f = c * 550000
bil1 = a * 4000000
bil2 = b * 750000
bil3 = c * 550000
g = d + e + f
bil4 = g
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
bil1.Text = ""
bil2.Text = ""
bil3.Text = ""
bil4.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub