Flagga

Nu har jag lyckats skapa en liten alarmklocka :)

En sak återstår dock, då jag har intervallet 1 sekund, så visas popup fönstret upp till 60 gånger. Det räcker ju så att säga med en. :)

Det har jag försökt att lösa med variabeln/Flaggan "a", men det har inte hjälpt. När man trycker på "ok" i pop up fönstret så kommer genast ett nytt.(så länge det är samma minut)

Private Sub Timer1_Timer()

Form1.Caption = Format(Now(), "hh:nn:ss")

a = 0

Alarm = Combo2.Text & ":" & Combo3.Text

If (Format(Time, "hh:mm") = Format(Alarm, "hh:mm")) And a = 0 Then

If (Option1 = True) Then

MsgBox "Alarm reminder!"

a = 1

End If

End If

End Sub

Det kan ju möjligtvis bero på att du sätter a till 0 varje gång du kommer in i suben. a måste så klart initialiseras utanför suben. Ett annat alternativ är att deklarerar den inne i suben som "static" och skippar raden "a=0".

Tack.