Cicli infiniti: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
(Creata pagina con "Per creare cicli infiniti, vi sono diverse modalità. ===Usando "Do...Loop"=== Il semplice ciclo '''DO'''...'''LOOP''' genera un ciclo infinito: Public Sub Main() <FONT...") |
Nessun oggetto della modifica |
||
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| Riga 14: | Riga 14: | ||
===Usando "While...Wend"=== | ===Usando "While...Wend"=== | ||
Usando il valore booleano '''True''' | Usando il valore booleano '''True''' con il ciclo '''WHILE'''...'''WEND''', si genera un ciclo infinito: | ||
Public Sub Main() | Public Sub Main() | ||
| Riga 25: | Riga 25: | ||
===Usando " | ===Usando "Repeat...Until"=== | ||
Usando un valore | Usando un valore booleano '''False''' con il ciclo '''REPEAT'''...'''UNTIL''', si genera un ciclo infinito: | ||
Public Sub Main() | Public Sub Main() | ||
<FONT Color=#B22222><B>Repeat</b></font> | <FONT Color=#B22222><B>Repeat</b></font> | ||
Print "Ciclo infinito" | Print "Ciclo infinito" | ||
Wait 0.01 | Wait 0.01 | ||
<FONT Color=#B22222><B>Until</b> | <FONT Color=#B22222><B>Until</b> False</font> | ||
End | End | ||
| Riga 40: | Riga 38: | ||
===Usando "For...Next"=== | ===Usando "For...Next"=== | ||
Usando adeguatamente il ciclo '''FOR'''...'''NEXT''' può generare un ciclo infinito (al riguardo vedere: [[FOR...NEXT#Ciclo_infinito|Ciclo infinito con For...Next]]): | |||
Public Sub Main() | Public Sub Main() | ||
Dim b As <FONT Color=#B22222>Byte</font> | Dim b As <FONT Color=#B22222>Byte</font> | ||
<FONT Color=#B22222><B>For</b></font> b = | <FONT Color=#B22222><B>For</b></font> b = 0 To <FONT Color=#B22222>255</font> <FONT Color=gray>' ''ma anche con: '''For b = 254 To 255'''''</font> | ||
Print b | Print b | ||
Wait 0.01 | Wait 0.01 | ||
Versione attuale delle 18:30, 10 gen 2022
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