Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Skúste kódovanie aplikácie , ktorá simuluje odpočítavanie . Užívateľ zadá počet sekúnd , program je nastaviť časovač od , program robí odpočítavanie , zobrazenie počtu zostávajúcich sekúnd a vizuálne upozornenie na konci odpočítavanie 
 
 Na začiatku tohto projektu . otvoriť Visual Basic IDE ( integrované vývojové prostredie ) . Vyberte " Súbor " > " Nový" > "Windows Forms . " V okne Form Designer , pretiahnite nasledujúce ovládacie prvky do formulára z panela nástrojov . Najprv pretiahnite textové pole pre užívateľa na zadanie počtu sekúnd odpočítavať . Podľa tohto textového poľa miesto druhej jednom programe , aby zobrazoval zostávajúci sekundy . Pod týmto druhého textového poľa , namiesto tlačidla pre užívateľa na spustenie časovača . Tiež, pretiahnite ovládací prvok časovač do formulára . Užívateľ neuvidí túto kontrolu , ale váš kód . 
 
 Zmeňte vlastnosť text na tlačidlo " Štart " . Uistite sa , že v prípade každé písmeno zodpovedá " Spustiť " . Môžete pristupovať okno Vlastnosti sa " Zobraziť " > " Vlastnosti " . 
 Písanie programu 
 
 Teraz , keď ste nastavili formulára , písať kód ktorý používa formulár pre komunikáciu s užívateľom . Dvakrát kliknite na tlačidlo . Okna kód sa objaví , s kurzorom vnútri prázdne funkcie button1_Click . Táto funkcia bude volaná , keď užívateľ stlačí tlačidlo vášho formulára . 
 
 Prvá časť nasledujúci kód nastaví interval časovača v milisekundách a spustí časovač nastavením jeho " Enabled " vlastnosť . Tieto akcie sa stalo iba v prípade textu na tlačidle nápis " Spustiť " . 
 
 Private Sub Button1_Click ( ... [ argumenty vynechané pre prehľadnosť ] ) Ak je ( Button1.Text = " Štart " ) ThennSecsLeft = CInt ( TextBox1.Text ) Button1.Text = " Zastaviť " Timer1.Interval = 1000Timer1.Enabled = TrueElseButton1.Text = " Štart " Timer1.Enabled = False 
 
 End Sub IfEnd 
 
 druhú časť kódu , od Else , spracováva prípad , kedy časovač je už spustená . Program vypne časovač prostredníctvom " Enabled " majetku a zmení text tlačidlá umožňujúce reštartovanie programu . 
 Časovače udalostí 
 
 každý druhý ( 1000 milisekúnd ) , ktorý prechádza spôsobí funkcie Timer1_Tick vykonať . Vaše aplikácie musí urobiť niekoľko vecí v tejto funkcii : povedzte užívateľovi , koľko sekúnd zostať v odpočítavanie a detekovať koniec odpočítavanie , a keď sa odpočítavanie skončí , vypnite časovač a upozorní užívateľa . Nasledujúci kód dokončí tieto úlohy . 
 
Private Sub Timer1_Tick ( ... ) a
 TextBox2.Text = nSecsLeftIf ( nSecsLeft = 0 ) ThenTimer1.Enabled = FalseMsgBox ( " Hotovo ! " ) 
 
 Button1.Text = " Štart " ElsenSecsLeft = nSecsLeft - 1 
 
 End If 
 
 End Sub 
 
 spustite hotový program . Potom sa experimentovať s ním . Napríklad , písať kód , ktorý sa ešte niečo okrem zobrazí okno so správou .