UNE BELLE PETITE ALARME......
cs_Mémère
Messages postés
222
Date d'inscription
samedi 24 mars 2001
Statut
Membre
Dernière intervention
24 juin 2007
-
30 déc. 2001 à 11:57
abbas_f Messages postés 15 Date d'inscription jeudi 7 septembre 2006 Statut Membre Dernière intervention 24 août 2007 - 8 déc. 2006 à 13:20
abbas_f Messages postés 15 Date d'inscription jeudi 7 septembre 2006 Statut Membre Dernière intervention 24 août 2007 - 8 déc. 2006 à 13:20
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
https://codes-sources.commentcamarche.net/source/2288-une-belle-petite-alarme
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