 Autor
|
Tema: Duda Ejecucion de 2 acciones apretando un mismo boton (Leído 3,185 veces)
|
oJosLoCos
 Desconectado
Mensajes: 54
Aficionado a GTA IV Online
|
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?
|
|
|
|
|
En línea
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
Que es exactamente este control? cboSignoB Es un ComboBox? Si es así creo que no lo lees bien  Por cierto, podrías utilizar un SelectCase... Select Case Signo Case "+" bla Case "-" bla Case "*" bla Case "\" bla End Select
|
|
|
|
|
En línea
|
|
|
|
oJosLoCos
Desconectado
Mensajes: 54
Aficionado a GTA IV Online
|
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.
|
|
|
|
|
En línea
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
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.
Es un CommandButton puedes hacer tantas acciones como quieras... Pero mi pregunta era de donde sacas el signo? De un ComboBox?
|
|
|
|
|
En línea
|
|
|
|
oJosLoCos
Desconectado
Mensajes: 54
Aficionado a GTA IV Online
|
Si , es un combox , es una lista donde estan los signos para escoger.
|
|
|
|
|
En línea
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
Si , es un combox , es una lista donde estan los signos para escoger.
Estonces tienes que hacerlo asi: Private Sub Command1_Click() Select Case cboSignoB.List(cboSignoB.ListIndex) Case "+" 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 Case "-" txtB2.Text = Val(txtB.Text) - Val(txtB.Text) Case "/" txtB2.Text = Val(txtB.Text) - Val(txtB.Text) Case "*" txtB2.Text = Val(txtB.Text) - Val(txtB.Text) End Select End Sub
|
|
|
|
|
En línea
|
|
|
|
oJosLoCos
Desconectado
Mensajes: 54
Aficionado a GTA IV Online
|
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?
|
|
|
|
|
En línea
|
|
|
|
|
 |
