Tid , kritisk i många områden i livet , ofta spelar en viktig roll i mjukvaruutveckling också. Vissa spel , exempelvis kan bestå av moduler som måste känna till den exakta tiden ner till millisekund . VB.NET utvecklare har tillgång till en användbar . NET-kontroll som kallas "Timer ". Dra helt enkelt en av dessa kontroller på din projektets form och . Nätnamn det Timer1 om inga andra timers finns . Din ansökan kan sedan använda Timer1 att utlösa händelser i intervall du anger . Instruktioner
1
Launch Visual Studio. Klicka på " Arkiv " -menyn , och klicka sedan på " Ny " för att visa en lista med alternativ . Klicka på " Projekt " alternativet , och klicka sedan på " Visual Basic . "
2
Dubbelklicka på " Windows Forms Application . " Visual Studio skapar ett nytt Windows- formulär projektet . En ny form visas i projektets design fönster .
3
Klicka på " Visa " -menyn , och klicka sedan på "verktygslåda " för att visa Visual Studio verktygslåda . Leta reda på " Timer " kontrollen i verktygslådan , och dubbelklicka på den kontrollen . En kontroll som heter Timer1 visas under formuläret längst ned på skärmen .
4
Högerklicka " Timer1 , " och klicka sedan på "Egenskaper" för att visa timerns fönstret Egenskaper . Klicka på "Arrow " ikon längst upp i fönstret . Den " Tick " händelse visas . Dubbelklicka på den ikonen . Visual Studio öppnar koden fönstret och visar " Timer1_Tick " sub . Denna sub körs varje gång Timer1 fästingar . Du bestämmer hur ofta timern fästingar genom att dess " Intervall " property
5
Klistra in följande kod i innan sub s " End Sub " uttalande : .
Timer1.Stop ( )
MessageBox.Show ( " Tick händelsen utlöses . Tick Counter = " & tickCounter.ToString ( ) ) katalog p Om tickCounter < tickCounterLimit Sedan
Timer1.Start ( )
tickCounter = tickCounter + 1
End If
Denna kod --- som körs när Timer1 fästingar --- stoppar timern och öppnar en meddelanderuta . Meddelanderutan visar värdet för en variabel som heter tickCounter . Den " Om " uttalande efter MessageBox.Show uttalande startar timern om värdet av tickCounter är mindre än den tid du ställt in variabeln med namnet tickCounterLimit . Koden lägger sedan 1 till tickCounter variabeln
6
Flytta till toppen av koden fönstret och klistra in koden som visas nedan över alla andra uttalanden i koden fönstret : .
privat tickCounter
privat timerInterval
privat tickCounterLimit
Dessa uttalanden definierar tre variabler som används av andra subs i ansökan .
7
Tryck F7 . Formuläret återkommer i koden fönstret . Dubbelklicka på formen namnlist överst i formuläret . Koden öppnas och visar " Form1_Load " sub . Det körs när dina formulärdata laster
8
Klistra in följande kod före detta sub s " End Sub " uttalande : .
TickCounter = 1
timerInterval = 2000
tickCounterLimit = 3 bilder
Timer1.Interval = timerInterval
Timer1.Start ( ) katalog
första uttalandet anger värdet av tickCounter variabel till 1 . Den timerInterval variabeln innehåller värdet " 2000 " i detta exempel. Det är antalet millisekunder timern ska vänta innan du utför " Timer1_Tick " sub . Den tickCounterLimit variabeln sätter en gräns för hur många gånger koden kommer att ringa " Timer1_Tick " sub . Den Timer1.Start metoden startar timern .
9
Tryck " F5 ". att driva projektet . Formen visas och timern börjar ticka . Efter 2000 millisekunder förflyta , körs koden inuti Timer1_Tick sub . Denna kod visar en meddelanderuta som visar värdet av tickCounter variabeln . Detta värde är 1 .
10
Tryck " Enter " för att stänga meddelanderutan . Koden körs vidare , steg fästingen räknevariabeln med 1 och återstartar timer . 2000 millisekunder senare , visas meddelandet visas igen och tickCounter variabelns värde som nu läser 2 .
11
Tryck " Enter " en sista gång . Meddelanderutan visar 3 för variabelns värde . Eftersom du anger värdet för tickCounterLimit till 3 , inte starta om timern inte . Addera
