Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub ButtonSuma_Click()
- Try numero1 = Val(TextBoxMuestra.text)
- Labeln1.text = "Numero 1: " & TextBoxMuestra.text
- operacion = 1
- TextBoxMuestra.text = ""
- End
- Public Sub ButtonLimpiar_Click()
- TextBoxMuestra.text = ""
- End
- Public Sub ButtonResta_Click()
- Try numero1 = Val(TextBoxMuestra.text)
- Labeln1.text = "Numero 1: " & TextBoxMuestra.text
- TextBoxMuestra.text = ""
- operacion = 2
- End
- Public Sub ButtonMuliplica_Click()
- Try numero1 = Val(TextBoxMuestra.text)
- Labeln1.text = "Numero 1: " & TextBoxMuestra.text
- TextBoxMuestra.text = ""
- operacion = 3
- End
- Public Sub ButtonDivide_Click()
- Try numero1 = Val(TextBoxMuestra.text)
- Labeln1.text = "Numero 1: " & TextBoxMuestra.text
- TextBoxMuestra.text = ""
- operacion = 4
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement