|
|
Curso gratis continuando aprendiendo y ampliando conocimientos
|
|
Quizás no quedo claro lo siguiente:
Las instrucciones If/Then se usan para comprobar si lo que se
pone después del IF se cumple o no...
En caso de que se cumpla, se ejecutará todo lo que haya después.
de THEN... la sintaxis sería así:
IF <EXPRESIÓN> THEN <INSTRUCCIONES>
No copie los ejemplos escríbalos para
practicar, si los copia para practicar fíjese que no halla
ningún espacio de mas. Arte, cultura, educación y
entretenimientos en
www.estudiargratis.com.ar
Entonces cuando pusimos por
ejemplo: |
If a = vbYes Then
Show
Estamos diciendo que si se elige el botón “si” se ejecuta show (muestra lo
que se había ocultado)
Se
puede hacer también de la siguiente forma:
[<MÁS INSTRUCCIONES SI SE LAS PONE>]
En el primer método, se
procesan las intrucciones que hay en la siguiente línea y se continúa a
partir de ahí el programa. En el segundo caso, se busca END IF.
Pero, (...), existe otra instrucción que PUEDE acompañar al IF... THEN... y
es para los casos en los cuales el resultado de la expresión sea FALSO.
Si, ya sé que dije que cuando es falso se pasa a la siguiente línea, pero
eso es cuando no se usa la cláusula ELSE.
Con ésta, la definición de la instrucción "tomadora de decisiones" quedaría
así:
IF
<expresión> THEN <si se cumple> ELSE <si no se cumple>
Si le resulta mas cómodo:
Ejemplo:
|
Private Sub Command1_Click()
Dim a, b
f:
a = InputBox("Escriba quien da los mejores cursos (en minuscula)",
"Curso de programación")
If a = "javier" Then
b = MsgBox("muy bien, la respuesta es la correcta", vbOKOnly)
Else
b = MsgBox("no, no...", vbYesNo)
GoTo f
End If
End Sub
(no copie los ejemplos escríbalos en código para practicar
-si los copia posiblemente no andarán poseen espacios en blanco
de mas, esto es para que aprenda no para que copie y pegue como
robot ;) ) |
Otro ejemplo ahora
usando un dato devuelto por un text box que lo rellena el usuario:
|
Private Sub Command2_Click()
Dim a, b
a = Text1.Text
If a = "oculta" Then
b = MsgBox("muy bien, la respuesta es la correcta", vbOKOnly, "Hide")
Else
b = MsgBox("no, no...lo intenta de nuevo", vbYesonly)
End If
End Sub |
|
|
Nota: Las instrucciones en Basic no tienen porqué
estar cada una en una línea. Se pueden escribir varias instrucciones
en la misma línea, pero separándolas con el signo : (dos puntos).
Por ejemplo:
Nombre = "Javier" : Print Nombre
|
|
|
-