for...next...step

[ivega718]

How I can do that variable incr in decimal values?

Code: Select all

Define X.d
For X.d=1 To 2 Step .5
  MessageRequester ("",Str(X.d))  
Next X.d

Code: Select all

Define x.d
x.d=0
Repeat
  x.d=x.d + .5
  MessageRequester("",Str(x.d)) 
Until x.d=3

This not compile...somebody know of other alternative?

sorry...I am new in PureBasic...

[jassing]

Use strf()...

[STARGÅTE]

For : Next: Step is only for integers!
if you need a loop with floats/doubles you can use a While : Wend loop:

if you debug a float/double, you have to use StrF/StrD() instead of Str()

Code: Select all

Define X.d = 1.0

While X <= 2.0
  MessageRequester("", StrD(X))
  X + 0.5
Wend

[IdeasVacuum]

Code: Select all

Define X.d = 0

While(X < 2.4)

     MessageRequester ("",StrD(X))
     X = X + 0.5
 
Wend

End

For loops can only use integer steps.

[ts-soft]

Code: Select all

Define x.d = 0
Repeat
  x + 0.5
  MessageRequester("", StrD(x))
Until x = 3

[ivega718]

This forum is wonderful...I am learning and more I know I like this compiler...

Now is working fine...

Thanks

[GWS]

In the FOR loop, work in tenths, hundreths or whatever you require ..

This example runs between 1.0 and 2.0 in tenths:

Code: Select all

OpenConsole()
ClearConsole()

For i = 10 To 20

  PrintN(StrF((i/10),1))

Next i

PrintN("Press any key to exit")
Input()
PrintN("Done")
Delay(2000)

End

best wishes,

Graham