Mensajes

[Private Sub Igual_Click()]

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..

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

[Private Sub Igual_Click()If Signo.List = "+" ThenNumC = Val(NumA) + Val(NumB) 'Marcar + en lista , sumarElseIf Signo.List = "-" ThenNumC = Val(NumA) - Val(NumB) 'Marcar - en lista , restarElseIf Signo.List = "/" ThenNumC = Val(NumA) / Val(NumB) 'Marcar / en lista, dividirElseIf Signo.List = "*" ThenNumC = Val(NumA) * Val(NumB) 'Marcar * en lista , multiplicarEnd IfEnd Sub]

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..

[Private Sub Igual_Click()If Signo.List = "+" ThenNumC = Val(NumA) + Val(NumB) 'Marcar + en lista , sumarEnd SubPrivate Sub Igual_Click()If Signo.List = "-" ThenNumC = Val(NumA) - Val(NumB) 'Marcar - en lista , restarEnd SubPrivate Sub Igual_Click()If Signo.List = "/" ThenNumC = Val(NumA) / Val(NumB) 'Marcar / en lista, dividirEnd SubPrivate Sub Igual_Click()If Signo.List = "*" ThenNumC = Val(NumA) * Val(NumB) 'Marcar * en lista , multiplicarEnd SubEnd Sub]

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

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

Pero seguramente si te an baneado una vez volveran a hacerlo .

Vigila e informate de como evitar que te baneen.

saludos