Imprimir Página - Necesito ayuda para una calculadora en visual basic.

Tengo que hacer una calculadora como trabajo, he buscado sobre el tema i al

intentar hacerla no me ha funcionado. El problema esta en la tecla =. Al usarla el

resultado me pone lo que he escrito en la primera caja de texto. Creo que el

problema esta muy claro. Pero hay alguna manera para que funcione sin que se

hayan de canviar muchas cosas?

Código:

Private Sub Command1_Click()
Text1 = Text1 & "*"
End Sub
Private Sub Command10_Click()
Text1 = Text1 & "4"
End Sub
Private Sub Command11_Click()
Text1 = Text1 & "5"
End Sub
Private Sub Command12_Click()
Text1 = Text1 & "6"
End Sub
Private Sub Command13_Click()
Text1 = Text1 & "7"
End Sub
Private Sub Command14_Click()
Text1 = Text1 & "8"
End Sub
Private Sub Command15_Click()
Text1 = Text1 & "9"
End Sub
Private Sub Command16_Click()
Text1 = Text1 & "."
End Sub
Private Sub Command17_Click()
Text1 = Text1 & "0"
End Sub
Private Sub Command18_Click()
Text3 = Text1
End Sub
Private Sub Command2_Click(Index As Integer)
Text1 = Text1 & "+"
End Sub
Private Sub Command3_Click()
Text1 = Text1 & "-"
End Sub
Private Sub Command4_Click()
Text1 = Text1 & "/"
End Sub
Private Sub Command5_Click()
Text1 = Text1 & "1"
End Sub
Private Sub Command6_Click()
Text1 = Text1 & "2"
End Sub
Private Sub Command7_Click()
Text1 = Text1 & "3"
End Sub

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: qerde en 28 Septiembre 2011, 18:25 pm