Parallax BASIC Stamp 1, Руководство по программированию

Страница: 124 / 353

FOR…NEXT - BASIC Stamp Command Reference
Page 122
•
BASIC Stamp Programming Manual 2.0b
•
www.parallaxinc.com
Reps VAR BYTE ' Counter for the loop.
FOR Reps = 10 to 300 ' Each loop add 1.
DEBUG DEC ? Reps ' Show reps in debug window.
NEXT
Reps still rolls over to 0, as before, however, this time it is outside the range
of 10 to 255. The loop stops, leaving Reps at 0. Note that this code is still in
error since Reps will never reach 300 until it is declared as a WORD.
Demo Program (FORNEXT.bas)
' This example uses a FOR...NEXT loop to churn out a series of sequential squares
' (numbers 1, 2, 3, 4... raised to the second power) by using a variable to set the
' FOR...NEXT StepValue, and incrementing StepValue within the loop. Sir Isaac Newton
' is generally credited with the discovery of this technique.
'{$STAMP BS1} 'STAMP directive (specifies a BS1)
SYMBOL Square = B0 ' FOR/NEXT counter and series of squares.
SYMBOL StepSize = B1 ' Step size, which will increase by 2 each
loop.
StepSize = 1
Square = 1
FOR Square = 1 TO 250 STEP StepSize ' Show squares up to 250.
DEBUG Square ' Display on screen.
StepSize = St 2 ' Add 2 to StepSize
NEXT ' Loop til square > 250.
Demo Program (FORNEXT.bs2)
' This example uses a FOR...NEXT loop to churn out a series of sequential squares
' (numbers 1, 2, 3, 4... raised to the second power) by using a variable to set the
' FOR...NEXT StepValue, and incrementing StepValue within the loop. Sir Isaac Newton
' is generally credited with the discovery of this technique.
'{$STAMP BS2} 'STAMP directive (specifies a BS2)
Square VAR BYTE ' FOR/NEXT counter and series of squares.
StepSize VAR BYTE ' Step size, which will increase by 2 each
loop.
StepSize = 1
Square = 1
FOR Square = 1 TO 250 STEP StepSize ' Show squares up to 250.
DEBUG DEC ? Square ' Display on screen.
StepSize = St 2 ' Add 2 to StepSize
NEXT ' Loop til square > 250.
1
2
e
2
sx
2
p
2
2
e
2
sx
2
p
2
NOTE: This is written for the BS2
but can be used for the BS2e,
BS2sx and BS2p also. Locate the
proper source code file or modify
the STAMP directive before
downloading to the BS2e, BS2sx or
BS2p.