Make your own free website on Tripod.com

 

Loop. Avisador

 

 

Interfaz

 

 

 

Programación

 

Entra el siguiente código en el comando Avisador:

 

Private Sub Command1_Click()

   Dim comienzo, final, segundos As Integer

   comienzo = Timer

   segundos = Text1.Text

  Do While final < segundos

      final = Timer - comienzo

      Label1.Caption = final

      DoEvents

  Loop

     Label1.Caption = "terminado"

    MsgBox "Aviso: terminó la cuenta"

End Sub

 

El Label.Caption del Label1 se utiliza para exhibir múltiples mensajes, además del mensaje inicial, como el conteo y “terminado”.

 

 

Home | VB |