Une belle petite alarme......

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 504 fois - Téléchargée 45 fois

Contenu du snippet

Voila une belle petite alarme qui fonctionne heureusement

Source / Exemple :


Private Sub Form_Click()
    AlarmTime = InputBox("ENTER LE TEMPS DALARME", "VB Alarm", AlarmTime)
    If AlarmTime = "" Then Exit Sub
    If Not IsDate(AlarmTime) Then
        MsgBox "Le temps que vous avez entré est invalide"
    Else                                  
        AlarmTime = CDate(AlarmTime)        
    End If
End Sub

Private Sub Form_Load()
    AlarmTime = ""
End Sub

Private Sub Form_Resize()
    If WindowState = conMinimized Then    
        SetCaptionTime
    Else
        Caption = "Alarm Clock"
    End If
End Sub

Private Sub SetCaptionTime()
    Caption = Format(Time, "Medium Time")  
End Sub

Private Sub Timer1_Timer()
Static AlarmSounded As Integer
    If lblTime.Caption <> CStr(Time) Then
      
        If Time >= AlarmTime And Not AlarmSounded Then
            Beep
            MsgBox "Alarm at " & Time
            AlarmSounded = True
        ElseIf Time < AlarmTime Then
            AlarmSounded = False
        End If
        If WindowState = conMinimized Then
            
            If Minute(CDate(Caption)) <> Minute(Time) Then SetCaptionTime
        Else
           
            lblTime.Caption = Time
        End If
    End If
End Sub

A voir également

Ajouter un commentaire

Commentaires

Messages postés
15
Date d'inscription
jeudi 7 septembre 2006
Statut
Membre
Dernière intervention
24 août 2007

J'ai oublié de vous dire que "timer1.intervalle" doit etre > = 1
Messages postés
15
Date d'inscription
jeudi 7 septembre 2006
Statut
Membre
Dernière intervention
24 août 2007

Essayez ca

Dim a As Boolean
Dim AlarmSounded As Boolean
Dim AlarmTime As Date

Private Sub Form_Click()

On Error Resume Next
AlarmTime = InputBox("ENTER LE TEMPS DALARME", "VB Alarm")
If Not IsDate(AlarmTime) Then
MsgBox "Le temps que vous avez entré est invalide"
End If

a = True

End Sub

Private Sub Form_Load()
a = False
AlarmSounded = False
End Sub

Private Sub Form_Resize()

If WindowState = conMinimized Then
SetCaptionTime
Else
Caption = "Alarm Clock"
End If
End Sub

Private Sub SetCaptionTime()
Caption = Format(Time, "Medium Time")
End Sub

Private Sub Timer1_Timer()

If a = True Then

If Time >AlarmTime And AlarmSounded False Then
'While (1)
Beep
'Wend
MsgBox "Alarm at " & Time
AlarmSounded = True

End If
End If

End Sub
Messages postés
7
Date d'inscription
mardi 9 septembre 2003
Statut
Membre
Dernière intervention
2 février 2004

dsl chez moi non plus il ne marche pas...

l'alarme ne sonne pas................

fais plutôt en exe et mets direct le source mais je ne pense pas avoir mal fait qch

++
Messages postés
7
Date d'inscription
mardi 9 septembre 2003
Statut
Membre
Dernière intervention
2 février 2004

dsl chez moi non plus il ne marche pas...

l'alarme ne sonne pas................

fais plutôt en exe et mets direct le source mais je ne pense pas avoir mal fait qch

++
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
3
marche pas ton code
Afficher les 7 commentaires

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.