stoppuhr

Übersicht

BlitzBasic

Beginners-Corner

	looky Betreff: stoppuhr	Do, Mai 26, 2005 21:43 Antworten mit Zitat
Hi, wie code ich eine stppuhr in mein programm.

looky

Betreff: stoppuhr

Do, Mai 26, 2005 21:43
Antworten mit Zitat

Hi,
wie code ich eine stppuhr in mein programm. Shocked

	DarkMike	Do, Mai 26, 2005 21:57 Antworten mit Zitat
auf www.blitzbasic.de steht bei millisecs ein beispiel glaub ich(oder wars bei der OH)
2 dinge sind unendlich die menschliche Dummheit und das Universum obwohl beim Universum bin ich mir nicht ganz sicher. (Albert Einstein)

DarkMike

Do, Mai 26, 2005 21:57
Antworten mit Zitat

auf www.blitzbasic.de steht bei millisecs ein beispiel glaub ich(oder wars bei der OH)

2 dinge sind unendlich die menschliche Dummheit und das Universum obwohl beim Universum bin ich mir nicht ganz sicher. (Albert Einstein)

	looky	Do, Mai 26, 2005 22:06 Antworten mit Zitat
was OH

looky

Do, Mai 26, 2005 22:06
Antworten mit Zitat

was OH

	DarkMike	Do, Mai 26, 2005 22:31 Antworten mit Zitat
OH = die OnlineHilfe kannst dir auf www.blitzbasic.de runter laden!!! wenn du das gemacht hast kannst du sie auch Offlinehilfe nennen
2 dinge sind unendlich die menschliche Dummheit und das Universum obwohl beim Universum bin ich mir nicht ganz sicher. (Albert Einstein)

DarkMike

Do, Mai 26, 2005 22:31
Antworten mit Zitat

OH = die OnlineHilfe kannst dir auf www.blitzbasic.de runter laden!!!
wenn du das gemacht hast kannst du sie auch Offlinehilfe nennen

2 dinge sind unendlich die menschliche Dummheit und das Universum obwohl beim Universum bin ich mir nicht ganz sicher. (Albert Einstein)

	bruce185	Fr, Mai 27, 2005 1:40 Antworten mit Zitat
ich habe mal schnell ein stopuhr geschrieben. so könnte man das ungefähr schreiben: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 schrift = LoadFont("Arial",20,1) SetFont schrift time = MilliSecs() Repeat Cls If MilliSecs()-time = 1 Then millisecound = millisecound + 1 If millisecound = 1000 Then secound = secound + 1 : millisecound = 0 If secound = 59 Then minuten = minuten + 1 : secound = 0 time=MilliSecs() EndIf Text 20,20, "Zeit: " + minuten + ":" + secound + ":" + millisecound Until KeyHit(1) nur musst du das noch ein bisschen umändern damit du die Uhr auch stoppen kannst, dass müsste doch kein problem sein oder?

bruce185

Fr, Mai 27, 2005 1:40
Antworten mit Zitat

ich habe mal schnell ein stopuhr geschrieben.
so könnte man das ungefähr schreiben:

Code: [AUSKLAPPEN]

Graphics 800,600

schrift = LoadFont("Arial",20,1)
SetFont schrift

time = MilliSecs()

Repeat
Cls

If MilliSecs()-time = 1 Then
millisecound = millisecound + 1
If millisecound = 1000 Then secound = secound + 1 : millisecound = 0
If secound = 59 Then minuten = minuten + 1 : secound = 0

time=MilliSecs()
EndIf

Text 20,20, "Zeit: " + minuten + ":" + secound + ":" + millisecound

Until KeyHit(1)

nur musst du das noch ein bisschen umändern damit du die Uhr auch stoppen kannst, dass müsste doch kein problem sein oder? Very Happy

Zuletzt bearbeitet von bruce185 am Fr, Mai 27, 2005 2:08, insgesamt einmal bearbeitet

	bruce185	Fr, Mai 27, 2005 1:50 Antworten mit Zitat
ops! da ist ein fehler drinn, ich muss das noch einmal umschreiben ich schreibe den richtigen code im laufe der tage nocheinmal rein Christian

bruce185

Fr, Mai 27, 2005 1:50
Antworten mit Zitat

ops! da ist ein fehler drinn, ich muss das noch einmal umschreiben ich schreibe den richtigen code im laufe der tage nocheinmal rein Very Happy

Christian

	bruce185	Fr, Mai 27, 2005 2:06 Antworten mit Zitat
damit funktioniert es: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 schrift = LoadFont("Arial",20,1) SetFont schrift time = MilliSecs() Repeat Cls time = MilliSecs() millisecound = millisecound + 1 If millisecound = 1000 Then secound = secound + 1 : millisecound = 0 If secound = 59 Then minuten = minuten + 1 : secound = 0 Text 20,20, "Zeit: " + minuten + ":" + secound + ":" + millisecound Until KeyHit(1)

