IBM Lotus Symphony


Príkaz While...Wend [Runtime]

Keď program zaznamená príkaz While, testuje podmienku. Ak podmienka má hodnotu false, program pokračuje priamo po príkaze Wend. Ak podmienka má hodnotu true, cyklus sa vykonáva dovtedy, kým program nenájde Wend a potom skočí naspäť na príkaz While. Ak má podmienka stále ešte hodnotu true, cyklus sa vykoná opäť.

Na rozdiel od príkazu Do...Loop, nemôžete zrušiť cyklus While...Wend pomocou Exit. Nikdy neukončujte cyklus While...Wend pomocou GoTo, pretože to môže zapríčiniť chybu v chode programu.

Cyklus Do...Loop je pružnejší ako cyklus While...Wend.

Syntax:

While podmienka [príkaz] Wend

Príklad:

Sub Príklad_While_Wend

Dim stext ako typ String

Dim iRun ako typ Integer

sText ="Toto je krátky text"

iRun = 1

while iRun < Len(sText)

if Mid(sText,iRun,1 )<> " " then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )

iRun = iRun + 1

Wend

MsgBox sText,0,"Text je kódovaný"

end sub


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky