Problemas con la Funcion While 1

[gesher]

Código: Seleccionar todo

$xx = 0

While $xx <= 20

    Sleep(200)

    $xx = $xx + 1

    ConsoleWrite($xx & @LF)

WEnd

ConsoleWrite("------OK------"& @LF)



For $xx = 20 to 1 Step -1

    Sleep(200)

    ConsoleWrite($xx & @LF)

Next

ConsoleWrite("------OK------"& @LF)



$xx = 0

Do

    ConsoleWrite($xx & @LF)

    $xx = $xx + 1

Until $xx = 10

ConsoleWrite("------OK------"& @LF)

[Nahuel]

Pero el lag (o flicker) también va a exisitir con esas otras estructuras. Lo mejor es usar Sleep() dentro del ciclo.