bruce185

Fr, Mai 27, 2005 2:06
Antworten mit Zitat

damit funktioniert es:

Code: [AUSKLAPPEN]

Graphics 800,600

schrift = LoadFont("Arial",20,1)
SetFont schrift

time = MilliSecs()

Repeat
Cls

time = MilliSecs()
millisecound = millisecound + 1
If millisecound = 1000 Then secound = secound + 1 : millisecound = 0
If secound = 59 Then minuten = minuten + 1 : secound = 0

Text 20,20, "Zeit: " + minuten + ":" + secound + ":" + millisecound

Until KeyHit(1)

	Schnuff	Fr, Mai 27, 2005 8:34 Antworten mit Zitat
Hey mehrfach Posts sind hier nicht erwünscht es gibt Oben rechts in der Ecke ein Button "edit" der bewikt manchmal Wunder

Schnuff

Fr, Mai 27, 2005 8:34
Antworten mit Zitat

Hey mehrfach Posts sind hier nicht erwünscht Evil or Very Mad

es gibt Oben rechts in der Ecke ein Button "edit" Mr. Green

der bewikt manchmal Wunder Wink

	looky	Fr, Mai 27, 2005 12:06 Antworten mit Zitat
Danke für die mühe.

looky

Fr, Mai 27, 2005 12:06
Antworten mit Zitat

Danke für die mühe. Laughing

	looky	Fr, Mai 27, 2005 12:40 Antworten mit Zitat
wie so bleibt die uhr stehen? BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If ImagesCollide(bg,bg2x,bg2y,0,rekt,rektx,rekty,0) Then das=5 If ImagesCollide(bh,bh2x,bh2y,0,rekt,rektx,rekty,0) Then das=5 If ImagesCollide(lg,lg2x,lg2y,0,rekt,rektx,rekty,0) Then das=5 If ImagesCollide(lh,lh2x,lh2y,0,rekt,rektx,rekty,0) Then das=5 If ImagesCollide(gh,gh2x,gh2y,0,rekt,rektx,rekty,0) Then das=5 uhr() Flip Until KeyHit(1) Or das=5 End Function uhr() time = MilliSecs() millisecound = millisecound + 1 If millisecound = 1000 Then secound = secound + 1 : millisecound = 0 If secound = 59 Then minuten = minuten + 1 : secound = 0 Text 20,20, \"Zeit: \" + minuten + \":\" + secound + \":\" + millisecound End Function

looky

Fr, Mai 27, 2005 12:40
Antworten mit Zitat

wie so bleibt die uhr stehen? Sad

BlitzBasic: [AUSKLAPPEN]


If ImagesCollide(bg,bg2x,bg2y,0,rekt,rektx,rekty,0) Then  das=5
If ImagesCollide(bh,bh2x,bh2y,0,rekt,rektx,rekty,0) Then  das=5
If ImagesCollide(lg,lg2x,lg2y,0,rekt,rektx,rekty,0) Then  das=5
If ImagesCollide(lh,lh2x,lh2y,0,rekt,rektx,rekty,0) Then  das=5
If ImagesCollide(gh,gh2x,gh2y,0,rekt,rektx,rekty,0) Then  das=5


uhr()



Flip
Until KeyHit(1) Or das=5
End

Function uhr()

time = MilliSecs() 
millisecound = millisecound + 1 
If millisecound = 1000 Then secound = secound + 1 : millisecound = 0 
If secound = 59 Then minuten = minuten + 1 : secound = 0  

Text 20,20, \"Zeit: \" + minuten + \":\" + secound + \":\" + millisecound 

End Function

	Chester	Fr, Mai 27, 2005 12:53 Antworten mit Zitat
du mal die Variablen in der Function globalisieren.

Chester

Fr, Mai 27, 2005 12:53
Antworten mit Zitat

du mal die Variablen in der Function globalisieren.

	Bigfreddy	Fr, Mai 27, 2005 13:09 Antworten mit Zitat
