Cicli infiniti

Per creare cicli infiniti, vi sono diverse modalità.

Usando "Do...Loop"

Il semplice ciclo DO...LOOP genera un ciclo infinito:

Public Sub Main()

 Do
   Print "Ciclo infinito"
   Wait 0.01
 Loop

End

Usando "While...Wend"

Usando il valore booleano True con il ciclo WHILE...WEND, si genera un ciclo infinito:

Public Sub Main()

 While True
   Print "Ciclo infinito"
   Wait 0.01
 Wend

End

Usando "Repeat...Until"

Usando un valore booleano False con il ciclo REPEAT...UNTIL, si genera un ciclo infinito:

Public Sub Main()

 Repeat
   Print "Ciclo infinito"
   Wait 0.01
 Until False

End

Usando "For...Next"

Usando adeguatamente il ciclo FOR...NEXT può generare un ciclo infinito (al riguardo vedere: Ciclo infinito con For...Next):

Public Sub Main()

 Dim b As Byte

 For b = 0 To 255   ' ma anche con: For b = 254 To 255
   Print b
   Wait 0.01
 Next

End