Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Zeit Differenz rückwärts ablaufen lassen ?
Autor: Corgan
Datum: 15.09.01 14:56
das sieht ja schon mal ganz gut aus. ABER: wie baue ich das in mein array ein ? es muss ja festgestellt werden welche pause als nächstes dran ist und dann die zeit bis zur nächsten berechnen. die muss dann boch rückwärts ablaufen. brauche ich dazu nen zweiten timer ? hab voll das brett vorm kopf danke corgan mein listing sieht so aus: Option Explicit Dim pause(1 To 8) As Date Dim s$ Dim x& Dim flag& Dim i As Integer Private Sub Timer1_Timer() Label1.Caption = Time$ If form2.Check5.Value = True Then pause(1) = form2.Text1.Text pause(2) = form2.Text2.Text pause(3) = form2.Text3.Text pause(4) = form2.Text4.Text pause(5) = form2.Text5.Text pause(6) = form2.Text6.Text pause(7) = form2.Text7.Text pause(8) = form2.Text8.Text Else pause(1) = "08:45:00" pause(2) = "09:15:00" pause(3) = "10:30:00" pause(4) = "11:15:00" pause(5) = "12:15:00" pause(6) = "13:00:00" pause(7) = "14:15:00" pause(8) = "15:00:00" End If For i = 1 To 8 If pause(i) = Time$ Then play End If Next i End Sub

Zeit Differenz rückwärts ablaufen lassen ?	71	Corgan	15.09.01 00:41
Re: Zeit Differenz rückwärts ablaufen lassen ?	331	Dieter	15.09.01 14:21
Re: Zeit Differenz rückwärts ablaufen lassen ?	38	Corgan	15.09.01 14:56

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