UNE BELLE PETITE ALARME......

Signaler
Messages postés
223
Date d'inscription
samedi 24 mars 2001
Statut
Modérateur
Dernière intervention
24 juin 2007
-
Messages postés
15
Date d'inscription
jeudi 7 septembre 2006
Statut
Membre
Dernière intervention
24 août 2007
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2288-une-belle-petite-alarme

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
Messages postés
11
Date d'inscription
samedi 1 septembre 2001
Statut
Membre
Dernière intervention
20 mai 2002

Oo , je suis désoler petit :(
Messages postés
223
Date d'inscription
samedi 24 mars 2001
Statut
Modérateur
Dernière intervention
24 juin 2007

ENTER LE TEMPS DALARME ?