Launch Visual Studio 1 . Klik op het menu "Bestand " en klik vervolgens op " Nieuw " om een lijst met opties weer te geven . Klik op de optie ' Project ' , en klik op ' Visual Basic . " Kopen van 2

Dubbelklik op" Windows Forms Application . " Visual Studio maakt een nieuwe project Windows . Een nieuwe vorm verschijnt in Design -venster van het project .
3

Klik op het menu " View " en klik vervolgens op " Toolbox " om Visual Studio toolbox bekijken . Zoek de " Timer " controle in de toolbox , en dubbelklik op die controle . Een controle met de naam Timer1 verschijnt onder het formulier aan de onderkant van het scherm .

Klik met de rechtermuisknop " Timer1 , " 4 en vervolgens op "Eigenschappen" om het venster van de timer Eigenschappen bekijken . Klik op de " Pijl" vormige icoon aan de bovenkant van het venster . De " Tick " event verschijnt . Dubbelklik op dat icoon. Visual Studio opent het venster code en geeft de " Timer1_Tick " sub . Deze sub rijdt elke keer Timer1 tikken . U bepaalt hoe vaak de timertikken door de " Interval " eigenschap
5

Plak de volgende code in voor de sub 's "End Sub " statement : .

Timer1.Stop
( )

MessageBox.Show
( " Tick event getriggerd . Vink Counter = " & tickCounter.ToString ( ) ) op

Als tickCounter < tickCounterLimit dan

Timer1.Start ( ) op < br

tickCounter > = tickCounter + 1

End
Als

Deze code --- die bij Timer1 teken loopt --- stopt de timer en opent een message box . De boodschap wordt de waarde van een variabele met de naam tickCounter . De " Als " verklaring na de MessageBox.Show verklaring herstart de timer als de waarde van tickCounter lager is dan de termijn die u in de variabele genaamd tickCounterLimit ingesteld . De code voegt vervolgens 1 om de tickCounter variabele

Move 6 aan de bovenkant van het venster code en plak de code hieronder weergegeven boven alle andere uitspraken in het venster code : .

prive tickCounter

prive TimerInterval

prive tickCounterLimit

Deze verklaringen definiëren drie variabelen die worden gebruikt door andere subs in de applicatie .

Druk F7 7 . Het formulier verschijnt weer in het venster code . Dubbelklik op het formulier de titelbalk aan de bovenkant van het formulier . De code-venster wordt geopend en de " Form1_Load " sub . Dit loopt wanneer uw formulier wordt geladen
8

Plak de volgende code voordat van deze sub " End Sub " statement : .

TickCounter
= 1

TimerInterval
= 2000 < br

tickCounterLimit > =

Timer1.Interval 3
= TimerInterval

Timer1.Start ( )

de eerste verklaring stelt de waarde van de tickCounter variabele naar 1 . De TimerInterval variabele bevat de waarde " 2000 " in dit voorbeeld . Dat is het aantal milliseconden de timer zal wachten voordat het uitvoeren van de " Timer1_Tick " sub . De tickCounterLimit variabele stelt een limiet aan het aantal keren dat de code zal de " Timer1_Tick " sub noemen . De Timer1.Start werkwijze start de timer .

Druk op " F5 . " 9 om het project uit te voeren. Het formulier verschijnt , en de timer start tikken . Na 2000 milliseconden verstreken , de code binnen de Timer1_Tick sub loopt . Deze code geeft een bericht weer dat de waarde van de tickCounter variabele toont . Deze waarde is 1 .

Druk 10 " Enter" om het berichtvenster te sluiten . De code wordt verdergezet , stappen de teek Counter variabele door 1 en start de timer . 2000 milliseconden later , de boodschap menu verschijnt weer en toont de waarde van de tickCounter variabele die nu leest 2 .

Druk 11 " Enter " een laatste keer . Het bericht toont 3 voor de waarde van de variabele . Omdat u de waarde van tickCounterLimit ingesteld op 3 , hoeft de timer niet

herstarten .