Últimos Temas de: Chack22

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:

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