Réveil

Télécharger le projet
Commenter

Description

sources d'un réveil réglable par heure minute seconde, et qui vous prévient par un msgbox

Source / Exemple : 


' 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

Conclusion :


ouè c ke mon 1er soft j'essayerai d'y mettre de l'ordre, mais si vous avez des remarque n'ésitez ou des amelioration a faire dites le. Tous mes sources seront bientot dispo sur mon site. http://www.steven007.fr.st
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_steven007)