Projeto Aprenda em Casa - Cursos gratuitos

Clube VB - Visual Basic 6 e funções

Aula 27

Você saberia definir o que é uma função? Uma função nada mais é do que um ou mais comandos que retornam um valor determinado de acordo com os parâmetros informados. Existem uma série de funções prontas para uso em VB6. Neste módulo iremos estudar algumas delas.

Vamos começar a citar as funções que tratam de Strings, para isso, vamos criar um simples projeto para exemplificar as mesmas.

Inicie um novo projeto;
Na parte superior do form criado, insira um componente LABEL e altere a propriedade CAPTION do mesmo para DIGITE UMA PALAVRA/FRASE;
Ao lado deste label, inclua um componente TEXTBOX e apague o conteúdo da sua propriedade TEXT;
Inclua abaixo da linha que contém o label e o textbox um componente BUTTOM, e altere a propriedade CAPTION do mesmo para TESTE DE FUNÇÕES;
Insira na linha abaixo e um abaixo do outro, mais 4 componentes LABELs, alterando a propriedade CAPTION dos mesmos para: FUNÇÃO LCASE, FUNÇÃO UCASE, FUNÇÃO LEFT, FUNÇÃO RIGHT, respectivamente.
Ao lado de cada um dos 4 labels inseridos no passo anterior, inclua um componente TEXTBOX, apagando o conteúdo da sua propriedade TEXT. Ao final deste procedimento, seu formulário terá o seguinte aspecto:

Antes de codificarmos o botão "TESTE DE FUNÇÕES", vamos ver o que faz cada uma e a sintaxe que deverá ser empregada nas mesmas:

Função LCASE

Esta função converte as letras minúsculas de uma string em maiúsculas. Sua sintaxe é:

LCASE (string)

Função UCASE

Esta função converte as letras maiúsculas de uma string em minúsculas. Sua sintaxe é:

UCASE (string)

Função LEFT

Esta função retorna os "x" primeiros caracteres de uma string. Sua sintaxe é:

LEFT (string, número_de_caracteres)

Função RIGHT

Esta função retorna os "x" últimos caracteres de uma string. Sua sintaxe é:

RIGHT (string, número de caracteres).

Agora que já sabemos o objetivo das funções que vamos utilizar e suas sintaxes, iremos codificar nosso pequeno sistema. Para isso, dê um clique duplo no buttom e entre com a seguinte codificação:

Private Sub Command1_Click()
Text2.Text = LCase(Text1.Text)
Text3.Text = UCase(Text1.Text)
Text4.Text = Left(Text1.Text, 3)
Text5.Text = Right(Text1.Text, 3)
End Sub

Execute o projeto, entre com o nome "SÃO paulo" no primeiro TextBox, clique no botão que testa as funções e veja os resultados:

Passo 1 -> executando e digitando a frase citada no TextBox:

Passo 2 -> clicando no botão TESTE DE FUNÇÕES:

Voltar