Visual Basic Comand "1" > Kalkulator

Private Sub Command1_Click()
Text4.Text = Val(Text1.Text) + (Text2.Text) + (Text3.Text)



End Sub

Private Sub Command2_Click()
Text4.Text = Val(Text1.Text) - (Text2.Text) - (Text3.Text)
End Sub

Private Sub Command3_Click()
Text4.Text = Val(Text1.Text) * (Text2.Text) * (Text3.Text)
End Sub


Private Sub Command4_Click()
Text4.Text = Val(Text1.Text) / (Text2.Text) / (Text3.Text)
End Sub

Private Sub Command5_Click()
Text4.Text = Val(Text1.Text) ^ (Text2.Text) ^ (Text3.Text)
End Sub



Private Sub Command6_Click()
OK = MsgBox("anda yakin?", vbYesNo + vbExclamation, "konfirmasi")
If OK = vbYes Then
        Unload Me
End If


End Sub
Private Sub Form_Load()
'hapus text
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""

End Sub


Private Sub Label1_Click()

End Sub

Private Sub Text1_Change()

End Sub