Tarea 6

PROGRAMACION

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