Ähm die Version von Bruce185 ist nicht realtime abhängig, sondern von der Rechenleisung des PC... Mit anderen Worten: 1 sekunde =\|= 1 secound Ich hab hier mal die überarbeitete Ver.: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 schrift = LoadFont(\"Arial\",20,1) SetFont schrift start = MilliSecs() SetBuffer BackBuffer() Repeat Cls time = MilliSecs()-start sec = time / 1000 min = time / 60000 sec=sec-(minuten*60) If sec<10 Then sec3$=\"0\"+sec Else sec3$=sec EndIf If min<10 Then min2$=\"0\"+min Else min2$=min EndIf Text 20,35,\"Zeit: \" + min2+ \":\" + sec3+ \":\" + Mid(time,(Len(sec)+1),2) Flip Until KeyHit(1) End Jetzt ist es mit Millisecs,...

Bigfreddy

Fr, Mai 27, 2005 13:09
Antworten mit Zitat

Ähm die Version von Bruce185 ist nicht realtime abhängig, sondern von der Rechenleisung des PC...

Mit anderen Worten: 1 sekunde =|= 1 secound

Ich hab hier mal die überarbeitete Ver.:

BlitzBasic: [AUSKLAPPEN]



Graphics 800,600 

schrift = LoadFont(\"Arial\",20,1) 
SetFont schrift 

start = MilliSecs() 
SetBuffer BackBuffer()
Repeat 
Cls 

time = MilliSecs()-start 

sec = time / 1000
min = time / 60000
sec=sec-(minuten*60)

If sec<10 Then 
sec3$=\"0\"+sec
Else sec3$=sec
EndIf 

If min<10 Then 
min2$=\"0\"+min
Else min2$=min
EndIf 

Text 20,35,\"Zeit: \" + min2+ \":\" + sec3+ \":\" + Mid(time,(Len(sec)+1),2)

Flip 
Until KeyHit(1)
End

Jetzt ist es mit Millisecs,...

	bruce185	Fr, Mai 27, 2005 13:46 Antworten mit Zitat
ich hab ja nur ein beispiel geschrieben wie man das ungefähr machen kann

bruce185

Fr, Mai 27, 2005 13:46
Antworten mit Zitat

ich hab ja nur ein beispiel geschrieben wie man das ungefähr machen kann Very Happy

	Bigfreddy	Fr, Mai 27, 2005 15:11 Antworten mit Zitat
Naja, Darkmike hat was von Millisecs gesagt und des sollte dann auch im Code sinnvoll vorkommen...

Bigfreddy

Fr, Mai 27, 2005 15:11
Antworten mit Zitat

Naja, Darkmike hat was von Millisecs gesagt und des sollte dann auch im Code sinnvoll vorkommen...

	looky	Sa, Mai 28, 2005 12:22 Antworten mit Zitat
Das klappt ja alles so aber in meinen prog. bleibt die uhr stehen.BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If ImagesCollide(bg,bg2x,bg2y,0,rekt,rektx,rekty,0) Then das=5 If ImagesCollide(bh,bh2x,bh2y,0,rekt,rektx,rekty,0) Then das=5 If ImagesCollide(lg,lg2x,lg2y,0,rekt,rektx,rekty,0) Then das=5 If ImagesCollide(lh,lh2x,lh2y,0,rekt,rektx,rekty,0) Then das=5 If ImagesCollide(gh,gh2x,gh2y,0,rekt,rektx,rekty,0) Then das=5 start = MilliSecs() time = MilliSecs()-start sec = time / 1000 min = time / 60000 sec=sec-(minuten*60) If sec<10 Then sec3$=\"0\"+sec Else sec3$=sec EndIf If min<10 Then min2$=\"0\"+min Else min2$=min EndIf Text 20,35,\"Zeit: \" + min2+ \":\" + sec3+ \":\" + Mid(time,(Len(sec)+1),2) Flip Until KeyHit(1) Or das=5 End

looky

Sa, Mai 28, 2005 12:22
Antworten mit Zitat

Das klappt ja alles so aber in meinen prog. bleibt die uhr stehen.BlitzBasic: [AUSKLAPPEN]


If ImagesCollide(bg,bg2x,bg2y,0,rekt,rektx,rekty,0) Then  das=5
If ImagesCollide(bh,bh2x,bh2y,0,rekt,rektx,rekty,0) Then  das=5
If ImagesCollide(lg,lg2x,lg2y,0,rekt,rektx,rekty,0) Then  das=5
If ImagesCollide(lh,lh2x,lh2y,0,rekt,rektx,rekty,0) Then  das=5
If ImagesCollide(gh,gh2x,gh2y,0,rekt,rektx,rekty,0) Then  das=5






start = MilliSecs() 
 
 

time = MilliSecs()-start 

sec = time / 1000 
min = time / 60000 
sec=sec-(minuten*60) 

If sec<10 Then 
sec3$=\"0\"+sec 
Else sec3$=sec 
EndIf 

If min<10 Then 
min2$=\"0\"+min 
Else min2$=min 
EndIf 

Text 20,35,\"Zeit: \" + min2+ \":\" + sec3+ \":\" + Mid(time,(Len(sec)+1),2)






Flip
Until KeyHit(1) Or das=5
End

	Chester	Sa, Mai 28, 2005 12:32 Antworten mit Zitat
die variable "start=millisecs()" muss außerhalb der schleife

Chester

Sa, Mai 28, 2005 12:32
Antworten mit Zitat

die variable "start=millisecs()" muss außerhalb der schleife

	looky	Sa, Mai 28, 2005 18:17 Antworten mit Zitat
ej alles klappt perfekt , danke.

looky

Sa, Mai 28, 2005 18:17
Antworten mit Zitat

ej alles klappt perfekt , danke.

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

stoppuhr

Betreff: stoppuhr