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 .