Cómo diseñar un temporizador en vb
Temporizador
para controlar el paso del tiempo de respuesta. Son independientes del usuario y se pueden programar para realizar acciones en intervalos específicos. Un uso común de este control es verificar el reloj del sistema y determinar si se debe realizar una determinada tarea. Para otros procesamientos en segundo plano,
los controles del temporizador también son muy útiles.
Cada control temporizador tiene un intervalo de tiempo.
Atributo que especifica el número de milisegundos entre eventos del temporizador. A menos que esta propiedad esté deshabilitada, el temporizador acepta eventos a intervalos aproximadamente iguales (es más apropiado llamarlo evento de temporizador).
Al programar un control de temporizador, debe considerar algunas restricciones en la propiedad Intervalo:
1 Si se está ejecutando una aplicación u otra aplicación que tiene requisitos de sistema más altos, pueden ocurrir eventos del temporizador de la aplicación. a intervalos mayores que .
El intervalo especificado por el atributo Intervalo es muy largo.
2. El intervalo puede estar entre 0 y 64.767 (inclusive), lo que significa que incluso el intervalo más largo no será mucho más largo que un minuto (aproximadamente 64,8 segundos).
3. Los intervalos no son necesariamente muy precisos. Para garantizar intervalos de tiempo precisos, el temporizador solo debe verificar el reloj del sistema cuando sea necesario, en lugar de rastrear el tiempo acumulado internamente.
4. El sistema genera 18 señales de reloj por segundo, por lo que aunque la propiedad del intervalo se mide en milisegundos, la precisión real del intervalo no es mejor que 18 de segundo. ?
Cada control temporizador debe estar asociado a un formulario. Entonces, para crear una aplicación de temporizador, debe crear al menos un formulario (no es necesario que el formulario sea visible si no lo necesita para completar otras operaciones).
Tenga en cuenta que en Visual Basic, la palabra "temporizador" tiene varios usos, cada uno de los cuales está relacionado con el temporizador.
El trabajo de control. Además del nombre y el tipo de control, "temporizador" también se utiliza para eventos y funciones del temporizador.
El siguiente es el proceso de diseño de código específico para una alarma:
Colocar un control de temporizador en el formulario
Cómo colocar un control de temporizador en el formulario Dibujar los demás controles de la misma manera: haga clic en el botón del temporizador en la caja de herramientas y arrástrelo al formulario.
El control del temporizador aparece en el formulario solo en tiempo de diseño, por lo que puede seleccionar el control, ver propiedades y escribir procedimientos de eventos. En tiempo de ejecución, el temporizador es invisible, por lo que su posición y tamaño no importan.
Inicializando el control del temporizador
El control del temporizador tiene dos propiedades clave.
Opción explícita
Atenuar hora de alarma
Const conMinimized = 1
Privada subform_Click()
AlarmTime = InputBox("Ingrese la hora para iniciar el despertador", "VB despertador", hora del despertador).
Si AlarmTime = " "Salir de Sub
Si no es IsDate (hora de alarma), entonces
MsgBox "La hora que ingresó no es válida".
La cadena "Else" devuelta por el InputBox constituye la hora válida,
AlarmTime = CDate(AlarmTime)' la almacena en la hora de la alarma como un valor de fecha/hora.
Terminará si...
Finalizar conector
Private subform_Load()
AlarmTime = " "
Conector final
Subform_Resize() privado
Si WindowState = conMinimized, ¿entonces? Si el formulario está minimizado, muestre la hora en el título.
SetCaptionTime
Otro
Caption = "Despertador"
Terminará si...
Conector final
Private Sub SetCaptionTime()
¿Caption = Format(Time, "tiempo medio")? Muestra la hora en formato de hora media.
Conector final
Subtimer1_Timer() privado
La alerta estática suena como un número entero
Si es lblTime. Título<& gtCStr(Time)
El número actual de segundos es diferente de los segundos mostrados.
If time>=hora de alarma y hora sin alarma
Sonido de pitido
MsgBox "La alarma comienza a las" & hora
AlarmSounded = True
ElseIf Time & ltEntonces llama a la policía
AlarmSounded = False
Terminará si...
If WindowState = conMinimized , entonces
Si está minimizado, el título del formulario debe actualizarse cada minuto.
Si Minuto(CDate(Caption))<& gt minutos(hora), establezca la hora del título
Otro
De lo contrario, el título del La etiqueta se establecerá cada actualización una vez por segundo.
lblHora. Título=Hora
Terminará si...
Terminará si...
Finalizar conector