Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - oJosLoCos

#31
Puesto asi sigue dando error , no hay una manera de separar las acciones?

Me refiero a
Case "+"
            txtB2.Text = Val(txtB.Text) - Val(txtB.Text) 'eliminar B del lado izquierdo
            txtC2.Text = Val(txtC.Text) - Val(txtB.Text) 'Pasar rest

ai 2 acciones en esas 2 lineas , no es necesario separarlas?
#32
Si , es un combox , es una lista donde estan los signos para escoger.

#33
case en vez de if , ok , provare aver si asi funciona , pero aun asi nose si sabra identificar 2 ordenes.

Si es un comandbuton.  Al aPRETARLE me devera hacer 2 operaciones distintas ,una para el txtA2 , y otra para el txtB2 , osea para que salgan los resultados en esas 2 cajas de texto.  Es posible? o cada comandbuton deve efectuar solo una cosa.
#34
Buenas , tengo un problema

Estoy desarroyando un programa que resuelva ecuaciones de primer grado.

De forma sencilla tengo Ax +  B = C
Teniendo en cuenta que B puede tener distintos signos , ya sea + , - , / , *

Apretando un boton , un comand buton desos , quiero que aparezca el resultado de la operacion , dependiendo del signo escogido , en 2 cuadros distintos.

Me refiero a : Ax + B = C
                   Ax - B = C-B
Quedando el resultado , debajo , en 2 cajas de texto nuevas , una  acada lado del igual. Un mismo boton , deve hacer que salgan esos resultados en las 2 cajas.
eL PROBLEMA esta en que lo he escrito de esta forma :

Private Sub Command1_Click()
If cboSignoB = "+" Then
txtB2.Text = Val(txtB.Text) - Val(txtB.Text) 'eliminar B del lado izquierdo

txtC2.Text = Val(txtC.Text) - Val(txtB.Text) 'Pasar restando al lado derecho

ElseIf cboSignoB = "-" Then
txtB2.Text = Val(txtB.Text) - Val(txtB.Text)
ElseIf cboSignoB = "/" Then
txtB2.Text = Val(txtB.Text) - Val(txtB.Text)
ElseIf cboSignoB = "*" Then
txtB2.Text = Val(txtB.Text) - Val(txtB.Text)
End If
End Sub

Pero no lo hace , me salta un error . Nose si es porque un mismo boton no puede efectuar 2 cosas a la vez o porque hay que separar una accion de la otra.

Alguna sugerencia?
#35
Jejej , ok

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

#36
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.
#37
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
#38
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?
#39
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.
#40
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...