Timerproblem fast behoben, aber nur fast

Übersicht

BlitzBasic

Beginners-Corner

	pb9823d Betreff: Timerproblem fast behoben, aber nur fast	Fr, Apr 08, 2005 10:31 Antworten mit Zitat
Hi, hab da eindlich im Forum einen Timer gefunden, der mit meinem Spiel kompatibel ist. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] While Not KeyHit(1) Cls hours = Floor(MilliSecs()/3600000) min = Floor(MilliSecs()/60000)-hours60 sec = Floor(MilliSecs()/1000)-min60-hours3600 Text 10,10,hours+\":\"+min+\":\"+sec Wend Nur leider beginnt der Timer irgendwo. Wie kann ich ihm sagen, dass er von Null beginnen soll? Ich habs mal mit BlitzBasic:* [AUSKLAPPEN] [EINKLAPPEN] hours#=0 min#=0 sec#=0 probiert, aber es kommt nur Müll raus.

pb9823d

Betreff: Timerproblem fast behoben, aber nur fast

Fr, Apr 08, 2005 10:31
Antworten mit Zitat

Hi, hab da eindlich im Forum einen Timer gefunden, der mit meinem Spiel kompatibel ist.

BlitzBasic: [AUSKLAPPEN]

While Not KeyHit(1)
Cls 
   hours = Floor(MilliSecs()/3600000) 
   min = Floor(MilliSecs()/60000)-hours*60 
   sec = Floor(MilliSecs()/1000)-min*60-hours*3600 
   Text 10,10,hours+\":\"+min+\":\"+sec 
Wend

Nur leider beginnt der Timer irgendwo. Wie kann ich ihm sagen, dass er von Null beginnen soll? Ich habs mal mit

BlitzBasic: [AUSKLAPPEN]

hours#=0
min#=0
sec#=0

probiert, aber es kommt nur Müll raus.

	Lord_Vader	Fr, Apr 08, 2005 10:38 Antworten mit Zitat
nein hours und die anderen : hours#=millisecs()

Lord_Vader

Fr, Apr 08, 2005 10:38
Antworten mit Zitat

nein hours und die anderen :

hours#=millisecs()

	Jan_ Ehemaliger Admin	Fr, Apr 08, 2005 11:09 Antworten mit Zitat
lol BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Startzeit=MilliSecs() While Not KeyHit(1) Cls hours = Floor((MilliSecs()-Startzeit)/3600000) min = Floor((MilliSecs()Startzeit)/60000)-hours60 sec = Floor((MilliSecs()-Startzeit)/1000)-min60-hours*3600 Text 10,10,hours+\":\"+min+\":\"+sec Wend
between angels and insects

Jan_

Ehemaliger Admin

Fr, Apr 08, 2005 11:09
Antworten mit Zitat

lol
BlitzBasic: [AUSKLAPPEN]


Startzeit=MilliSecs()
While Not KeyHit(1) 
Cls 
   hours = Floor((MilliSecs()-Startzeit)/3600000) 
   min = Floor((MilliSecs()Startzeit)/60000)-hours*60 
   sec = Floor((MilliSecs()-Startzeit)/1000)-min*60-hours*3600 
   Text 10,10,hours+\":\"+min+\":\"+sec 
Wend

between angels and insects

	Egon Dragon	Fr, Apr 08, 2005 11:09 Antworten mit Zitat
ungefähr so: Code: [AUSKLAPPEN] [EINKLAPPEN] anf_ms=Millisecs() While Not KeyHit(1) Cls hours = Floor( (MilliSecs()-anf_ms) /3600000) min = Floor( (MilliSecs()-anf_ms) /60000)-hours60 sec = Floor( (MilliSecs()-anf_ms) /1000)-min60-hours*3600 Text 10,10,hours+":"+min+":"+sec Wend EDIT: Mero! da war wohl einer 2 sekunden schneller!!!

Egon Dragon

Fr, Apr 08, 2005 11:09
Antworten mit Zitat

ungefähr so:

Code: [AUSKLAPPEN]

anf_ms=Millisecs()

While Not KeyHit(1)
Cls
hours = Floor( (MilliSecs()-anf_ms) /3600000)
min = Floor( (MilliSecs()-anf_ms) /60000)-hours*60
sec = Floor( (MilliSecs()-anf_ms) /1000)-min*60-hours*3600
Text 10,10,hours+":"+min+":"+sec
Wend

EDIT: Mero! da war wohl einer 2 sekunden schneller!!! Mad

Zuletzt bearbeitet von Egon Dragon am Fr, Apr 08, 2005 11:11, insgesamt einmal bearbeitet

	Jan_ Ehemaliger Admin	Fr, Apr 08, 2005 11:11 Antworten mit Zitat
hehe, 1.
between angels and insects

Jan_

Ehemaliger Admin

Fr, Apr 08, 2005 11:11
Antworten mit Zitat

hehe, 1.

between angels and insects

	Egon Dragon	Fr, Apr 08, 2005 11:12 Antworten mit Zitat
Bäbäbä!

Egon Dragon

Fr, Apr 08, 2005 11:12
Antworten mit Zitat

Bäbäbä!

	Hubsi	Fr, Apr 08, 2005 11:17 Antworten mit Zitat
Das Floor kann übrigens entfallen, da ohnehin mit Integern gerechnet wird. Spart also 3 unsinnige Funktionsaufrufe
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...