[VB6] Stoppuhr mit Timer Intervall [beginner]

Stoppuhr mit Hilfe eines Timer Intervall

Vorwort
Hallo liebe Tutorials.de User, ich selbst bin ein Visual Basic Frischling, aber das, was ich herausgefunden habe, möchte ich euch ebenfalls zeigen.
Ich werde euch zeigen, wie man eine ganz simple Stoppuhr mit Hilfe eines Timers mit einer Intervall Funktion macht.

1. Beginn
Also, als erstes öffnen wir VisualBasic und erstellen ein Neues Projekt mit einer neuen Form.
Diese können wir natürlich in die gewünschte grösse bringen, dies liegt ganz bei euch.


2. "Schön" gestallten
Soo, man nehme: 3 CommandButtons, ein TextField und einen Timer.

1: Einmal aufs Symbol "A" klicken und auf die Form ziehen.
2: Nun noch aufs Symbol "B" klicken und ebenfalls in die Form ziehen.

Diese 4 (ohne Timer) schön auf die Form verteilen. Den Timer kann man "hinklatschen"
wohin ihr wollt, der wird nachher nicht zu sehen sein.

Beim Textfeld kann man als Text einfach "0" eingeben, oder auch leer lassen.



3. Timer Code
Wenn ihr einmal auf den Timer (diese Uhr in der Form) klickt, könnt ihr die Eigenschaften des Timers verändern. Wir belassen alles beim Standard, ausser bei Interval, dort stellen wir die Zahl von 0 auf 1000 (1000 bedeutet 1 Sec). Ist dies getan, machen wir einen Doppelklick auf den Timer. Eserscheint das Codefenster. Den folgenden Code dort einfügen.

Text1.Text = a --> d.h. der Text des Textfeldes soll a sein (Variable).

4. Der Start-Button
Ein kurzer Doppelklick auf den Start-Button und das Codefenster erscheint wieder, Folgenden
Code einfügen und der Startbutton ist schon geschafft.


5. Der Stop-Button
Ebenfalls ein Doppelklick, Code einfügen und tada, weiter gehts..


6. Der "0"-Button (Clearbutton)
Doppelklick auf den Reset-Button, das Codefenster kommt wieder und wie bekannt, diesen Code einfügen.

a = 0 --> a wird wieder auf 0 gesetzt
Text1.Text = "0" --> Text des TextFields wird auf "0" gesetzt
Timer1.Enabled = False --> Timer wird ausgeschaltet

7. Grundeinstellungen
Ohne diesen Code würde alles nicht ganz funktionieren, also ebenfalls einfügen.

a = 0 --> a wird, sobald EXE gestartet, auf 0 gestellt, also Timer wird auf 0 gestellt
Timer1.Enabled = False --> Der Timer wird, sobald die EXE gestartet wird, ausgestellt,
das der Timer nicht auf einmal anfängt, zu zählen.

8. Woher weiss das Programm eigentlich was a ist?
Ja, damit das Programm weiss, was a überhaupt ist, Doppelklick auf irgend einen Button auf der Form, es kommt das Codefenster,
nun bei den beiden Drop-Down Menus das Linke auswählen, und auf (General) oder auf deutsch (Allgemein) gehen. Nun sollte man ganz am Anfang des Codes sein, dort Tippt man noch den letzten Code ein:

Dim a as String

FERTIG. Run->Run und Loooooooos gehts. Viel Spass.
Hier könnt ihr noch den vollständigen Code sehen:


Hier http://www.tres-division.de/Stopuhr.zip könnt ihr das Projekt herunterladen.
MFG