Timer w VB6

Stoper jest narzędziem, które ... no cóż, nie sądzę, należy wyjaśnić, co stoper, a powinni zrozumieć, jak zrobić Visual Basic 6.

Funkcje są bardzo proste: przycisk Start, że będzie zatrzymać stoper zostanie uruchomiona wkrótce, liczenie sekund od międzyczasie.

Kliknięcie przycisku ponownie, a jego podpis jest Stop, zegar zresetuje się i zatrzymuje się.

Tworzymy nowe EXE w naszym kopię VB6 i utworzyć formularz, dodając etykiety, polecenia i timer:

Przypisać etykietę z nazwą, nazwa przycisku sterowania i przypisać nazwę do czasu timera.

Mamy kliknij dwukrotnie zegar i dodaj następujący kod:

 Private Sub tempo_Timer ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Wystarczy przejść do zwiększenia wartości etykiecie urządzenia.

Im bardziej złożony kod zastosować do przycisku:

 Private Sub comando_Click ()



    



 Jeśli comando.Caption = "Start" Wtedy



        



 tempo.Enabled = True



        



 comando.Caption = "Zatrzymaj"



        



 Zadzwoń tempo_Timer



        



 tempo.Interval = 1000



    



 Więcej



        



 tempo.Enabled = False



        



 comando.Caption = "Start"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 End If







 End Sub

Sprawdzamy najpierw, że jest jego start capition, w tym przypadku idziemy, w celu:

• Włącz timer do uruchomienia;
• zmienić napis na przycisku z menu Start Stop;
• wywołania funkcji, które zwiększa zegar;
• ustawienia drugiego (1000) działa minutnik.

W tym momencie zegar zniknie i będzie wyglądać następująco:

Kliknij ponownie, aby zatrzymać, w czasie wykonywania programu wejdzie Else warunkowej i pełni następujące funkcje:

• wyłączenia zegara;
• zmiany podpis przycisk od momentu zatrzymania do Start;
• , aby zatrzymać przedział;
• zresetować wartość stopera.