====== For..next ======

''For 카운터 = 시작값 To 끝값 [Step 증가분]\\ 명령문\\ Next ''


==== 설명 ====
지정된 횟수만큼 명령문을 반복 실행하는 명령어입니다.

==== 사용예 ====
다음 예와 같이 STEP명령이 생략된 경우에는 1씩 증가합니다. STEP명령을 음수 값으로 지정하는 경우에는 시작값이 끝값보다 커야 합니다.
<code xbasic>
      Dim K As Long
      For K=0 To 10
          Debug Dp(K),CR
      Next

      For K=10 To 0 Step –1          ‘ STEP을 음수로 하면 감소합니다.
          Debug Dp(K),CR
      Next
</code>

FOR문을 수행하는 도중 탈출하고싶다면, EXIT FOR문을 사용합니다.

<code xbasic>
      ForK=0 To 10
          Debug Dp(K),CR
          If K=8 Then Exit For ‘ EXIT FOR를 만나면 FOR LOOP를 탈출합니다.
      Next
</code>
NEXT뒤에는 아무것도 적어주지 않습니다.

FOR문의 카운터 변수는 카운터 할 값의 범위를 충분히 커버할 수 있는 변수 형으로선언해야 합니다.\\ 예를 들어 255까지 카운트 하는 경우에도 256까지 카운트할 수 있는 INTEGER형을 사용해야 합니다.\\ 내부적으로 K에 256을 저장한 뒤 비교하기 때문입니다.
<code xbasic>
      DimK As Byte
      For K=0 To 255
        Debug Dp(K),CR ‘K를 Byte형으로 했을 경우 무한루프가 됩니다.
      Next
</code>

STEP –1을 사용해서 스텝 다운하는 경우에도 음수 값을 저장할 수 있는 LONG형 변수를 사용해야 합니다. 

<code xbasic>
      DimLK As Long
      For LK=255 To 0 Step –1   ‘LK에 –1를 저장한 뒤 비교하기 때문에 Long형 사용
         Debug Dp(LK),CR
      Next
</code>

===== 실행결과 보기 =====

다음과 같은 소스를 가지고 어떻게 실행되는지 한번 보겠습니다.

<code basicx>
Const Device = CB280
Dim K As Long
Wait 1500
For K=0 To 10
   Debug Dp(K),Cr
	Wait 500
Next
</code>

{{ :cubloc:for..next:movfor.gif?nolink |}}

[[cubloc:|명령어 목록으로 가기]]