Tarea 6
En el Do While, se ejecutan las instrucciones mientras sea cierta la expresión de control.
Ej.:
Private Sub Command1_Click( )
Dim Control as Long
On Error Resume Next Control = Text1.Text
Form1.BackColor = vbWhite
Do While Control <> 0
Label2.Caption = “Valor: ” & Control
If Form1.BackColor = vbWhite Then
Form1.BackColor = vbRed
Else
Form1.BackColor = vbWhite
End If
Control = Text1.Text
DoEvents
Loop
MsgBox “Loop completado”
End Sub
En el ejemplo presentado, la forma cambiará de color blanco a rojo y viceversa mientras el texto de Text1 sea diferente a cero (0). Tan pronto el valor del texto sea igual a cero, el ciclo terminarásu ejecución. Se utiliza la línea On Error Resume Next para indicarle a Visual Basic que siga ejecutando la forma, aún cuando ocurra un error de ejecución. Esta instrucción es necesaria dado que en elciclo Do While se lee continuamente el texto del Text1. Si la línea On Error Resume Next no se escribe y en algún momento se borra el texto para escribir otro valor, Visual Basic daría error al leerel texto en ese instante.
En Do While Control <> 0, la expresión de control es Control <> 0. Esta es la expresión que controla el ciclo. Al ser evaluada, solo puede tomar el valor de True (cierto) oFalse (falso). Dependiendo de ese valor, es ejecutado el ciclo. Si el valor es True, las instrucciones dentro del ciclo se ejecutan. Si el valor es False, Visual Basic ejecuta la instrucción que lesigue a la línea Loop. Esta expresión de control también se conoce como “boolean expression”.
La línea DoEvents es esencial, pues le indica a Visual Basic que en cada loop o ciclo espere unos segundospara recibir mensajes a través de Windows. Sin esta línea, el Do While se ejecutaría tan rápido que no sería posible hacer alguna entrada (input) al proyecto, asumiendo que sea necesario el...
Regístrate para leer el documento completo.