[RESOLU] Programmer une répétition défini

[thibaut scyllo boudier]

Bonjour, j'aimerais savoir comment je pourrais faire pour crée une boucle(ou répétition) défini. Mon programme sur lequel, je voudrais le mettre est:

Define a()=
Prgm
If rand()<0.3 Then
Disp vert
Else
Disp rouge
EndIf
EndPrgm

Merci de votre futur aide

[Excale]

Pour faire une boucle:

Code: Select all

For variable, début, fin[, pas]
   instructions
Enfor

Example:

Code: Select all

For i, 1, 10
   disp "test"
Enfor

Ou bien:

Code: Select all

While <condition>
   instructions
Endwhile

Example:

Code: Select all

i:=0
While i<10
   disp "test
   i:=i+1
Endwhile