Časovač v VB6

Stopky je nástroj, který ... No, nemyslím si, že je třeba vysvětlit, co jsou stopky, spíše by měli pochopit, jak se dělá Visual Basic 6.

Funkce jsou velmi jednoduché: tlačítko Start, který se zastaví stopky se spustí brzy, počítat sekundy od okamžiku, zatím.

Kliknutím na tlačítko, zatímco jeho popisku je zastavit se hodiny zastaví a resetuje.

Máme-li vytvořit nový EXE v našem kopii VB6 a vytvářet formuláře, přidání popisku, velení a časovač:

Přiřadit popisek je jméno, název tlačítka ovládání a přiřadit jméno čas časovače.

My Poklepejte na časovač a přidejte následující kód:

 Private Sub tempo_Timer ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Stačí jít na zvýšení hodnoty na štítku jednotky.

Čím složitější kód se použije pro tlačítko:

 Private Sub comando_Click ()



    



 Pokud se comando.Caption = "Start" a pak



        



 tempo.Enabled = True



        



 comando.Caption = "Stop"



        



 Výzva tempo_Timer



        



 tempo.Interval = 1000



    



 Jiný



        



 tempo.Enabled = False



        



 comando.Caption = "Start"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 End If







 End Sub

Máme ověřeno, že jeho start je capition, v tom případě jdeme s cílem:

• Povolit časovač na;
• přejmenovat titulek tlačítka v nabídce Start se zastavit;
• volání funkce, které zvýší časovače;
• nastavit druhou (1000) intervalový běh.

V tuto chvíli je čas pryč a bude vypadat takto:

Klikněte zastavíte, v době spuštění, program vstoupí Else podmíněného bloku a provádět následující funkce:

• časovač vypnout;
• mění titulek tlačítka z Stop Start;
• zastavit interval;
• obnovit hodnotu stopky.