Hola a todos, se que hay varios posts con códigos de calculadoras pero yo intenté hacerla a mi manera y no sólo copiar las que ya están, y sólo pido algún consejo o que me digan que es lo que le falta o en que está mal, la calculadora la intente hacer en VB 6 con las 4 operaciones básicas (+,-,/,*). Pero a la hora de dar click en el botón de igual (=) no me devuelve el resultado de la operación. Aquí mi código.
Código [Seleccionar]
Private Sub Form_Load()
Dim x As String
Dim xlong As Long
End Sub
----------------------------------------
Private Sub cmd0_Click(Index As Integer)
display.Text = display.Text & "0"
End Sub
----------------------------------------
Private Sub cmd1_Click(Index As Integer)
display.Text = display.Text & "1"
End Sub
----------------------------------------
Private Sub cmd2_Click(Index As Integer)
display.Text = display.Text & "2"
End Sub
----------------------------------------
Private Sub cmd3_Click(Index As Integer)
display.Text = display.Text & "3"
End Sub
----------------------------------------
Private Sub cmd4_Click(Index As Integer)
display.Text = display.Text & "4"
End Sub
----------------------------------------
Private Sub cmd5_Click(Index As Integer)
display.Text = display.Text & "5"
End Sub
----------------------------------------
Private Sub cmd6_Click(Index As Integer)
display.Text = display.Text & "6"
End Sub
----------------------------------------
Private Sub cmd7_Click(Index As Integer)
display.Text = display.Text & "7"
End Sub
----------------------------------------
Private Sub cmd8_Click(Index As Integer)
display.Text = display.Text & "8"
End Sub
----------------------------------------
Private Sub cmd9_Click(Index As Integer)
display.Text = display.Text & "9"
End Sub
----------------------------------------
Private Sub cmdentre_Click(Index As Integer)
x = "/"
xlong = "display.txt"
display.Text = ""
End Sub
----------------------------------------
Private Sub cmdmas_Click(Index As Integer)
x = "+"
xlong = "display.txt"
display.Text = ""
End Sub
----------------------------------------
Private Sub cmdmenos_Click(Index As Integer)
x = "-"
xlong = "display.txt"
display.Text = ""
End Sub
----------------------------------------
Private Sub cmdpor_Click(Index As Integer)
x = "*"
xlong = "display.txt"
display.Text = ""
End Sub
----------------------------------------
Private Sub cmdigual_Click()
If x = "+" Then
x = xlong + display.Text
display.Text = "x"
End If
If x = "-" Then
x = xlong - display.Text
display.Text = "x"
End If
If x = "*" Then
x = xlong * display.Text
display.Text = "x"
End If
If x = "/" Then
x = xlong / display.Text
display.Text = "x"
End If
End Sub