---
title: "Flagga"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/57019-flagga"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Pellefant"
published: "2002-10-24T21:30:06.000Z"
updated: "2002-10-25T01:20:54.000Z"
replies: 2
views: 169
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/57019-flagga"
---

# Flagga

## #1 — Pellefant, 2002-10-24T21:30Z

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

Permalänk: https://www.webforum.nu/p/57019

## #2 — niko, 2002-10-25T00:14Z

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".

Permalänk: https://www.webforum.nu/p/834683

## #3 — Pellefant, 2002-10-25T01:20Z

Tack.

Permalänk: https://www.webforum.nu/p/834685

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/57019-flagga