Despertador 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...
End Connector
Private Sub SetCaptionTime()
Caption = format (time, "Medium time") '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<& gtCStr(Time)
El número actual de segundos es diferente de los segundos mostrados.
Si hora>=hora de alarma y hora sin alarma
Sonido de pitido
MsgBox "La alarma comienza a las" & hora
AlarmaSounded = True
ElseIf Time & ltentonces llama a la policía
AlarmSounded = False
Si... terminará
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
Ver: ( La página original ha sido modificada, solo puedes usar instantáneas de Baidu, que pueden ser más lentas, así que ten más paciencia).
/c? 3B % BD % D8 % CD % BC & URL =/vista del artículo/% 3f textileid % 3d 7795 & b = 0 &a = 20 & user=Baidu