abbas_f
Messages postés15Date d'inscriptionjeudi 7 septembre 2006StatutMembreDernière intervention24 août 2007 8 déc. 2006 à 13:20
J'ai oublié de vous dire que "timer1.intervalle" doit etre > = 1
abbas_f
Messages postés15Date d'inscriptionjeudi 7 septembre 2006StatutMembreDernière intervention24 août 2007 8 déc. 2006 à 12:21
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
Bestoftheweb
Messages postés7Date d'inscriptionmardi 9 septembre 2003StatutMembreDernière intervention 2 février 2004 9 sept. 2003 à 19:53
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
++
Bestoftheweb
Messages postés7Date d'inscriptionmardi 9 septembre 2003StatutMembreDernière intervention 2 février 2004 9 sept. 2003 à 19:53
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
++
pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 15 mars 2003 à 19:08
marche pas ton code
The man whit the long hair
Messages postés11Date d'inscriptionsamedi 1 septembre 2001StatutMembreDernière intervention20 mai 2002 1 janv. 2002 à 06:25
Oo , je suis désoler petit :(
cs_Mémère
Messages postés222Date d'inscriptionsamedi 24 mars 2001StatutMembreDernière intervention24 juin 2007 30 déc. 2001 à 11:57
8 déc. 2006 à 13:20
8 déc. 2006 à 12:21
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
9 sept. 2003 à 19:53
l'alarme ne sonne pas................
fais plutôt en exe et mets direct le source mais je ne pense pas avoir mal fait qch
++
9 sept. 2003 à 19:53
l'alarme ne sonne pas................
fais plutôt en exe et mets direct le source mais je ne pense pas avoir mal fait qch
++
15 mars 2003 à 19:08
1 janv. 2002 à 06:25
30 déc. 2001 à 11:57