Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Geburtstagsprogramm
Autor: a1525587
Datum: 29.03.10 20:56
In Millisekunden kann ich es ja messen lassen und es dann mit DoEvents Sleep 1000 auf 1 sekunde erhöhen. Wenn man das Programm z.B. am 01.01.2010 Startet und es auf den 01.01.2010 eingestellt ist, dann Soll es ja noch ein paar sekunden einen Countdown runterzählen (so etwa 10 Sekunden) und dann sollte es entweder ein Bild, ein Song oder was anderes Starten (hab mir noch nicht genau überlegt, was es anschließend machen soll). Ich hatte schon mal in der Schule ein Countdown erstellt aber mit einer normalen Zahl. Hier das "Normale" Countdownprogramm: Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long) Dim dauer, zaehler As Integer Private Sub cmd_los_Click() dauer = tf_dauer For i = dauer To 1 Step -1 tf_count = i 'Pause von 1 sec. einbauen 'mache 1000 ms (= 1 Sekunde) Pause DoEvents Sleep 1000 Next i tf_count = "0" MsgBox (" Happy new Year ") End Sub So ähnlich wollte ich das Programm auch machen aber halt mit der Datumsfunktion.

Geburtstagsprogramm	2.829	a1525587	28.03.10 19:30
Re: Geburtstagsprogramm	2.121	Caron	28.03.10 19:45
Re: Geburtstagsprogramm	2.109	Zardoz	28.03.10 22:34
Re: Geburtstagsprogramm	2.156	a1525587	29.03.10 12:17
Re: Geburtstagsprogramm	2.125	Manfred X	29.03.10 12:24
Re: Geburtstagsprogramm	2.118	a1525587	29.03.10 20:56
Re: Geburtstagsprogramm	2.136	Manfred X	29.03.10 22:56
Re: Geburtstagsprogramm	2.105	a1525587	30.03.10 21:45
Re: Geburtstagsprogramm	2.104	Manfred X	30.03.10 22:14
Einfacher Rückwärtszähler	2.986	Manfred X	31.03.10 03:14
Re: Einfacher Rückwärtszähler	2.466	*Phönix*	01.04.10 00:46

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