none
hacer pausas en codigo access basic RRS feed

  • Pregunta

  • Muy buenas estoy haciendo un programeta de bingo y cuando me va cantando las bolas quiero que pare unos 5 segundos el codigo del procedimiento de evento del boton al hacer click.

    el codigo es muy sencillete es un for para una tabla y conforme va encontrando numeros que no han salido los pinta en rojo y reproduce un wav del numero, aqui es donde quiero que haga una pausa.

    Si alguien me hecha una mano le estare muy agradecido, un saludo

    viernes, 2 de febrero de 2007 22:43

Respuestas

  • A mano.... te puedes crear una funcion especifica.....

     

    Public Sub espera(segundos As Integer)
        Dim Wait
        Wait = DateAdd("s", segundos, Now)
        While Now < Wait
        Wend
    End Sub

    Y la llamas:

     

    Espera(5)

     

    Con APIs

     

    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

     

    Y la llamas:

     

    Sleep 5000

     

    Aunque si ejecutas un proceso cada x tiempo, podrías probar a ponerlo en el evento Timer del formulario, le pones como tiempo los segundos que quieras, y el solo va ejecutando el código (p.ej. mostrar el número)

    sábado, 3 de febrero de 2007 13:46