RÉVEIL

' les sources sont qu'à titre d'information, elle est pas la pour la copie !!!
 ' Si vous avez des suggestion ou des remarque ou des idées, n'ésitez pas à laisser un commentaire sur le forum!

 ' le prog utilise 3 variable qui doivent être déclarées par Visual Basic, par
 ' des instructions Dim

 Option Explicit
 
Dim blnEncours As Boolean
Dim blnSonné As Boolean
Dim dtmheureRéveil As Date

'option marche
'blnEncours = True donc Activé ( Vrai )
'blnSonné = False ( désactivé ) ( Faux )
Private Sub Option1_Click()
blnEncours = True
blnSonné = False
dtmheureRéveil = Format(DTPicker1.Value, "short time")
End Sub
'pour avoir les info lorsque l'on minimize l'aplication
Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
Me.Caption = "Réveil à : " & _
IIf(blnEncours, dtmheureRéveil, " ")
Else
Me.Caption = "Réveil par steven007"
End If
End Sub
 
 ' DTPPicker ça propriété contient les informations horaires, et d'autre info invisibles concernant la date à laquelle le contrôle a été créé

Private Sub Option2_Click()
blnEncours = False
DTPicker1.SetFocus
End Sub

  ' le réveil est activé (blnEncours)
  ' le réveil n'a pas encore sonné (Not blnsonné)
  ' l'horloge système a atteint (ou dépassé) l'heure de réveil dévinie (Time >= dtmheureRéveil).
  ' la procédure Timer est la seule procédure événementielle d'un temporisateur
  
Private Sub Timer1_Timer()
'n'oublier pas de mettre le timer a 1000

If blnEncours And Not blnSonné And _
Time >= dtmheureRéveil Then
Beep
MsgBox "il est exactement " & _
Format(Time, "short time"), , "Réveil"
blnEncours = True
Option2.Value = True
End If
End Sub