Projeto Aprenda em Casa - Cursos gratuitos

Clube VB - Funções VB6

Aula 12

Neste modo iremos expor as principais funções do VB6, que serão de grande utilidade em aplicativos comerciais.

Função ABS

Tem a finalidade de retornar o valor absoluto e positivo de um número ou da variável informada. A sintaxe de construção deste comando é extremamente simples:

Abs (número_ou_variável)

No exemplo a seguir, quando o formulário for carregado, iremos armazenar na variável "exemplo" o valor -2001, e através de uma caixa de diálogo, iremos apresentar este número em seu valor absoluto. Veja a fonte do sistema a seguir:

Private Sub Form_load()
    Dim exemplo as Double
    Let exemplo = -2001
    Msgbox (str(abs(exemplo)))
End Sub

Observe que no exemplo anterior, usamos também a função STR, que tem a função de converter um número em string, pois apenas neste formato é que é aceito uma informação na caixa de msgbox. Logo, usamos duas funções em uma mesma linha de código, sendo que a primeira transforma o número em string e a segunda o número em absoluto e positivo. Será exibida na caixa de diálogo o número 2001.

Função FIX

Tem a finlidade de retornar um número inteiro e sem arredondamento. Sua sintaxe é:

Fix (número_ou_variável)

Função Hex

Tem a função de transformar um número decimal em hexadecimal. Sua sintaxe é:

Hex (número_ou_variável)

Função Int

Tem a função de retornar o inteiro de um número com arredondamento. Sua sintaxe é:

Int (número_ou_variável)

Função RND

Tem a função de retornar um número aleatório de 1 até o número especificado. Sua sintaxe é:

RND (número)

Função VAL

Tem a finalidade de transformar o valor de uma String em número, ou seja, o inverso da função STR observada no primeiro exemplo. Sua sintaxe é:

VAL (string_ou_variável)

Função Curdir

Tem a finalidade de retornar o diretório atual onde o usuário estiver atuando. Veja a seguir um simples exemplo construído passo a passo com esta função:

1. Primeiro abra o Visual Basic e inicie um novo projeto;
2. Insira no formulário dois componentes Labels, disponibilizando estes um abaixo do outro;
3. Na propriedade CAPTION do primeiro Label, insira : "Diretório atual de trabalho";
4. Na propriedade CAPTION do segundo label, apague todo o conteúdo;
5. No evento LOAD do formulário, entre com a seguinte codificação:

Private Sub Form_Load()
    Dim diretorio As Variant
    diretorio = CurDir
    Label2.Caption = diretorio
End Sub

execute o seu projeto. Você terá como retorno, uma janela mais ou menos como a que segue:

Observe que o caminho na qual você está operando no momento é exibido no label2.

Função Left

Esta função tem o objetivo de retornar x caracteres a partir da esquerda de uma string. Sua sintaxe é:

Left (variável, número_caracteres)

Observe o exemplo a seguir:

Private Sub Fom_load()
     Dim empresa as String
     Let empresa="Projeto Aprenda em Casa"
     MsgBox (left(empresa,7))
End Sub

No exemplo acima, teremos uma caixa de mensagens apenas com a palavra "Projeto", pois solicitamos que seja exibida na mesma apenas as 7 primeiras posições (caracteres) da variável empresa.

Função Right

Tem praticamente o mesmo objetivo da função Left, com exceção de retornar x caracteres a partir da direita da String. Veja o exemplo a seguir:

Private Sub Fom_load()
     Dim empresa as String
     Let empresa="Projeto Aprenda em Casa"
     MsgBox (Right(empresa,7))
End Sub

No exemplo acima, teremos uma caixa de mensagens apenas com a frase "em Casa", ou seja, os 7 últimos caracteres da variável "empresa".

No próximo módulo continuaremos a estudar as funções e gerar um novo aplicativo.

Voltar