Ein Timer in VB6

Eine Stoppuhr ist ein Werkzeug, das ... na ja, ich glaube nicht, ist es angebracht zu erklären, was eine Stoppuhr sollte vielmehr verstehen, wie eine Visual Basic 6 zu machen.

Die Funktionen sind sehr einfach: ein Start-Knopf, der die Stoppuhr wird in Kürze begonnen werden, das Zählen der Sekunden nach dem mittlerweile.

Durch Klicken auf die Taste erneut, während die Beschriftung Stop, wird die Uhr zurückgesetzt, und zu stoppen.

Wir schaffen eine neue EXE in unserer Kopie VB6 und ein Formular erstellen, indem ein Label, einen Befehl und einen Timer:

Weisen Sie das Etikett den Namen, den Namen des Knopf-Bedienung und weisen Sie den Namen, um die Timer-Zeit.

Wir doppelklicken Sie auf den Timer und fügen Sie den folgenden Code ein:

 Private Sub tempo_Timer ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Gehen Sie einfach auf den Wert des Labels einer Einheit zu erhöhen.

Je komplexer der Code, um die Schaltfläche angewendet werden:

 Private Sub comando_Click ()



    



 Wenn comando.Caption = "Start" Dann



        



 tempo.Enabled = True



        



 comando.Caption = "Stop"



        



 Rufen tempo_Timer



        



 tempo.Interval = 1000



    



 Sonst



        



 tempo.Enabled = False



        



 comando.Caption = "Start"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 End If







 End Sub

Wir prüfen zunächst, dass seine capition Start ist in diesem Fall gehen wir, in dieser Reihenfolge:

• Aktivieren Sie den Timer zu laufen;
• Benennen Sie die Beschriftung der Schaltfläche Start, um Stop;
• um die Funktion aufzurufen, die Stufen der Timer;
• Um einen zweiten (1000) Intervall-Timer läuft.

An dieser Stelle um die Uhr ist weg und wird wie folgt aussehen:

Klicken Sie erneut auf Stop, zur Laufzeit des Programms wird der Else bedingten Block eingeben, und führen Sie die folgenden Funktionen:

• Deaktivieren der Timer;
• Änderung der Beschriftung der Schaltfläche von Stopp zu Start;
• um das Intervall zu beenden;
• um die Stoppuhr zurückzustellen Wert.