Documentação do Gambas
Api
Como fazer ...
Compilação e Instalação
Components
Documentação do Desenvolvedor
Documentação do IDE
Documentos
LEIA-ME
Léxico
Manual Wiki
Mensagens de erro
Pedaços de Códigos
Registrar-se
Repositório de aplicativos
Traduzir
Tutoriais
Ultimas modificações
Visão geral da linguagem
Índice da Linguagem
#Else
#Endif
#If
+INF
-INF
Abs
Access
ACos
ACosh
Alloc
AND
AND IF
Ang
APPEND
AS
Asc
ASin
ASinh
Asl
Asr
ATan
ATan2
ATanh
Atribuições
Base64$
BChg
BClr
BEGINS
Bin$
Bool@
Boolean@
BREAK
BSet
BTst
BYREF
Byte@
CASE
CATCH
CBool
Cbr
CByte
CDate
Ceil
CFloat
CHGRP
CHMOD
Choose
CHOWN
Chr$
CInt
CLASS
CLong
CLOSE
Comp
CONST
Constantes da linguagem
CONTINUE
Conv$
COPY
Cos
Cosh
CREATE
CREATE PRIVATE
CREATE STATIC
CShort
CSingle
CStr
CVariant
Date
Date@
DateAdd
DateDiff
Day
DConv$
DEBUG
DEC
Declaração de Arrays
Declaração de Constantes
Declaração de enumeração
Declaração de estrururas
Declaração de Eventos
Declaração de Funções Externas
Declaração de métodos
Declaração de Propriedades
Declaração de Variáveis
Declaração de Variáveis Locais
DEFAULT
Deg
DFree
DIM
Dir
DIV
DO
DOWNTO
EACH
ELSE
END
ENDIF
ENDS
END SELECT
END STRUCT
END WITH
ENUM
Eof
ERROR
ERROR TO
Eval
Even
EVENT
EXEC
Exist
Exp
Exp2
Exp10
Expm
EXPORT
EXTERN
FALSE
FINALLY
Floor
FLUSH
FOR
FOR EACH
Format$
Formatos definidos pelo usuário
Frac
Free
FromBase64$
FromUrl$
FUNCTION
Gerenciamento de função externa
GOSUB
GOTO
Hex$
Hour
Html$
Hyp
IF
IIf
IN
INC
INHERITS
Inline Arrays
Inline Collections
INPUT
INPUT FROM
InStr
Int
Int@
Integer@
IS
IsAscii
IsBlank
IsBoolean
IsDate
IsDigit
IsDir
IsFloat
IsHexa
IsInf
IsInteger
IsLCase
IsLetter
IsLong
IsMissing
IsNaN
IsNull
IsNumber
IsPunct
IsShort
IsSingle
IsSpace
IsString
KILL
Labels
LAST
LCase$
Left$
Len
LET
LIBRARY
LIKE
LINE INPUT
LINK
Localização e funções de tradução
LOCK
Lof
Log
Log2
Log10
Logp
Long@
LOOP
Loop de Eventos
Lsl
Lsr
LTrim$
Mag
MATCH
Max
ME
MEMORY
Mid$
Min
Minute
MkBool$
MkBoolean$
MkByte$
MkDate$
MKDIR
MkFloat$
MkInt$
MkInteger$
MkLong$
MkPointer$
MkShort$
MkSingle$
MOD
Month
MOVE
Métodos Especiais
NEW
NEXT
NOT
Now
NULL
Odd
ON GOSUB
ON GOTO
OPEN
OPEN MEMORY
OPEN PIPE
OPEN STRING
Operadores Aritméticos
Operadores de Atribuição
Operadores de Strings
Operadores Lógicos
OPTIONAL
OR
Ordem de avaliação dos operadores
OR IF
OUTPUT
OUTPUT TO
Pi
PIPE
Pointer@
PRINT
PRIVATE
PROCEDURE
PROPERTY
PUBLIC
QUIT
Quote$
Rad
RAISE
Rand
RANDOMIZE
RDir
READ
Realloc
REPEAT
Replace$
Representação de Dados Binários
RETURN
Right$
RInStr
RMDIR
Rnd
Rol
Ror
Round
RTrim$
Scan
SConv$
Second
Seek
SEEK
SELECT
Sgn
SHELL
Shell$
Shl
Short@
Shr
Sin
Single@
Sinh
SizeOf
SLEEP
Space$
Split
Sqr
Stat
STATIC
STEP
STOP
STOP EVENT
Str$
Str@
String$
String@
StrPtr
STRUCT
SUB
Subst$
SUPER
SWAP
Swap$
Tan
Tanh
Temp$
THEN
Time
Timer
Tipos de dados
TO
Tr$
Trim$
TRUE
TRY
TypeOf
UCase$
UnBase64$
UNLOCK
UnQuote$
UNTIL
Url$
Usando palavras-chave reservadas como identificadores
Val
VarPtr
WAIT
WATCH
Week
WeekDay
WEND
WHILE
WITH
WRITE
XOR
Year

WHILE

WHILE Expression

Inicia um bloco de instruções dentro de uma estrutura de repetição WHILE ... WEND.

Esta repetição é mantida enquanto Expression for verdadeira (TRUE).

Se a expressão é falsa logo na primeira vez, este bloco nunca será executado.

A estrutura DO WHILE ... LOOP é equivalente.

Examples

PUBLIC SUB Form_Open()

  DIM a AS Integer

  a = 1

  WHILE a \<= 5
    PRINT "Alo mundo"; a
    INC a
  WEND

END

Vai mostrar:
Alo mundo 1
Alo mundo 2
Alo mundo 3
Alo mundo 4
Alo mundo 5

Veja também