Časovač v VB6

Stopky je nástroj, ktorý ... No, nemyslím si, že je potrebné vysvetliť, čo sú stopky, skôr by mali pochopiť, ako sa robí Visual Basic 6.

Funkcie sú veľmi jednoduché: tlačidlo Štart, ktorý sa zastaví stopky sa spustí čoskoro, počítať sekundy od okamihu, zatiaľ.

Kliknutím na tlačidlo, zatiaľ čo jeho popisku je zastaviť sa hodiny zastaví a resetuje.

Ak máme vytvoriť nový EXE v našom kópiu VB6 a vytvárať formuláre, pridanie popisku, velenie a časovač:

Priradiť popis je meno, názov tlačidla ovládania a priradiť meno čas časovača.

My Dvakrát kliknite na časovač a pridajte nasledujúci kód:

 Private Sub tempo_Timer ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Stačí ísť na zvýšenie hodnoty na štítku jednotky.

Čím zložitejší kód sa použije na tlačidlo:

 Private Sub comando_Click ()



    



 Ak sa comando.Caption = "Štart" a potom



        



 tempo.Enabled = True



        



 comando.Caption = "Stop"



        



 Výzva tempo_Timer



        



 tempo.Interval = 1000



    



 Iný



        



 tempo.Enabled = False



        



 comando.Caption = "Štart"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 End If







 End Sub

Máme overené, že jeho štart je capition, v tom prípade ideme s cieľom:

• Povoliť časovač na;
• premenovať titulok tlačidla v ponuke Štart sa zastaviť;
• volanie funkcie, ktoré zvýšia časovača;
• nastaviť druhú (1000) intervalový beh.

V tejto chvíli je čas preč a bude vyzerať takto:

Kliknite zastavíte, v čase spustenia, program vstúpi Else podmieneného bloku a vykonávať nasledujúce funkcie:

• časovač vypnúť;
• mení titulok tlačidla z Stop Start;
• zastaviť interval;
• obnoviť hodnotu stopky.