====== Do..loop ======

''문법1 : Do While''
   Do While 조건
     명령문
   Loop

조건이 참일 동안에는 명령문을 반복수행합니다.

      Dim K As Integer
      Wait 500
      K = 0
      Do While K <20          'K값이 20보다 작다면 루프실행.
            K = K + 1
            Debug Dec K,Cr   '결과는 1부터 20까지 Debug창에 표시됨.
            Wait 200
      Loop

''문법2 : Do Until''
   Do Until 조건
       명령문
   Loop

조건이 거짓인 동안에는 명령문을 반복수행합니다.

      Dim K As Integer
      Wait 500
      K = 0
      Do 
            K = K + 1
            Debug Dec K,Cr   '결과는 1부터 20까지 Debug창에 표시됨.
            Wait 200
      Loop Until K > 19       'K값이 19보다 커질때까지 루프실행.

 
''문법3 : 무한루프''

   Do
      명령문
   Loop

조건식이 없으면 무한 루프입니다. 무한루프를 탈출하기 위해서는 Exit Do명령을 사용합니다.

       K = 0
       Do
          K = K + 1
          If K > 200 Then Exit Do   'Ad결과가 200을 초과하면 루프탈출
           Debug Dec K,cr
          Wait 200
      Loop

 


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