Funções internas do Visual Basic

Funções internas do Visual Basic

(Parte 1 de 4)

Funções Internas 1

Categoria: Função Matemática Finalidade: Retorna o valor absoluto de um número. Sintaxe: ABS(Número) Em que:

• Número - Qualquer valor numérico válido. Se Número contém Null, o valor retornado pela função será Null também. Caso Número seja igual a zero, este será o valor de retorno da função.

Array

Categoria: Funções de Array Finalidade: Retorna um dado Variant contendo um Array. Sintaxe: Array(Lista de Argumentos) Em que:

• Lista de Argumentos - Consiste em uma série de argumentos separados por vírgulas. Se nenhum argumento for fornecido à função, será criado um array de comprimento zero.

MeuArray(1,3,5,7)‘MeuArray(3) = 5

Asc

Categoria: Funções de Conversão de Dados Finalidade: Retorna o código ASCII corresponde quente do primeiro caractere da string indicada. Sintaxe: ASC(String) Em que:

• String - O argumento string é qualquer expressão de caracteres válida. Se a string especificada não contiver caracteres, ocorrerá um erro de Run-Time.

Exemplo: Teste = Asc("A") ‘Teste = 65

2 Iniciando no Visual Basic 6.0

Teste = Asc("a") ‘Teste = 97 Teste = Asc("ASCII") ‘Teste = 65

Atn

Categoria: Funções Matemáticas Finalidade: Calcula o Arco Tangente de um número. Sintaxe: Atn(Número) Em que:

• Número - A função Atn retorna o número de radianos referentes ao arco tangente do ângulo especificado.

Cbool

Categoria: Funções de Conversão de Dados Finalidade: Converte uma expressão em Boolean. Sintaxe: CBool(Expressão) Em que:

• Expressão - Se o valor da expressão resultante for zero, o valor False será retornado pela função Cbool; caso contrário, a resposta será True.

Exemplo: Primeiro = 10

Segundo = 10 Valor = 0

Teste = Cbool(Primeiro = Segundo) ‘Teste = True Teste2 = Cbool(Valor) ‘Teste2 = False

Cbyte

Categoria: Funções de Conversão de Dados Finalidade: Converte uma expressão em Byte. Sintaxe: CByte(Expressão) Em que:

• Expressão - O argumento da função poderá ser qualquer valor numérico válido.

Exemplo: Dim Teste as Double

Funções Internas 3

MeuByte = CByte(Teste) ‘MeuByte = 2

CCur

Categoria: Funções de Conversão de Dados Finalidade: Converte uma expressão em Currency. Sintaxe: CCur(Expressão) Em que:

• Expressão - O argumento da função poderá ser qualquer valor numérico válido ou expressão string.

Exemplo: Dim Dado as Double

CDate

Categoria: Funções de Conversão de Dados Finalidade: Converte uma expressão no tipo de dados Date. Sintaxe: CDate(Data)

DataCurta = CDate(Hoje) ‘DataCurta = 18/06/9

CDbl

Categoria: Funções de Conversão de Dados Finalidade: Converte uma expressão em Double. Sintaxe: CDbl(Expressão) Em que:

• Expressão - O argumento da função poderá ser qualquer valor numérico válido ou expressão string.

Exemplo: Dim MinhaMoeda As Currency

CDec

Categoria: Funções de Conversão de Dados Finalidade: Converte uma expressão em Decimal.

4 Iniciando no Visual Basic 6.0

Sintaxe: CDec(Expressão) Em que:

• Expressão - O argumento da função poderá ser qualquer valor numérico válido ou expressão string.

Exemplo: Dim ValorTeste

Choose

Sintaxe: Choose(index, choice-1[, choice-2,[,choice-n]])

Categoria: Funções de Verificação Finalidade: Seleciona e retorna um valor de uma lista de argumentos existente em função do índice passado. Em que:

• Index - Expressão numérica ou campo que resulta em um valor entre 1 e o número de escolhas disponíveis.

• Choice - Expressão Variant contendo uma das possíveis escolhas.

Exemplo: Teste = Escolha(2) ‘Teste = “Valor2”

Função Escolha: Function Escolha(Indice As Integer)

Escolha = Choose(Indice, "Valor1", "Valor2", "Valor3") End Function

Chr

Categoria: Funções de Conversão de Dados Finalidade: Retorna o caractere correspondente ao código ASCII informado. Sintaxe: Chr(Código ASCII)

Exemplo: Teste = Chr(65) ‘Teste = A

