Ciclos (for, while, do...loop) u Condiciones(if,case) en VB.

    If...then...else.

    Este tipo de kondiciones es muy fácil de utlizar.  komo antes ya habíamos hecho un ejemplo fácil del if, es lo mismo. también si kieres o no necesitas poner el else, no lo pongas, siempre y kuando pongas al último el end if

expresión:  

if condicion then   'si(if)  "condición" entonces(then)

     sentencias o código.

else                      ' en caso contrario (else)

    sentencias o código.

end if

ejemplo:

 1.-Introduce 1 caja de texto y acomódala a tu gusto. (en la propiedad name ponle el nombre de caja y en la propiedad text borra lo ke tiene)

2.- Introduce un command button (botón). y acomódalo a tu gusto (en la propiedad name ponle el nombre de botón, en la propiedad caption ponle "teclea un número menor a 100").

3.-Introduce una etiketa (label) y  borra lo ke tenga en la propiedad caption y ponle de nombre resultado.

4.-Ahora introduce el siguiente kódigo o copealo y pégalo en VB y después korrelo por partes (F8) para ke veas ke es lo ke está haciendo.

Dim a As Integer
Private Sub boton_Click()
a = caja.Text
If a >= 100 Then
 resultado.Caption = "tecleaste un número mayor a 99"
Else
 resultado = "Muy bien, tu número no sobrepasa de 100 "
End If
End Sub

            Más o menos debe kedar así.

Iif ( iif )

    Este es otro tipo de condición pero es muy parecido al If then else.  Esta es la instrucción iif ke es kasi igual al if pero tiene su diferencia ke es la de (siguiendo kon el ejemplo anterior): en el iif al momento de ke pasa por la kondicion a>=100, si esto se cumple le asigna a b la parte verdadera porke se kumple, en otro kaso le asigna la parte falsa. En el if mientras tanto en el if se pueden poner más kondiciones ke en el iif ke solo es una para kada una (parte verdadera y para parte falsa).

expresión iif:  variable a la ke se le va a asignar el valor = (condición,valor verdadero,valor falso)

ahora eskribe este kódigo y borra el anterior, si lo korres kon F8 te darás kuenta de la diferencia .

Dim a As Integer
Private Sub boton_Click()
Dim b As String
a = caja.Text
b = IIf(a >= 100, "Tecleaste un número mayor a 99" _
, "Muy bien, tu número no sobrepasa de 100")
resultado = b

* si no entiendes por ke lo del guión bajo es para no hacer líneas muy largas, puedes poner antes de la coma un guión bajo y en otra línea eskribir la koma. ( de no enterder todavía preguntarme )

if then elseif...

    Este es parecido al if nada mas ke son anidados (juntos) sin tener ke poner siempre if then else end if ahora poner if then elseif then elseif then else end if (así pondriamos uno anidado)  ejemplo:

Borra el código ke eskribiste antes y ahora eskribe este para ke te des kuenta, como ves esto hace lo mismo ke los anteriores.

Dim a As Integer
Private Sub boton_Click() 'resultado = b
a = caja.Text
If a >= 100 Then
    resultado.Caption = "Tecleaste un número mayor a 99"
ElseIf a < 100 Then
    resultado = "Muy bien, tu número no sobrepasa de 100"
End If
End Sub

     Bajar el ejemplo de los 3 -------------> download

Select case...end select

    Esta sentencia permite ejekutar una de entre varias acciones en función del valor de una expresión, mejor para ke entiendan porke no sé explikarme bien vean el ejemplo:

1.-Introduce una etiketa (label) y ponle en caption "Teklea tu edad"

2.-Introduce una caja de texto (textbox) y borra lo ke tenga en la propiedad text y en nombre ponle caja, en el código verás otras kosas nuevas ke se van a explicar por su puesto.

Dim a As Integer
Private Sub caja_KeyPress(KeyAscii As Integer)  'aki usamos el evento keypress(tekla presionada)
If  KeyAscii = 13 Then
  a = caja.Text
  Select Case a
    Case Is < 5  'caso(case) es(is) menor (<) a 5
       MsgBox "Eres un bebé"
    Case 5  'caso sea igual a 5
      MsgBox "Eres un niño"
    Case 5 To 13 ' caso de 5 a(to) 13
      MsgBox "Te estas convirtiendo en adolecente"
    Case 13 To 19  'caso 13 a(to) 19
      MsgBox "Eres Joven"
    Case 20 To 35, 50, 60 To 65 'Caso(case) de 20 a(to) 35,sea igual a 50, de 60 a(to) 65
      MsgBox "Eres Adulto"
    Case Is > 65  'caso(case) es(is) mayor(>) a 65
      MsgBox "Te vas haciendo viejo"
    Case Else  'en caso contrario
      MsgBox "Nose ke decir es solo un ejemplo"
 End Select   'fin del select case
End If 
End Sub

El msgbox despliega en pantalla un cuadro de dialogo y espera a ke el  usuario seleccione un botón. El apostrofe nos sirve para poner komentarios sobre algo del kódigo u otra cosa y los pone de kolor verde sintaxis:   'el texto

