Estoy creando un programa para hacer la conversión de milímetros centímetros pero en esta parte no me sale y no se muy bien como es porque ya lo he intentado de varias maneras aversi me pueden ayudar. :huh:
Private Sub command1_Click()
If Option1 = True Then Text2 = Val(Text1) * 1000
ElseIf Option2 = True Then Text2 = Val(Text1) * 100
ElseIf Option3 = True Then Text2 = Val(Text1) * 10
ElseIf Option4 = True Then Text2 = Val(Text1) / 1000
End If
End Sub
me sale error en la primera linea "Private Sub command1_Click()" y me dice que Else sin If. Ojala me puedan ayudar.
saludos ;)
Private Sub command1_Click()
If Option1 = True Then
Text2 = Val(Text1) * 1000
ElseIf Option2 = True Then Text2 = Val(Text1) * 100
ElseIf Option3 = True Then Text2 = Val(Text1) * 10
ElseIf Option4 = True Then Text2 = Val(Text1) / 1000
End If
End Sub
Dessa pues muchas gracias fue tan sencillo la manera en como era la solución que me quede sorprendido. Y una ves mas gracias!!
Se puede hacer de muchas maneras, yo en tu caso lo hago así
Private Sub command1_Click()
If Option1 Then Text2 = Val(Text1) * 1000
If Option2 Then Text2 = Val(Text1) * 100
If Option3 Then Text2 = Val(Text1) * 10
If Option4 Then Text2 = Val(Text1) / 1000
End Sub
PD: tambien podes usar un select, saludos
gracias Dessa lo acabo de probar y tambien me funciono.
pero tengo otro problema también, estoy creando un programa el cual me da la tabla de multiplicar que yo quiera pero no se da enter despues de terminar por ejemplo:
2x2=4"aqui salen dos cuadritos"2x3=6"vuelven a salir dos cuaditos"2x4=8
y asi se va pero no se da el enter despues de que termina la primera multiplicacion osea quiero que se vea asi:
2x2=4
2x3=6
2x4=8
este es el codigo que tengo:
Private Sub Command1_Click()
Dim res As Long, retorno
For n = 1 To 10
res = Text1 * n
retorno = Chr(13) & Chr(10)
Text2 = Text2 & Text1 & "X" & n & "=" & res & retorno
Next n
End Sub
saludos! ;D
Text2 multiline (en diseño) ???
Ponle la propiedad de Multiline al textbox en TRUE y de pasada aprende visual basic :P
No seas malo YST, Saludos ;)
ps estoy aprendiendo pero lo que pasa esque como la escuela donde me dan clases de esto estara cerrada asta el 18 por causa de la influenza pues esperaba que me ayudaran.
pero si te molesta ayudar mejor ni contestes porque algunas otras personas que si te ayudan sin poner peros como tu.
YST, nunca habrá un subforo de ASM si te portas mal :xD
Cita de: Dessa en 11 Mayo 2009, 01:07 AM
YST, nunca habrá un subforo de ASM si te portas mal :xD
Entonces me disculpo :( todo sea por el subforo de ASM :xD
@ron tienes todo el derecho a preguntar pero porfavor busca primero en google porfavor.
Solución a los Problemas (http://www.google.com.ar/search?hl=es&client=firefox-a&rls=org.mozilla:es-AR:official&hs=C6I&ei=zWcHSpaNJNCrtgegveCaBw&sa=X&oi=spell&resnum=0&ct=result&cd=1&q=manual+de+visual+basic&spell=1)
Usos basicos de IF
If
If Objecto/Variable [Operador] Valor then
' Code si el valor es verdadero
End if
Con un ejemplo:
If Text1.Text = "Juan" then
Msgbox "Ha eres Juancho"
End if
Aqui dice If que si Text1.text tiene el texto "Juan" entonces muestre un mensaje..
Los operadores son varios puedes usarlos tambien asi:
If Text1.text <> "Juan" then
Msgbox "Tu no eres Juan..!!!, Escribe Juan..!!!"
end if
Estos " <> " Significan si no dice.., es este caso si el Text1 no dice "Juan" entonces muestra el mensaje..
If - And
Otra funcion If esto sirve cuando queremos verificar dos o mas valores al mismo tiempo.., por ejemplo un Login..
Code:
If Objeto/Variable [Operador] Valor And Objeto/Variable = Valor then
' Code si los valores son verdaderos
End if
Como ejemplo:
If Text1.Text = "Admin" And Text2.Text = "1234" then
MsgBox "Eres el Admin."
end if
Aqui decimos que si Text1 dice Admin y el Text2 dice "1234" entonces muestre el mensaje..
tambien podemos añadir mas And si queremos comprobar muchos mas valores..
If - Or
Una funcion mas IF, sirve para hacer dos o mas comparaciones con valor verdadero.., mejor lo explico con un ejemplo..
Code:
If Objeto/Var [Operador] "Valor1" or Objeto/Var = "Valor2" then
' Code si es Valor1 o es Valor2
End if
Con un ejemplo:
If Text1.text = "Admin" or Text1.text = "User" then
Msgbox "Bienvenido " & Text1.text
end if
Aqui compara el code si text1.text dice "Admin" si no dice "Admin" entonces compara el segundo valor.., si text1.text es "User" entonces muestra el mensaje..
Eso Fue lo basico, ahora else es facil..
Else
Else..., ahi viene el code si el valor que ponemos en If es negativo.., esto es sencillo solo poner else en medio del code:
If Objeto/Var [Operador] "Valor" then
' Code si es Verdadero
Else
' Code si es falso
end if
Con un ejemplo:
If Text1.text = "Juan" then
MsgBox "Bienvenido Juan.."
Else
MsgBox "Usuario Incorrecto..!!!"
end if
Asi aqui dice el code si text1.text es igual a "Juan" entonces me imprima el mensaje "Bienvenido Juan", y si text1.text no dice "Juan"..
entonces muestra el mensaje "Usuario Incorrecto..!!!"
Eso fue todo lo basico...
SaluDOS!!!
Cita de: 3D1 en 11 Mayo 2009, 12:38 PM
If - And
Otra funcion If esto sirve cuando queremos verificar dos o mas valores al mismo tiempo.., por ejemplo un Login..
Code:
If Objeto/Variable [Operador] Valor And Objeto/Variable = Valor then
' Code si los valores son verdaderos
End if
Como ejemplo:
If Text1.Text = "Admin" And Text2.Text = "1234" then
MsgBox "Eres el Admin."
end if
Aqui decimos que si Text1 dice Admin y el Text2 dice "1234" entonces muestre el mensaje..
tambien podemos añadir mas And si queremos comprobar muchos mas valores..
If - Or
Una funcion mas IF, sirve para hacer dos o mas comparaciones con valor verdadero.., mejor lo explico con un ejemplo..
Code:
If Objeto/Var [Operador] "Valor1" or Objeto/Var = "Valor2" then
' Code si es Valor1 o es Valor2
End if
Con un ejemplo:
If Text1.text = "Admin" or Text1.text = "User" then
Msgbox "Bienvenido " & Text1.text
end if
Aqui compara el code si text1.text dice "Admin" si no dice "Admin" entonces compara el segundo valor.., si text1.text es "User" entonces muestra el mensaje..
Cabe destacar un pekeño error de exprecion en el caso del And y el Or se esta haciendo uso de algo que creiamos cuando estabamos en la secundaria que nunca lo ibamos a usar la tabla de verdad si esa misma :-X osea V And V = V ; V And F = F ; V Or V = V ; V or F = V osea el la exprecion que este con el And deben cumplirse las dos condiciones y la que estan con Or solo se debe cumplir una de las dos para que sea verdadera... :silbar:
Saludos....
este es otro formato de if then con retorno directo a una variable
Variable=iif(SentenciaACumplir,SiEsVerdadero,SiesFalso)
Ejemplo:
En un Modulo pega este quita el Form y pon como proceso inicial a "Sub Main()".
Sub Main()
Dim años As Integer, r As String
años = Val(InputBox("Edad", "Edad", "18"))
r = CStr(InputBox("Raza", "Raza", "Albino"))
retorno = IIf(años < 18, "Menor de 18" & IIf(r <> "", ", y es " & r, ""), "Mayor de 18" & IIf(r <> "", ", y es " & r, ""))
MsgBox retorno, vbOKOnly + vbInformation, "Retorno No. 1"
Call Main2(Val(años), CStr(r))
End Sub
Sub Main2(ByVal Edad As Integer, Raza As String)
Dim años As Integer, r As String
años = Edad
r = Raza
retorno = IIf(r <> "", ", y es " & r, "")
retorno = IIf(años < 18, "Menor de 18" & retorno, "Mayor de 18" & retorno)
MsgBox retorno, vbOKOnly + vbInformation, "Retorno No. 2"
End Sub
proba con poner tantos endif cono else tenes, digo, no soy un experto, asi yotambien aprendo. suerte! tomi!