 Autor
|
Tema: Resolver ecuaciones Visual Basic 6.0 (Leído 29,757 veces)
|
VonN
 Desconectado
Mensajes: 151
Learnin' Python&C++
|
Puedes copiar por entero tu código, creo que será mas fácil. Trata de utilizar GeShi 
|
|
|
|
|
En línea
|
  Se toma por necios a aquellos que dicen lo que todos pesamos |
|
|
oJosLoCos
Desconectado
Mensajes: 54
Aficionado a GTA IV Online
|
Option Explicit
Private Sub Igual_Click()
If Signo.List = "+" Then
NumC = Val(NumA) + Val(NumB) 'Marcar + en lista , sumar
ElseIf Signo.List = "-" Then
NumC = Val(NumA) - Val(NumB) 'Marcar - en lista , restar
ElseIf Signo.List = "/" Then
NumC = Val(NumA) / Val(NumB) 'Marcar / en lista, dividir
ElseIf Signo.List = "*" Then
NumC = Val(NumA) * Val(NumB) 'Marcar * en lista , multiplicar
End If
End Sub
Disculpa no se que es eso de ghesi.. xD
Esque a la hora de ejecutar da error...
|
|
|
|
|
En línea
|
|
|
|
VonN
Desconectado
Mensajes: 151
Learnin' Python&C++
|
Eso es todo?  Bien, supongo que en tu form pusiste un textbox o un label. |
|
|
|
|
En línea
|
Se toma por necios a aquellos que dicen lo que todos pesamos |
|
|
oJosLoCos
Desconectado
Mensajes: 54
Aficionado a GTA IV Online
|
Si , el codigo es ese.. y ya da error.
Hay 2 cajas de texto que son NumA y NumB
hay una lista de opciones a escoger que hay + - / * (4 opciones)
Hay un comandbuton , que se llama Igual
Luego hay otra caja de texto , que es NumC , donde deberia salir el resultado de la operacion..
Y he puesto condiciones , que dependiendo de lo que se marque en la lista de opciones , se haga un aoperacion u otra.. si marco + , al darle al comandbuton Igual , pues que efectue una suma y aparezca el resultado en NumC , pero nada.. no funciona.
|
|
|
|
|
En línea
|
|
|
|
VonN
Desconectado
Mensajes: 151
Learnin' Python&C++
|
Ahora entiendo, bien: En las cajas de ingreso, para obtener su valor: Val(NumA.text) Val(NumB.text)
Para asignarles el valor a la caja de "resultado": NumC.text=Val(NumA.Text) + Val(NumB.text)
Te recomiendo que comienzas a usar algunos estándares de VB, ejemplos: En buttons utiliza: Cmd_Mybutton Cmd_Resultado CmdResultado En textbox: TxtNum1 Txt_Num2 En labels: Lbl_Num1 LblNum2 De esa forma es más fácil leer el código. Al principio cuando comencé leyendo el code, NUMA y NUMB parecían variables más que nada. Un saludo |
|
|
|
|
En línea
|
Se toma por necios a aquellos que dicen lo que todos pesamos |
|
|
oJosLoCos
Desconectado
Mensajes: 54
Aficionado a GTA IV Online
|
Ok , empezare a usarlos segun ese criterio.
He reparado el asunto de los .text
Pero ahora al darle al comanbuton , me sale un error
Error de compilacion: el argumento no es opcional
Y me subralla en amarillo:
Private Sub Igual_Click()
If Signo.List = "+" Then
NumC.Text = Val(NumA.Text) + Val(NumB.Text) 'Marcar + en lista , sumar
ElseIf Signo.List = "-" Then
NumC.Text = Val(NumA.Text) - Val(NumB.Text) 'Marcar - en lista , restar
ElseIf Signo.List = "/" Then
NumC.Text = Val(NumA.Text) / Val(NumB.Text) 'Marcar / en lista, dividir
ElseIf Signo.List = "*" Then
NumC.Text = Val(NumA.Text) * Val(NumB.Text) 'Marcar * en lista , multiplicar
End If
End Sub
A que se deve?
|
|
|
|
|
En línea
|
|
|
|
VonN
Desconectado
Mensajes: 151
Learnin' Python&C++
|
Te marca el error en el método que utilizas no en la propiedad del componente. Bien, te dejo un ejemplo de como utilizar el listbox: Private Sub Command1_Click() If List1.List(List1.ListIndex) = "+" Then Label1.Caption = Val(Text1.Text) + Val(Text2.Text) End If End Sub Private Sub Form_Load() List1.AddItem "+" List1.AddItem "-" Text1.Text = "" Text2.Text = "" Label1.Caption = "" End Sub
|
|
|
|
|
En línea
|
Se toma por necios a aquellos que dicen lo que todos pesamos |
|
|
|
|
oJosLoCos
Desconectado
Mensajes: 54
Aficionado a GTA IV Online
|
aqui sta el codigo final
Private Sub Igual_Click()
If Signo.List(Signo.ListIndex) = "+" Then
NumC.Text = Val(NumA.Text) + Val(NumB.Text) 'Marcar + en lista , sumar
ElseIf Signo.List = "-" Then
NumC.Text = Val(NumA.Text) - Val(NumB.Text) 'Marcar - en lista , restar
ElseIf Signo.List = "/" Then
NumC.Text = Val(NumA.Text) / Val(NumB.Text) 'Marcar / en lista, dividir
ElseIf Signo.List = "*" 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
Lo amarillo es el error que me sigue dando.. u.u ya me desespero
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
mejor solución no existe.¡!
|
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
|
 |