Keypress: en la parte de arriba de donde eskribimos el kódigo se enkuentran en los kombos los objetos ke hemos insertados en el formulario y los eventos o procedimientos komo el keypress, la variable ke se tiene en el keypress llamada por default keyAscii (Private Sub caja_KeyPress(KeyAscii As Integer)) la podemos kambiar por otra pero sabemos ke esa variable tiene el ascii de la tekla presionada en la caja de texto, si kieres korrelo kon F8 para ke te des kuenta de los valores de las variable (con posicionar el mouse en la variable aparece su valor), al momento de llegar al end sub el formulario vuelve a funcionar así ke restauralo(dale clik  y vuelve a donde estaba porke se encuentra minimizado).

Akí muestro komo kon F8 si posiciona el mouse sobre la variable aparece el valor ke tiene en este kaso presioné un 1 y komo tecla = 49 y el 49 no es igual a 13 no va a entrar.

     Bajar el ejemplo del select case -------------> download

Para saber un ascii puedes hacer un programa tu solo por ejemplo este:

1.-Introduce una etiketa (label) una caja de texto (name=caja) y un boton (caption = Borrar) e introduce el siguiente kódigo:

Private Sub caja_KeyPress(KeyAscii As Integer)
Label1 = KeyAscii
End Sub
Private Sub Command1_Click()
caja.Text = ""
End Sub

Kada vez ke introduzcas una letra, en label aparecerá su ascii.

Ciclo While...wend

    La estructura o ciclo While...Wend ejecuta rápidamente una o más instrucciones mientras la condición ke le dimos sea se cumpla.

Sintaxis:

   While condicion
       [instrucciones]
   Wend

ejemplo:

1.-Crea un nuevo proyecto

2.-Dale doble klik en el formulario.

3.-Escribe este kódigo y kambia la propiedad del formulario autoredraw y ponla en verdadero (true) o si kieres kalalo kon false y verás ke pasa.

While i < 15   'Mientras(while) ke sea (<) menor a 15
  Print i           'print, imprime en el formulario lo ke se le diga
  i = i + 1       'se incrementa a i 1
Wend            'seguir haciendo el ciklo

Es muy fácil de utilizar.

    For...next

Repite un grupo de instrucciones, un número especificado de veces

sintaxis

For variable = expresion1 To expresion2 [Step expresion3]
   [sentencias]
   Exit For 'es kasi como un break, (rompe el ciclo y se sale)
   [sentencias]
Next [variable]

ejemplo:

1.- Borra e introduce el kódigo en donde eskribiste el del while...wend

For I = 0 To 15  'para i = 0 a 15 hacer lo siguiente
    Print I             'imprimir en el formulario la variable i
Next I                'siguiente i o ke siga el ciclo.

Si lo korres por pasos verás lo ke hace más preciso.

Do...Loop

ejemplo:

1.-Borra el kódigo donde introduciste lo del for e introduce este:

i = 0
Do                  'While i < 10 puedes eskribirlo aki o abajo, komo tu kieras
   i = i + 1   'aki inkremento la variable i
   Print i   'imprime la variable i
Loop While i < 10

Si lo korres por pasos verás lo ke hace más preciso (hace lo mismo ke el anterior. para salir o romper el ciclo se utiliza el exit do (parecido al break pero ne VB).

** Bueno, despues de tanto choro porke ya me kansé de eskribir tanto, si no me entienden eskribanme.  ¿Sabias ke puedes hacer ke un formulario hable? o te diga lo ke estas eskribiendo, en VB se puede hacer, ¿komo?, aki está:

1.-Abre un nuevo proyecto de exe standar.
2.-introduce una kaja de texto(textbox),borra lo ke tenga en text y de nombre ponle caja y un command button (botón)en la propiedad caption ponle este texto ke está entrecomillado "&hablar" ("&" es para ke aparezka un guión bajo en la h para ke al momento de ke les des alt+h se presione el botón) y de nombre ponle boton
3.-Deskarga estas utilidades aki mismo, ke es el kontrol para ke hable    ------------> download
4.-Después de deskargarlo ejecútalo o ábrelo e instálalo (muy fácil de instalar, nada más da clic en si (Yes)).
5.-Después de ke lo instalaste ve a VB.
6.-Ve al menú proyecto y vete a la opción de componentes (ctrl + T).
7.-Y buska el kontrol "Microsoft Direct text-to-speech" y ponle una palomita.
8.-En la barra donde se enkuentran los kontroles aktivex aparecerá una boca.
9.-Ahora introducela en el formulario komo si fuera una etiketa y en la propiedad name ponle el nombre de boca
10.-Dale doble klik al botón, introduce este pekeño kódigo:   ----->  boca.speak caja.text
11.-y es todo, espero y te guste. Dudas, kon virusjfk, ya saben.

  Más o menos keda así, si lo kieres ocultar, lo puedes hacer,namas da doble klik a la propiedad visibles (false).

Nota: Kreo ke en Windows XP ya existe este kontrol activex (Speechcontrol - Dircet to speech)  pero si kieren primero fijarse

Siguiente                                        Anterior