Programación Vb
Es un despertador.
Crea un nuevo proyecto con el nombre del formulario AlarmForm.
Coloca un temporizador llamado Timer1. Coloque una etiqueta denominada lblTime.
El código es el siguiente:
Opción explícita
Atenuar hora de alarma
Const conMinimized = 1
Private Subform_Click()
AlarmTime = InputBox("Ingrese la hora para iniciar el despertador", "VB despertador", hora de la alarma).
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
Private subform_Resize()
Si WindowState = conMinimized Then 'Si el formulario está minimizado, muestra la hora en el título.
SetCaptionTime
Otro
Caption = "Despertador"
Terminará si...
Conector final
Private Sub SetCaptionTime()
Caption = formato (hora, "tiempo medio") 'Muestra la hora en formato de tiempo medio.
Conector final
Subtimer1_Timer() privado
La alerta estática suena como un número entero
Si lblTime. Título lt gtCStr(time)
El número actual de segundos es diferente de los segundos mostrados.
Si time gt=hora de alarma y hora sin alarma
Sonido de pitido
MsgBox "La alarma comienza a las"
Sonido de alarma; = True
ElseIf Time ltEntonces llame a la policía
AlarmSounded = False
Terminará si...
If WindowState = conMinimized , Entonces
Si está minimizado, el título del formulario debe actualizarse cada minuto.
if Minute(CDate(Caption)) lt; gt minutes (time), luego configure la hora del título.
Otro
De lo contrario, el título de la etiqueta se actualiza. cada segundo una vez.
lblHora. Título=Hora
Terminará si...
Terminará si...
Finalizar conector