Réveil

Soyez le premier à donner votre avis sur cette source.

Vue 3 545 fois - Téléchargée 327 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

Messages postés
6
Date d'inscription
lundi 17 décembre 2001
Statut
Membre
Dernière intervention
30 novembre 2002

J'ai déjà fait un réveil assez complèt si tu veux le voir.

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.