If ... End If problemas

[YST]

YST, nunca habrá un subforo de ASM si te portas mal 

Entonces me disculpo todo sea por el subforo de ASM

@ron tienes todo el derecho a preguntar pero porfavor busca primero en google porfavor. 

[seba123neo]

Solución a los Problemas

[EddyW]

Usos basicos de IF
If

Código (vb) [Seleccionar] Expandir

If Objecto/Variable [Operador] Valor then
' Code si el valor es verdadero
End if
Con un ejemplo:

Código (vb) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

If Objeto/Variable [Operador] Valor And Objeto/Variable = Valor then
' Code si los valores son verdaderos
End if
Como ejemplo:

Código (vb) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

If Objeto/Var [Operador] "Valor1" or Objeto/Var = "Valor2" then
       ' Code si es Valor1 o es Valor2
End if
Con un ejemplo:

Código [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

If Objeto/Var [Operador] "Valor" then
' Code si es Verdadero
Else
' Code si es falso
end if
Con un ejemplo:

Código (vb) [Seleccionar] Expandir

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

[Angeldj27]

If - And
Otra funcion If esto sirve cuando queremos verificar dos o mas valores al mismo tiempo.., por ejemplo un Login..
Code:

Código (vb) [Seleccionar] Expandir

If Objeto/Variable [Operador] Valor And Objeto/Variable = Valor then
' Code si los valores son verdaderos
End if
Como ejemplo:

Código (vb) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

If Objeto/Var [Operador] "Valor1" or Objeto/Var = "Valor2" then
       ' Code si es Valor1 o es Valor2
End if
Con un ejemplo:

Código [Seleccionar] Expandir

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

Saludos....

[BlackZeroX]

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()".

Código (vb) [Seleccionar] Expandir


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


[Castg!]

proba con poner tantos endif cono else tenes, digo, no soy un experto, asi yotambien aprendo. suerte! tomi!