Autor
|
Tema: Resolver ecuaciones Visual Basic 6.0 (Leído 29,616 veces)
|
oJosLoCos
Desconectado
Mensajes: 54
Aficionado a GTA IV Online
|
Hola , bueno gente , pues tengo que presentar un proyecto y se trata de un programa que resuelva ecuaciones de primer , segundo , tercer , cuarto y asta quinto grado.
Alguien sabria decirme donde puedo buscar codigos.. ayuda.. o alguien ha hecho algo semejante?
Esque soy principiante en visual basic.. y pues.. estoy atrancado , nose ni por donde empezar..
Entiendo los codigos y como funciona el lenguaje.
Saludos y gracias
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
Hola , bueno gente , pues tengo que presentar un proyecto y se trata de un programa que resuelva ecuaciones de primer , segundo , tercer , cuarto y asta quinto grado.
Alguien sabria decirme donde puedo buscar codigos.. ayuda.. o alguien ha hecho algo semejante?
Esque soy principiante en visual basic.. y pues.. estoy atrancado , nose ni por donde empezar..
Entiendo los codigos y como funciona el lenguaje.
Saludos y gracias
Te recomiendo que lo hagas con Clases, igual hay un metodo llamado Gaus que funciona para resolver ecuaciones que cuadren en si en filas como columnas (ambas deben ser la misma cantidad para este metodo) "cuadraticas" por decirlo de alguna forma (No se llaman así). usa la Wikipedia/ Google para ver sobre este metodo.
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
|
oJosLoCos
Desconectado
Mensajes: 54
Aficionado a GTA IV Online
|
Gracias ,lo mirare Una cosa.. he empezado a desarroyar algo , poco a poco.. y me da error al compilar Miren el codigo es el siguiente: Private Sub Igual_Click() If Signo.List = "+" Then NumC = Val(NumA) + Val(NumB) 'Marcar + en lista , sumar End Sub
Private Sub Igual_Click() If Signo.List = "-" Then NumC = Val(NumA) - Val(NumB) 'Marcar - en lista , restar End Sub
Private Sub Igual_Click() If Signo.List = "/" Then NumC = Val(NumA) / Val(NumB) 'Marcar / en lista, dividir End Sub
Private Sub Igual_Click() If Signo.List = "*" Then NumC = Val(NumA) * Val(NumB) 'Marcar * en lista , multiplicar End Sub
End Sub
Me da error " Se ha detectado un nombe ambiguo Igual_Click() , y marca el que he marcado en color. Nose si deveo explicar como esta hecho.. ueno hay 2 cajas de texto para introducir cifras ,una lista donde se pueden escoger los signos de suma , resta , dividir i multiplicar , un comand box para clicar y una caja de texto final donde sale el resultado. Saludos ,y aver si me pueden ayudar
|
|
|
En línea
|
|
|
|
VonN
Desconectado
Mensajes: 151
Learnin' Python&C++
|
Es porque estás utilizando un mismo evento, sobre un mismo objeto varias veces. Todas tus estructuras condicionales deberías ponerlas en un solo button, algo asi: Private Sub Igual_Click() If Signo.List = "+" Then NumC = Val(NumA) + Val(NumB) 'Marcar + en lista , sumar If Signo.List = "-" Then NumC = Val(NumA) - Val(NumB) 'Marcar - en lista , restar ... If Signo.List = "*" Then NumC = Val(NumA) * Val(NumB) 'Marcar * en lista , multiplicar End Sub
Acuerdate que te faltan los 'end if's'. En todo caso si vas a usar tantos if's anidados te recomiendo usar la estructura de control select case. 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
|
Ya lo he remodelado , siguiendo vuestros consejos y queda algo asi
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
No da error ni nada , pero a la hor ade ejecutar el programa , no funciona.. al presionar el comandbuton IGUAL , no responde , no hace absolutamente nada..
|
|
|
En línea
|
|
|
|
VonN
Desconectado
Mensajes: 151
Learnin' Python&C++
|
Pues ahi lo unico que hace es asignarle un valor a NumC unicamente, no te debería mostrar nada.
|
|
|
En línea
|
Se toma por necios a aquellos que dicen lo que todos pesamos
|
|
|
oJosLoCos
Desconectado
Mensajes: 54
Aficionado a GTA IV Online
|
Pero si yo le añado cifras a las ventanas de texto. Vamos que le doy un valor a NumA , y a NumB , me deberia hacer una operacion matematica para darme el valor de NumC.. sin envargo no hace nada.. Nose pq. si puedes agregarme al msn y lo hablamos mas detenidamente.. Jhn.tt@hotmail.com
|
|
|
En línea
|
|
|
|
VonN
Desconectado
Mensajes: 151
Learnin' Python&C++
|
La verdad es algo confusa tu lógica, en realidad deberías poner de esta manera para que aparezca en un label o textbox: Private Sub Igual_Click() If Signo.List = "+" Then NumC = Val(NumA) + Val(NumB) 'Marcar + en lista , sumar Text1.text=NumC 'Esto Label1.Caption=NumC 'O Esto 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
|
|
|
En línea
|
Se toma por necios a aquellos que dicen lo que todos pesamos
|
|
|
oJosLoCos
Desconectado
Mensajes: 54
Aficionado a GTA IV Online
|
Sigue diciendo que el argumento no es opcional.. Y me subralla Private Sub Igual_Click()
Osea lo primero que sale.. ya me dice que no.. u.u no lo entiendo..
|
|
|
En línea
|
|
|
|
|
|