✔ Einfachen Timer erstellen - Start, Pause, Stopp, Reset

[Terminator2]

Hi,

Bei mir stecken die Probleme mal wieder in den Details und daher weiß ich im moment nicht so ganz genau, warum es so schwer ist, eine einfache Stoppuhr zu erstellen.
Mithilfe von 4 Buttons sollen die Funktionen des Timers gesteuert werden und in einem Label die Zeit angezeigt werden.
Hat jemand einen Link oder nen Quellcode dafür?

Vielen Dank im vorraus

 

[DevHB]

Hi,

Stopuhr

Stop Uhr (alle Projektdateien)

Stop Uhr mit 8 Stellen Genauigkeit nach dem Komma. Es wird der Timer verwendet. Kommastellen können eingestellt werden. Pausefunktion und Zwischenzeit können im Textfeld ausgegeben werden. Komplettes Projekt von Timo Böhme.

 

[Terminator2]

Super Programm.

Da hatte wohl jemand mehr Ahnung als ich

Ich hasse es, Anfänger zu sein...

Aber die Zeit für nen richtigen Kurs hab ich nich, und Lust auch nich, also muss ich mir alles selbst erarbeiten mit der freundlichen Unterstützung von diesem Forum ;-)

 

[DevHB]

Hi,

so habe ich auch angefangen bzw. das meißte gelernt, meiner Meinung nach normal.

Viel Spaß weiterhin.

 

[Terminator2]

So, ich melde mich nochmal. Habe das Programm jetzt bei mir eingebunden und direkt mal feststellen müssen, dass da Buttons drinnen sind, die ich gar nicht kenne. Die sehen aus wie normale Buttons, sind aber Check Boxen... kA...

Jedenfalls habe ich mir das jetzt so überlegt, dass ich mit meinen wirklichen Tasten diese Check-Box-Tasten fernsteuern will. Hier erstmal der Code, in dem die Ereignisse sind, die ausgeführt werden, wenn man auf einen dieser Boxen klickt:

Private Sub CheckStopUhr_Click(Index As Integer)
 If ClTrue = False Then Exit Sub
 ClTrue = False
 If Index = 0 And TimerStopUhr.Enabled = True Then Index = 3

 Select Case Index

 Case 0 'Start
  ZeitReset
    CheckStopUhr(0).Value = 1
  Watch.Start = Timer
  Call UhrAktiv(True)
  TimerStopUhr.Enabled = True
  TextZeit(1).Text = Zeit(Watch.Start, Kommastellen)
  Verlauf 1
 Case 1 'Pause
  Watch.Pause = Timer
  'Call UhrAktiv(False)
 Case 2 'Zwischenzeit
  Verlauf 3
  CheckStopUhr(2).Value = 0
 Case 3 'Stop
  Call UhrAktiv(False)
  TimerStopUhr.Enabled = False
  CheckStopUhr(0).Value = 0
  CheckStopUhr(3).Value = 0
  TimerStopUhr.Enabled = False
  TextZeit(2).Text = Zeit(Timer, Kommastellen)
  TextZeit(3).Text = Zeit(Timer - Watch.Start, Kommastellen)
  Verlauf 2
  Verlauf 3
 Case 4 'Reset
  ZeitReset
 End Select
 ClTrue = True
End Sub

So, und jetzt die Index-Werte der einzelnen Tasten:
Start: 14
Pause: 15
Zwischenzeit: 16
Stop: 17
Reset: 18

Jetzt bräuchte ich einen Befehl, den ich in das Klick Ereignis einer meiner normalen Tasten einfügen kann, welcher dann diese Tasten mit den Index-Werten fernsteuert.

Vielen Dank!