Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Komischster Timer der Welt
Autor: OldMan
Datum: 21.11.05 20:35
Public x As Integer Public b As Boolean Private Sub Timer_Timer() If b = True Then If Text1 > x Then Text1 = Text1 - 1 If Text1 < x Then Text1 = Text1 + 1 If Text1 = x Then b = False Else Randomize Timer x = CInt(Rnd * 199 + 1) Timer.Interval = CInt(Rnd * 100 + 10) b = True End If End Sub Falls es zu schnell/langsam geht oder der Wertebreich nicht stimmt dann musst du die Werte beim rnd abändern.

Komischster Timer der Welt	605	Don El Greeko	21.11.05 19:45
Re: Komischster Timer der Welt	412	OldMan	21.11.05 20:35
Re: Komischster Timer der Welt	463	Lacoste	21.11.05 20:43
Re: Komischster Timer der Welt	386	Don El Greeko	21.11.05 23:15

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