Constante do BASIC

Constantes utilizadas nos programas escritos em BASIC

Constantes booleanas

Nome

Tipo

Valor

True

Boolean

1

False

Boolean

0


Exemplo:


            Dim bPositive as Boolean
            bPositive = True
        

Constante matemática

Nome

Tipo

Valor

Pi

Double

3.14159265358979


Exemplo:


            Function Rad2Deg( aRad as Double) As Double
             Rad2Deg = aRad * 180.00 / Pi
            End Function
        

Constantes de objetos

Nome

Tipo

Utilização

Empty

Variant

O valor Empty indica que a variável não foi inicializada.

Null

null

Indica que a variável não contém dados.

Nothing

Object

Atribua o objeto Nothing a uma variável para remover a atribuição anterior.


Exemplo:


            SubExampleEmpty
            Dim sVar As Variant
             sVar = Empty
             Print IsEmpty(sVar) ' Returns True
            End Sub
            Sub ExampleNull
            Dim vVar As Variant
             MsgBox IsNull(vVar)
            End Sub
            Sub ExampleNothing
            Dim oDoc As Object
             Set oDoc = ThisComponent
             Print oDoc.Title
             oDoc = Nothing
             Print oDoc ‘ Error
            End Sub
        

Constantes adicionais do VBA

As seguintes constantes estão disponíveis quando o modo de compatibilidade VBA está ativado:

warning

Esta função é ativada com a instrução Option VBASupport 1 colocada antes do código executável num módulo.


Constante nomeada

Valor hexadecimal (decimal)

Descrição

vbTrue

-1

Parte da enumeração vbTriState.

vbFalse

0

Parte da enumeração vbTriState.

vbUseDefault

-2

Parte da enumeração vbTriState

vbCr

\x0D (13)

CR - Retorno de Carro

vbCrLf

\x0D\x0A (13 10)

CRLF - Retorno de carro e alimentação de linha

vbFormFeed

\x0c (12)

FF - Alimentação de formulário

vbLf

\x0A (10)

LF - Alimentação de Linha

vbNewLine

\x0D\x0A (13 10) para Windows 32 bits

\x0A (10) para outros sistemas de 64 bits

LF ou CRLF

vbNullString

""

cadeia nula

vbTab

\x09 (9)

HT - Tabulação horizontal

vbVerticalTab

\x0B (11)

VT - Tabulação vertical


♥ Doe para nosso projeto! ♥