Teste = Chr(97) ‘Teste = a Teste = Chr(64) ‘Teste = @

CInt Categoria: Funções de Conversão de Dados

Finalidade: Converte uma expressão no tipo de dados Inteiro. Sintaxe: CInt(Expressão)

Funções Internas 5

Em que:

• Expressão - O argumento da função poderá ser qualquer valor numérico válido ou expressão string.

Exemplo: Dim Duplo As Double

CLng Categoria: Funções de Conversão de Dados

Finalidade: Converte uma expressão no tipo de dados Longo. Sintaxe: CLng(Expressão)

Em que:

• Expressão - O argumento da função poderá ser qualquer valor numérico válido ou expressão string.

Exemplo: Dim Dado As Double

Command

Categoria: Funções de Sistema Operacional Finalidade: Retorna o argumento informado na linha de comando utilizado na inicialização do Visual Basic ou de um programa executável desenvolvido nesta linguagem. Sintaxe: Command

Exemplo: Inicie a criação de um aplicativo qualquer e inclua os comandos abaixo na

procedure Form_Load. A seguir, selecione o comando Optionsno menu

Tools, escolhendo em seguida a aba Advanced. Inclua o seguinte argumento na caixa de texto Command Line Arguments: Start. A seguir, execute seu aplicativo com e sem este argumento e veja o que acontece. Dim Msg

If Command = "" Then

Msg = "Não existe uma linha de comando”

Else

Msg = "A linha de comando é: ” & Command End If

6 Iniciando no Visual Basic 6.0

MsgBox Msg

Cos

Categoria: Funções Matemáticas Finalidade: Calcula o cosseno de um ângulo. Sintaxe: Cos(Número) Em que:

• Número - Pode ser qualquer expressão numérica válida que expresse um ângulo em radianos.

CSng

Categoria: Funções de Conversão de Dados Finalidade: Converte uma expressão no tipo de dados Single. Sintaxe: CSng(Expressão) Em que:

• Expressão - O argumento da função poderá ser qualquer valor numérico válido ou expressão string.

Exemplo: Dim Teste As Double

CStr

Categoria: Funções de Conversão de Dados Finalidade: Converte uma expressão no tipo de dados String. Sintaxe: CStr(Expressão) Em que:

• Expressão - O argumento da função poderá ser qualquer valor numérico válido ou expressão string.

Exemplo: Dim Dado As Double

Funções Internas 7

CurDir

Categoria: Funções de Sistema Operacional Finalidade: Retorna a pasta (ou diretório) atual. Sintaxe: CurDir[(Drive)] Em que:

• Drive - Expressão string que especifica uma unidade de disco existente. Se a unidade não for especificada ou se a string for de tamanho zero, a função CurDir retornará o caminho (Path) para o drive atual.

Exemplo: Teste = CurDir ‘Teste = C:\WINDOWS

CVar

Categoria: Funções de Conversão de Dados Finalidade: Converte uma expressão no tipo de dados Variant. Sintaxe: CVar(Expressão)

Em que: Expressão - Qualquer valor numérico válido ou expressão string.

Exemplo: Dim Inteiro As Integer

CVErr

Categoria: Funções de Conversão de Dados Finalidade: Retorna o número do erro especificado pelo usuário Sintaxe: CVErr(Número do Erro) Você pode utilizar a função CVErr para definir seus próprios números de erro. Como você já deve ter notado ao longo de nosso estudo, sempre que ocorre um erro em tempo de execução, o VB exibe um bloco de diálogo que mostra o número do erro ocorrido e a mensagem correspondente a esse erro. Você também pode criar suas próprias mensagens de erro e com isso controlar o comportamento de seu aplicativo no caso da ocorrência de situações indesejadas. Você pode utilizar a função IsError para avaliar o erro ocorrido e tomar as devidas providências.

Exemplo: Dado = TxtIn.TEXT ‘Entrada de Dado

Teste = CalculoGeral(Dado)

8 Iniciando no Visual Basic 6.0

If IsError(Teste) Then ‘Se Teste é um Número de erro

Teste = CStr(Teste) ‘Converto no tipo de dados String End If

TxtOut.TEXT = Teste

Função CalculoGeral: Function CalculoGeral(Número)

If IsNumeric(Número) Then ‘Se é número processo normalmente

CalculoGeral = Número * 100

Else

CalculoGeral = CVErr(1000) ‘Define Número de Erro igual a 1000 End If

End Function

Date

Categoria: Funções de Data e Hora Finalidade: Retorna a Data atual do sistema. Sintaxe: Date

Exemplo: Teste = Date ‘Teste = 04/10/9

DateAdd

Categoria: Funções de Data e Hora Finalidade: Retorna um valor Variant contendo a data especificada acrescida do intervalo de tempo fornecido à função. Sintaxe: DateAdd(Intervalo, Número, Data) Em que:

• Intervalo - Expressão do tipo string indicando o intervalo de tempo a ser adicionado à data especificada. Pode ser horas, dias, semanas, meses, anos, etc., conforme especificado na seção ajustes, logo em seguida.

• Número -Expressão numérica indicando o número de intervalos de tempo que você deseja acrescer à data indicada. Ele pode ser positivo para indicar datas futuras ou mesmo negativo, obtendo datas já ocorridas.

• Data - Data ou nome de variável do tipo Date que será utilizada para o cálculo da função.

Ajustes: Ajuste Descrição

Funções Internas 9 y Year (Ano) q Quarter (Trimestre) m Month (Mês) y Day of year (Dia do Ano) d Day (Dia) w Weekday (Dia da Semana) w Week (Semana) h Hour (Hora) n Minute (Minuto) s Second (Segundo)

Exemplo: REM Acresce três anos à data atual

Para efeito de cálculo, o VB considera os anos bissextos, de modo que o mês de fevereiro será considerado com 28 ou 29 dias de acordo com a data especificada e o intervalo de tempo informado.

DateDiff

Categoria: Funções de Data e Hora Finalidade: Retorna o intervalo de tempo decorrido entre duas datas de acordo com a unidade de tempo especificada. Sintaxe: DateDiff(Intervalo, Data1, Data2[, firstdayofweek[, firstweekofyear]]) Em que:

• Intervalo - Expressão do tipo string indicando o intervalo de tempo que será calculado entre Data1 e Data2. Pode ser horas, dias, semanas, meses, anos, etc., conforme especificado na seção ajustes, logo em seguida.

• Data1, Data2 - As duas datas entre as quais será calculado o intervalo de tempo decorrido.

• Firstdayofweek - Uma constante que define o primeiro dia da semana. Caso você não especifique, o domingo será considerado como primeiro dia. Veja a seção ajustes, logo em seguida, para maiores detalhes.

10 Iniciando no Visual Basic 6.0

• Firstweekofyear - Esta constante define a primeira semana do ano. Se você não especificar este argumento, será considerada como a primeira do ano a semana em que ocorre o dia 1º de janeiro.

Ajustes: Para Intervalo:

Ajuste Descrição y Year (Ano) q Quarter (Trimestre) m Month (Mês) y Day of year (Dia do Ano) d Day (Dia) w Weekday (Dia da Semana) w Week (Semana) h Hour (Hora) n Minute (Minuto) s Second (Segundo)

Para Firstdayofweek:

Ajuste Descrição 0 O atual do sistema 1 Domingo (default) 2 Segunda 3 Terça 4 Quarta 5 Quinta 6 Sexta 7 Sábado

Para Firstweekofyear:

Ajuste Descrição 0 O atual do sistema (se houver)

1 A semana em que ocorre dia 1º de janeiro

2 A primeira semana que tem pelo menos 4 dias do novo ano

3 A primeira semana que contiver sete dias do novo ano

Exemplo: REM Dias decorridos de 1/1/9 até 4/10/9:

Funções Internas 1

Se Data2 for menor que a Data1, o número de intervalos decorridos será negativo. A opção Firstdayofweek afeta os cálculos efetuados com base nos intervalos de tempo "w" (dia da semana) e "w" (Semana).

DatePart

Categoria: Funções de Data e Hora Finalidade: Retorna a parte especificada de uma determinada data. Sintaxe: DatePart(Intervalo, Data[, Firstdayofweek[, Firstweekofyear]]) Em que:

• Intervalo - Expressão do tipo string indicando o intervalo de tempo que será retornado pela função. Veja a seção Ajustes em seguida.

• Data - A data a ser avaliada pela função.

• Firstdayofweek - Uma constante que define o primeiro dia da semana. Caso você não especifique, o domingo será considerado como primeiro dia. Veja a seção ajustes, logo em seguida, para maiores detalhes.

• Firstweekofyear - Esta constante define a primeira semana do ano. Se você não especificar este argumento, será considerada como a primeira do ano a semana em que ocorre o dia 1o de janeiro.

Ajustes: Esta função utiliza os mesmos ajustes da função DateDiff.

