unexpected problem with for next step loop

[wimapon]

i do translate my Quick Basic FFT routine to Pure Basic.

FOR i = a to b step c

c is a calculated integer value.

I see, Pure Basic needs for c an integer numeric constant...


How can i solve this problem?

[bembulak]

Use a While-Loop or a Repeat-Loop instead.

[Rook Zimbabwe]

Bemby's right...

Code: Select all

While a < b
; code to execute here
c = c + stepvalue
Wend

You might also want to set off your code in the [ code ] [ /code ] brackets... (without the space... or just highlight the code segment and press the CODE button in the top of the input window!

@bembulak: you need to reload your avatar!

[bembulak]

@bembulak: you need to reload your avatar!

Better now?

[wimapon]

Okee folks,

problem solved.

pitty that for next is not the same as i am used to.

but okee.


thanks !

[SPP]

Also you can try this:
(Be careful with the endless loops)

lStep = 2
For i = 0 To 9
Debug i
i + (lStep -1)
Next

[blueznl]

After a while you get so used to the while / wend construction that you'll be starting to wonder how you could ever do without it

[wimapon]

Yes Folks,
I know while-wend repeat-until are also usable...but there is always a small naughty problem: works the first value or the last value of "step" yes or no...
but a small test will show that.

but... i am still going...

Thanks again.

[Rook Zimbabwe]

Code: Select all

While a < b
; code to execute here
c = c + stepvalue
Wend

wrote that without the ide...

more properly:

Code: Select all

a = 0
b = 100
c = 3 ; for examples sake
while a < b
debug "A = "+str(a)
a = a + c
wend
end

OK still on the road without PB to test it but it should work... If you are having vairiable issues I suggets you debug them to check whats going on...

It may be that you do not set the variables you intend to use INSIDE a procedure as GLOBAL...

@bemby... Looking NICE now!

[Derek]

I think you should always use "<=" or ">=" when using steps in a while-wend loop so you don't miss out on the last iteration of the loop.

Code: Select all

a = 0
b = 102
c = 3
While a < b
If a>92
Debug "A = "+Str(a)
EndIf
a = a + c
Wend
Debug ""
a = 0
b = 102
c = 3
While a <= b
If a>92
Debug "A = "+Str(a)
EndIf
a = a + c
Wend
Debug ""
For a=0 To 102 Step 3
If a>92
Debug "A = "+Str(a)
EndIf
Next