HPR - Visual Basic 6
Időmérője (timer) használnak, hogy végre egy műveletet, miután egy bizonyos ideig. A fő elemei az ingatlan - Interval - adja meg az időtartamot, amely meghatározza, hogy milyen gyakran az időzítő értesítenie kell az alkalmazást. Interval tulajdonság ezredmásodpercben van megadva (= 1000 ms-1 másodperc). Meg kell jegyezni, hogy a lehetséges legnagyobb értéke az ingatlan értéke 65 másodperc.
Az egyetlen esemény időzítő - Timer. Ahhoz, hogy megtanulják, hogyan kell dolgozni az eseményt, hozzon létre egy új projektet, helyezze azt egy űrlap elem időzítő. Állítsa be az értéket a Interval 1000 (1 másodperc). A Timer1_Timer esetben illessze be az alábbi kódot:
Az alábbiakban bemutatjuk néhány példát az időzítő.
Végrehajtása „készenléti” funkció VB
Ez a példa megmutatja, hogyan lehet végrehajtani a készenléti funkció VB. Eleinte fel az alakja egy időzítő (Timer1), és állítsa a tulajdonság Enabled = False. Ahhoz, hogy tesztelni az eljárást, adjunk hozzá két címke (Label1 és Label2) és egy parancs gombot (Command1) a formában. Írja be a következő rutin és az esemény kódját Timer időzítő:
Public Sub Wait (másodperc)
Timer1.Enabled = True „kapcsoló időzítő
Timer1.Interval = 1000 * másodperc beállítása intervallum időzítő
Míg Timer1.Interval> 0
DoEvents
irányít
Timer1.Enabled = False „Off Timer
End Sub
Private Sub Timer1_Timer ()
Timer1.Interval = 0
End Sub
Most már használhatja a Wait funkciót bárhol bármilyen késedelem, például:
Private Sub Command1_Click ()
Label1.Caption = Most
Várj (5)
Label2.Caption = Most
End Sub
Például az szükséges, hogy minden két percben történt mindenesetre
A hátránya ennek a módszernek, hogy adjunk a programot további változókat. Ezen túlmenően a program tesztelése egy teszt üzemmódban, amikor a terhelés a számítógép nem volt. És nem világos, hogy hogyan kell viselkedni ebben a programban valós módban.
Dim n As Long, s As Long
Private Sub Form_Load ()
n = 1
End Sub
Private Sub Timer1_Timer ()
s = s + 1
Select Case s
Case 120 * n „120 - a percek számát
Form2.Show „esemény: show-forma
n = n + 1
End Select
End Sub
Az oldalon van optimalizálva 1024x768 felbontással