Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: das sind jetzt hunderstelsekunden!
Autor: Ronny42DAch
Datum: 10.01.02 18:27
Das mal in ein lehres Form geben mit Timer1 Timer2 Timer3 und Label1 Label2 Label3 Dim X As Long Dim ms As Long Dim sekZ As Long Dim Tsec As Long Dim secA As Variant Dim secB As Variant Private Sub Form_Initialize() Timer2.Interval = 0 Timer3.Interval = 1200 Timer3.Enabled = True End Sub Private Sub Timer1_Timer() 'Zählt im kleinsten TimerIntervall X = X + 1 If X > 30000 Then X = 30000 End Sub Private Sub Timer2_Timer() 'schreibt die hunderstel ms = ms + 1 If ms > 99 Then ms = 0 If ms = 0 Then sekZ = sekZ + 1 Label1 = ms Label2 = Time If ms = 0 Then Label3 = sekZ End Sub Private Sub Timer3_Timer() 'kalibriert die hunderstel Timer1.Interval = 1 Timer1.Enabled = True secA = Mid(Time, 8, 1) secB = Mid(Time, 8, 1) X = 0 Do DoEvents secB = Mid(Time, 8, 1) If Not secA = secB Then Tsec = X Exit Do End If Loop If Not Timer2.Enabled = True Then Timer2.Enabled = True Timer2.Interval = Tsec / 100 'die hunder sind die hunderstel Caption = Tsec End Sub

Countdown mit Millisekunden	168	Capslock	10.01.02 17:13
Re: Countdown mit Millisekunden	782	Dieter	10.01.02 17:32
Re: Countdown mit Millisekunden	145	Ronny42DAch	10.01.02 17:36
und nebenbei nachkaliebrieren	161	Ronny42DAch	10.01.02 17:39
Re: Countdown mit Millisekunden	140	Capslock	10.01.02 17:49
Re: Countdown mit Millisekunden	752	Dieter	10.01.02 18:00
Re: Countdown mit Millisekunden	142	Capslock	10.01.02 18:22
Re: das sind jetzt hunderstelsekunden!	141	Ronny42DAch	10.01.02 18:27
Re: das sind jetzt hunderstelsekunden!	142	Capslock	10.01.02 19:49
Letzter Versuch	743	Dieter	10.01.02 23:04
Re: Letzter Versuch	766	unbekannt	11.01.02 00:18
Re: Letzter Versuch	804	Dieter	11.01.02 00:21
Re: Letzter Versuch	145	Capslock	11.01.02 20:53

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen