Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Zeit vergangen
Autor: xmex
Datum: 31.01.03 17:14
Private Sub Timer1_Timer() Static nMin As Long nMin = nMin + 1 If nMin = 1 Then nMin = 1: MsgBox "1 Minute vorbei" ElseIf nMin > 2 Then nMin = 2: MsgBox "2 Minuten vorbei" End If End Sub Das klappt ja. Aber ich will ja nicht von 2 bis unendlich machen sondern das soll auch so einen +1 Ding haben. Also hab ich das Versucht: Private Sub Timer1_Timer() Static nMin As Long Static mehr As Long mehr = mehr + 1 nMin = nMin + 1 If nMin = 1 Then nMin = 1: MsgBox "1 Minute vorbei" ElseIf mehr > 2 Then mehr = 1: MsgBox mehr + " Minuten vorbei" End If End Sub Cya, gruß xmex

Zeit vergangen	386	xmex	31.01.03 15:44
Re: Zeit vergangen	61	Heinz	31.01.03 16:06
Re: Zeit vergangen	310	xmex	31.01.03 17:14
Re: Zeit vergangen	50	Heinz	31.01.03 20:10
ok danke es klappt aber ....	219	xmex	31.01.03 21:17
mach es ohne eine MsgBox	37	Heinz	31.01.03 21:50
Re: mach es ohne eine MsgBox	202	xmex	01.02.03 18:19
Re: Zeit vergangen	222	E7	01.02.03 22:07

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