Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 542 fois - Téléchargée 45 fois
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
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
l'alarme ne sonne pas................
fais plutôt en exe et mets direct le source mais je ne pense pas avoir mal fait qch
++
l'alarme ne sonne pas................
fais plutôt en exe et mets direct le source mais je ne pense pas avoir mal fait qch
++
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.