Red de conocimiento informático - Problemas con los teléfonos móviles - Despertador programación Vb

Despertador programación Vb

Hay un ejemplo de alarma en la biblioteca de instancias de MSDN en 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