Exemplo: REM Calcula a semana atual da data indicada

DateSerial

Categoria: Funções de Data e Hora Finalidade: Retorna a data para o dia, mês e ano especificados. Sintaxe: DateSerial(Ano, Mês, Dia) Em que: • Ano - Número entre 100 e 9 inclusive.

• Mês - Qualquer expressão numérica.

• Dia - Qualquer expressão numérica. Exemplo:

12 Iniciando no Visual Basic 6.0

REM Retorna a data de 1º de maio de 1999 Teste = DateSerial(9, 5, 1) ‘Teste = 01/05/9

DateValue

Categoria: Funções de Data e Hora Finalidade: Retorna uma data. Sintaxe: DateValue(Data) Em que:

• Data - Expressão string representando uma data. O VB pode manipular datas que vão de 1/1/100 até 31/12/9! Você também pode utilizar qualquer expressão que represente data, hora ou ambas. Exemplo:

REM Converte uma string numa data Teste = DateValue("6/2/9") ‘Teste = 2/06/9

Day

Categoria: Funções de Data e Hora Finalidade: Retorna um número de 1 a 31 representando o dia do mês. Sintaxe: Day(Data) Exemplo:

Categoria: Funções Financeiras Finalidade: Calcula a depreciação de um ativo pelo método do Declínio de Balanço. Sintaxe: DDB(Cost, Salvage, Life, Period[, Factor]) Em que: • Cost - Custo inicial do bem.

• Salvage - Valor do bem ao final de sua vida útil.

• Life - Vida útil do bem.

• Period - Período de depreciação.

• Factor - Taxa de declínio do balanço. Exemplo:

Funções Internas 13

Dir

Categoria: Funções de Sistema Operacional Finalidade: Retorna o nome dos arquivos ou diretórios que combinam com o padrão especificado ou atributo de arquivo, ou volume de um drive. Sintaxe: Dir[(Pathname[, Attributes])] Em que:

• Pathname - Expressão string que especifica o nome do arquivo. Essa string também pode conter o caminho completo (drive e diretório) do arquivo procurado. Se o caminho não for encontrado, Null será retornado.

• Attributes - Constante ou expressão numérica que indica os atributos do arquivo selecionado. Se omitido, somente serão retornados os arquivos normais, ou seja, arquivos ocultos de sistema e diretórios não serão exibidos.

Ajustes:

Ajuste Descrição 0 Normal 2 Hidden (Oculto) 4 System (Sistema) 8 Volume 16 Diretório

Exemplo: Teste = Dir("C:\WINDOWS\WIN.INI") ‘Teste = “WIN.INI”

Para múltiplos arquivos: Teste = Dir("C:\WINDOWS\*.INI") List1.AddItem Teste

Do While Teste <> Empty

Teste = Dir List1.AddItem Teste Loop

Quando você utiliza caracteres curinga como * e ?, o VB retorna o primeiro nome de arquivo que atende às condições de busca indicadas na função Dir. A partir daí, basta chamar a função Dir sem argumentos para que os próximos arquivos que atendem à condição proposta sejam exibidos. Quando não existirem mais arquivos, a função Dir retornará uma string de comprimento zero.

DoEvents Categoria: Funções de Sistema Operacional

14 Iniciando no Visual Basic 6.0

Finalidade: Interrompe momentaneamente a execução de seu aplicativo para que o sistema operacional possa processar outros eventos pendentes. Sintaxe: DoEvents( )

Exemplo: For a = 1 To 30000

If a Mod 1000 = 0 Then 'Se o loop foi repetido 1000 vezes.

DoEvents 'Passa o controle para o sistema operacional.

End If Next a

Quando seu aplicativo realiza tarefas muito demoradas, o sistema operacional deixa de processar a ocorrência de alguns eventos, que ficam pendentes em uma fila de execução. É mais ou menos o que ocorre quando você dá dois cliques sobre o ícone do VB para inicializá-lo. Enquanto o seu micro vai carregando este aplicativo, as teclas que você está acionando e os cliques de mouse dados sobre a tela são ignorados pelo Windows. Depois que a sua aplicação já está carregada é que o Windows processa os eventos pendentes. A função DoEvents também retorna o número de formulários abertos no Windows.

Environ

Categoria: Funções de Sistema Operacional Finalidade: Retorna a string associada a uma variável de ambiente do sistema operacional (como Path e Prompt, por exemplo). Sintaxe: Environ({Envstring | Número}) Em que:

(Parte 1 de 4)

Comentários