Differenze tra le versioni di "Cicli infiniti"
Da Gambas-it.org - Wikipedia.
(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...") |
|||
| (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 17: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
