Re: Problemas con la Funcion While 1
Publicado: 21 Oct 2009, 17:57
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)