Ako používať časovač v jazyku Visual Basic

Ovládacie Timer v jazyku Visual Basic je veľmi užitočné zariadenie , ktoré vyšle impulz k aplikácii vo vopred stanovených intervaloch . Ovládanie možno zobrazovať aktualizácie na tom , ako dlho nainštalovať je s odpočítavaním , sledovať , čo užívateľ robí , alebo vykonať iné rutiny , zatiaľ čo hlavný program beží . Pokiaľ sa jedná o Visual Basic Express , čo je program , NET , niektoré slová kódu sa bude líšiť . Veci , ktoré budete potrebovať
Visual Basic
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte Visual Basic a vyberte ako " Nový projekt " " Štandardné EXE . " Kliknite na " Súbor " a " Uložiť Form1 ako " a dať mu meno ako " timerproject . " Potom kliknite na tlačidlo " Uložiť projekt ako " a pomenujte ju " Timer projektu . " Visual Basic používa správne prípony súborov v predvolenom nastavení .
2

Zmeniť " Titulok " vlastnosť v paneli Properties na pravom dolnom rohu na " Control Timer . "
3

Umiestnite ovládací prvok Timer na formulári dvojitým kliknutím na " Timer " kontrola , ktorá sa objaví ako ikona hodín , v paneli nástrojov v ľavom paneli . Kontrola nebude vidieť , keď program beží . Pre upresnenie , kliknite a pretiahnite ju na dolnom rohu formulára .
4

Dajte štítok na formulári poklepaním na ovládací prvok " Label " , zastúpená veľkým písmenom " A " v toolbox . Kliknite na " Label " , teraz na formulári , a potom v paneli Vlastnosti zmeniť názov štítku na " Clock " a odstrániť písmená , ktorá v titulku riadku . Tento postup opakujte pre druhý štítok a pomenujte ju " pozdrav . " Zmeniť šírku oboch značiek do roku 2000 .
5

Kliknite na položku Zobraziť > Kód hore otvorte okno kód . Napíšte kód pre udalosť timer . To je len príklad , pre kontrolu požadovaného časovača používa budete musieť upraviť kód , aby to , čo chcete , aby robil : Private Sub Form_Load ( ) Timer1.Interval = 5000 ' čísla predstavujú milisekúnd , takže 5000 sa rovná raz každých 5 sekúnd , zmena to žiaduce periodCall Timer1_TimerEnd SubPrivate Sub Timer1_Timer ( ) Dim strGreeting1 , strGreeting2 , strTime Ako StringstrTime = Time $ Clock.Caption = Time $ strGreeting = " Zdravím ! " Ak Mid $ ( strTime , 7 , 1 ) = " 1 " ThenGreeting . caption = strGreetingElse : Greeting.Caption = " " End Sub IfEnd
6

Otestujte kódovanie stlačením " F5 " . Aktuálny čas by sa mal zobraziť a aktualizovať každých 5 sekúnd . Keď prvá číslica na displeji sekúnd spadá medzi 10 a 19 , sa slová " Dobrý deň ! " sa zobrazí a potom zmizne za 50 sekúnd . Ak ani jeden z týchto udalostí sa stane , skontrolujte kód v kroku päť pre presnosť .
7

Turn to do konečného programu kliknutím na Súbor > časovačom Project.exe.Run program , nech ste kdekoľvek chytá .

• Predchádzajúca strana: História Visual Basic 6.0 
• Ďalšia strana: Ako vytvoriť funkcie v jazyku Visual Basic