GOTO oder nicht GOTO

Übersicht

BlitzBasic

Allgemein

Gehe zu Seite Zurück 1, 2, 3

	HOT-BIT Gast	Mo, Apr 12, 2004 19:12 Antworten mit Zitat
Hallo ! @Inarie: Dein Code wird nur 10.000.000 mal durchlaufen, obwohl er das 50.000.000 machen müßte ! Habe hier den Code modifiziert, damit du es testen kannst. Wenn brx=4 und bry=4 müßte 50.000.000 raus kommen ! Du springst aber gleich aus der Schleife und läßt >brmit< nicht um 1 erhöhen. Danke, Toni Hier der Test : Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 SeedRnd MilliSecs() Type muenzen Field x,y End Type Dim map(12,12) For i=0 To 12:For j=0 To 12:map(i,j)=1:Next:Next mue.muenzen=New muenzen mue\x=4:mue\y=4 brx=4:bry=4 zeit3=MilliSecs() For o=1 To 10000000 brmit = 1 While brmit < 6 brmit = brmit +1: b=b+1 ; brx=Rand(0,12):bry=Rand(0,12) brx=4: bry=4 ; Diese Zeile statt der vorigen nehmen If brx=4 And bry=4 c=c+1 For mue.muenzen=Each muenzen If mue\x=brx And mue\y=bry a=a+1 brmit = 6 Exit ElseIf map(brx,bry) f=f+1 brmit = 6 Exit EndIf Next Wend Next Print "Inarie : " + (MilliSecs()-zeit3)+ " Durchl : "+a+" brmit = "+b+" gesetzte Felder : "+f Print:Print "(brx=4 und bry=4)= "+c Print:Print "fertig" WaitKey End ...

HOT-BIT

Gast

Mo, Apr 12, 2004 19:12
Antworten mit Zitat

Hallo !

@Inarie:

Dein Code wird nur 10.000.000 mal durchlaufen, obwohl er das 50.000.000 machen müßte !
Habe hier den Code modifiziert, damit du es testen kannst.
Wenn brx=4 und bry=4 müßte 50.000.000 raus kommen !
Du springst aber gleich aus der Schleife und läßt >brmit< nicht um 1 erhöhen.

Danke, Toni

Hier der Test :

Code: [AUSKLAPPEN]

Graphics 800,600
SeedRnd MilliSecs()

Type muenzen
Field x,y
End Type

Dim map(12,12)
For i=0 To 12:For j=0 To 12:map(i,j)=1:Next:Next
mue.muenzen=New muenzen
mue\x=4:mue\y=4

brx=4:bry=4

zeit3=MilliSecs()
For o=1 To 10000000
brmit = 1
While brmit < 6
brmit = brmit +1: b=b+1
; brx=Rand(0,12):bry=Rand(0,12)
brx=4: bry=4 ; Diese Zeile statt der vorigen nehmen
If brx=4 And bry=4 c=c+1
For mue.muenzen=Each muenzen
If mue\x=brx And mue\y=bry
a=a+1
brmit = 6
Exit
ElseIf map(brx,bry)
f=f+1
brmit = 6
Exit
EndIf
Next
Wend
Next
Print "Inarie : " + (MilliSecs()-zeit3)+ " Durchl : "+a+" brmit = "+b+" gesetzte Felder : "+f
Print:Print "(brx=4 und bry=4)= "+c

Print:Print "fertig"
WaitKey
End

...

	Mr.Keks	Mo, Apr 12, 2004 19:21 Antworten mit Zitat
ok, stimmt, dann muss das brmit im ersten fall wohl raus...
MrKeks.net

Mr.Keks

Mo, Apr 12, 2004 19:21
Antworten mit Zitat

ok, stimmt, dann muss das brmit im ersten fall wohl raus...

MrKeks.net