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 al ciclo WHILE...WEND, si genera un ciclo infinito:

Public Sub Main()

 While True
   Print "Ciclo infinito"
   Wait 0.01
 Wend

End

Usando "While...Wend"

Usando un valore che il ciclo REPEAT...UNTIL non potrà raggiungere, si genera un ciclo infinito:

Public Sub Main()

 Dim c As Short

 Repeat
   Print "Ciclo infinito"
   Wait 0.01
 Until c == -1

End

Usando "For...Next"

Anche 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 = 1 To 255
   Print b
   Wait 0.01
 Next

End