runterzählende zeit

Übersicht BlitzBasic Codearchiv

Neue Antwort erstellen

theBlade

Betreff: runterzählende zeit

 BeitragSo, Jul 25, 2004 16:31
Antworten mit Zitat
Benutzer-Profile anzeigen
das ist so eine uhr wie zB in THPS die von 2 minuten runterzählt. das ganze ist recht simpel gelöst und ich denke dass das prinzip klar wird.

vielleicht hilfts dem einen oder anderen ja sogar Wink

BlitzBasic: [AUSKLAPPEN] 
Global time = 120	;die gegebene zeit in sekunden
Global stampMin		;übrig bleibende minuten
Global stampSec		;  "       "     sekunden


oldtime = MilliSecs()

Repeat
Cls


If MilliSecs()-oldtime >= 1000 Then
	oldtime = MilliSecs()
	umrechnen()
End If


Text 0,0, "Time: "+stampMin+":"+stampSec


Flip
Until KeyDown(1)
End


Function umrechnen()

time = time - 1

stampMin = time/60
stampSec = time - (stampMin * 60)

End Function
"Ich bin wie ich bin. Die einen kennen mich, die anderen können mich." (Dr. Konrad Adenauer)

UTFSB -> (use the fuckin "suchen"-button)

User posted image <- link -.-

simi

 BeitragSo, Jul 25, 2004 17:27
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi,
ich denke es ist nicht sehr genau, wenn es genau sein müsste...
Wenn jetzt Millisecs()-oldtime irgendwie 1100 Millisekunden wären, dann würde jedesmal eine 1/10 Sekunde nicht dazugezählt.
Das passiert aber natürlich nur bei langsamen Programmen...
Und für Anfänger reicht diese Funktion längstens, und sie ist auch noch einfach und verständlich...

cu simi Very Happy

theBlade

 BeitragSo, Jul 25, 2004 17:33
Antworten mit Zitat
Benutzer-Profile anzeigen
mit =1000 geht leider nicht, aber ich denke nicht dass es in einem spiel notwendig ist die zeit auf die millisekunde genau zu berechnen.... Wink
"Ich bin wie ich bin. Die einen kennen mich, die anderen können mich." (Dr. Konrad Adenauer)

UTFSB -> (use the fuckin "suchen"-button)

User posted image <- link -.-

Xenon

 BeitragSo, Jul 25, 2004 17:46
Antworten mit Zitat
Benutzer-Profile anzeigen
Wenn mans genau will:

BlitzBasic: [AUSKLAPPEN] 
Const time = 120000 ; Millisekunden die man Zeit hat

starttime = MilliSecs()

Repeat
	Cls
	Text 0, 0, TimeToString$(time-(MilliSecs()-starttime))
	Flip
Until KeyDown(1) Or ((MilliSecs()-starttime) > time)
End

Function TimeToString$(time)
	zeit$ = AddZeros$(time Mod 1000, 3)
	time = time/1000
	If time = 0 Then Return zeit$
	zeit$ = AddZeros$(time Mod 60, 2)+":"+zeit$
	time = time/60
	If time = 0 Then Return zeit$
	zeit$ = AddZeros$(time Mod 60, 2)+":"+zeit$
	time = time/60
	If time = 0 Then Return zeit$
	zeit$ = time+":"+zeit$
	Return zeit$
End Function

Function AddZeros$(txt$, count)
	While Len(txt$) < count
		txt$ = "0"+txt$
	Wend
	Return txt$
End Function

Neue Antwort erstellen


Übersicht BlitzBasic Codearchiv

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group