Resolver ecuaciones Visual Basic 6.0

[VonN]

Lo amarillo es el error que me sigue dando.. u.u ya me desespero

El amarillo no es error te aclaré. Fijate bien que el error se produce dentro de ese método seguramente, ya más no podemos hacer, hazle caso a seba 

Un saludo!

[byway]

ummmm si eso es todo tu codigo pues nunca te saldra nada... solo ese error ... pues declara un par de variables para A y B como Double para que puedas usar decimales.

algo asi como este ejemplito que hize para ti    :

Código (vb) [Seleccionar] Expandir

Dim uno, dos As Double

Private Sub Command1_Click()
uno = Val(Text1.Text)
dos = Val(Text2.Text)
Text3.Text = uno + dos
End Sub

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

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

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


Saludos

[oJosLoCos]

Bueno.. queria agradecerles.. el apoyo y tal , y que sepan que lo he arreglado

Dejo el codigo final por si algun torpon como yo llega a intentar programar en visual jejeje

Private Sub Igual_Click()
If Signo = "+" Then
NumC.Text = Val(NumA.Text) + Val(NumB.Text) 'Marcar + en lista , sumar

ElseIf Signo = "-" Then
NumC.Text = Val(NumA.Text) - Val(NumB.Text) 'Marcar - en lista , restar

ElseIf Signo = "/" Then
NumC.Text = Val(NumA.Text) / Val(NumB.Text)  'Marcar / en lista, dividir


ElseIf Signo = "*" Then
NumC.Text = Val(NumA.Text) * Val(NumB.Text)  'Marcar * en lista , multiplicar
End If
End Sub

Private Sub Form_Load()
Signo.AddItem "+"
Signo.AddItem "-"
Signo.AddItem "/"
Signo.AddItem "*"
End Sub


Ueno , lo que hice fue borrar el Signo.List porque no era necesario , ya que al marcarlo en la casilla no hay porque especificar que es de la lista.. no tenia sentido

En fin , muchas gracias a todos , de verdad.

[VonN]

Bueno.. queria agradecerles.. el apoyo y tal , y que sepan que lo he arreglado

Bien por ti 

[BlackZeroX]

Código (vb) [Seleccionar] Expandir


If Signo.List(Signo.ListIndex) = "+" Then
NumC.Text = Val(NumA.Text) + Val(NumB.Text) 'Marcar + en lista , sumar
ElseIf Signo.List = "-" Then
ElseIf Signo.List = "/" Then
ElseIf Signo.List = "*" Then
End If



El ERROR POSIBLE esta en tu Sintaxis del Control ListBox

Posible Arreglo

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
If Signo.List(Signo.ListIndex) = "+" Then
NumC.Text = Val(NumA.Text) + Val(NumB.Text) 'Marcar + en lista , sumar

ElseIf Signo.List(Signo.ListIndex) = "-" Then
NumC.Text = Val(NumA.Text) - Val(NumB.Text) 'Marcar - en lista , restar

ElseIf Signo.List(Signo.ListIndex) = "/" Then
NumC.Text = Val(NumA.Text) / Val(NumB.Text)  'Marcar / en lista, dividir


ElseIf Signo.List(Signo.ListIndex) = "*" Then
NumC.Text = Val(NumA.Text) * Val(NumB.Text)  'Marcar * en lista , multiplicar
End If
End Sub

Private Sub Form_Load()
Signo.AddItem "+"
Signo.AddItem "-"
Signo.AddItem "/"
Signo.AddItem "*"
End Sub



te falto poner en lo demas

Código (vb) [Seleccionar] Expandir


Signo.ListIndex



Aun asi revisa y leete un Manual de Basic

[oJosLoCos]

Jejej , ok

tranquilos que seguro que regreso con nuevas dudas... pues aun me queda mucho por hacer.. pero por ahora almenos funciona. xD

[WestOn]

Wenas a todos, veo que esto murio hace 3 dias pero esque el titulo me gusto bastante...
Yo si estaria interesado en hacer una calculadora con opciones basicas para realizar ecuaciones hasta de 2º grado, el plan seria generan ecuaciones aleatorias, que las procesase y se guardara la respuesta...como un sudoku que hay por aqui publicado..
Lo que hiciste aqui es sumar, restar, multiplicar y dividir, no veo las ecuaciones jeje 

Un par de dudas aprovechando este post:
-¿Como represento un numero elevado al cuadrado?
...bueno ahora no tengo mas dudas de momento, voy a ponerme a ello y ya si tengo alguna duda os la comunico por aqui..

Saludos