Projeto Aprenda em Casa - Cursos gratuitos

Clube VB - Nosso primeiro projeto

Aula 11

Em nosso primeiro projeto, vamos gerar um simples programa onde teremos em um formulário, os seguintes componentes:

3 Textbox (caixas de texto)
3 Labels.
1 Command Buttom (botões de comando).

A finalidade de nosso primeiro projeto será a de criar uma espécie de calculadora, ou seja, ao clicarmos sobre um dos BUTTONS (que deverá ter o caption igual à SOMA), o terceiro TextBox irá receber a soma dos valores inseridos nos dois primeiros TextBox. Com este pequeno e simples projeto, iremos entrar em um novo assunto na programação VB, denominado "Funções".

Inicie uma nova aplicação no VB e, insira os componentes supra citados. Ao final deste procedimento, sua janela terá o seguinte aspecto:

O primeiro passo é alterar a propriedade CAPTION dos LABELS, respectivamente para : "DIGITE UM NÚMERO", "DIGITE OUTRO NÚMERO", "RESULTADO DA SOMA". Ao final desta alteração, seu formulário terá o seguinte aspecto:

Em seguida, iremos apagar o conteúdo da propridade TEXT de todos os TextBox. Com isso, o interior destes componentes não irão mais exibir as palavras TEXT1 ... TEXT2 ... TEXT3.

Altere a propriedade CAPTION do CommandButtom para "SOMAR". Ao final destes procedimentos, seu formulário terá o seguinte aspecto:

Temos o obejtivo de fazer com que, após clicar sobre o botão "SOMAR", seja exibido no terceiro TextBox a soma dos valores entrados nos dois primeiros TextBoxes. Porém observe o seguinte:

Em um TextBox, o conteúdo digitado é interpretado como String, ou seja, um valor fixo e que não poderá sofrer nenhuma espécie de operação matemática.

Tendo o conhecimento de tal regra, vamos tentar de forma direta, executar a soma do conteúdo do Textbox1 e do Textbox2 armazenando o seu resultado em TextBox3. Dê um clique duplo sobre o Buttom e entre com o seguinte código:

Private Sub Command1_Click()
Text3.Text = Text1.Text + Text2.Text
End Sub

Execute o seu projeto. No primeiro Textbox, digite o valor "12" e no segundo o valor "34". Em seguida, clique sobre o botão "SOMAR" e veja o resultado no terceiro TextBox:

Observe que o resultado da soma foi "1234", ou seja, um valor errado, pois a soma correta de 12 + 34 = 46. Mas o porque este resultado?

Quando solicitamos de forma direta a soma "+" do conteúdo do Textbox1 com o conteúdo do TextBox2 ( text1.text+text2.text), estamos na verdade solicitando uma concatenação, ou seja, o agrupamento de duas Strings, onde as mesmas são colocadas uma ao lado da outra, sendo assim, em uma concatenação de "12"+"34" é igual à "1243".

Conforme citamos, o conteúdo dos Textboxes são considerados Strings. Como neste caso queremos realizar uma operação matemática, deveremos utilizar uma função para transformar String em número. Sendo assim, teremos que digitar o seguinte conteúdo no evento click do Buttom:

Private Sub Command1_Click()
Text3.Text = (Val(Text1.Text) + Val(Text2.Text))
End Sub

No comando acima, estamos utilizando a função VAL, que tem o objetivo de transformar String em número, assim sendo, agora teremos em Text3 o resultado da soma dos números de Text1 e Text2. Execute o projeto, entre com os mesmos valores e veja o resultado após o clique no botão SOMA:

Outro detalhe interessante é que, antes de usarmos a função VAL, com o operador "+", o projeto compilou e executou sem erros, porque estamos solicitando uma concatenação, porém se tentarmos usar o operador de multiplcação (*) por exemplo, o VB irá gerar um erro, pois em Strings não existe a operação de multiplicação.

A sintaxe da função VAL é a seguinte:

VAL (variável)

O objetivo da função VAL é converter o conteúdo de uma variável String para uma variável numérica. Ao contrário do que você pode estar pensando, as funções não existem apenas para transformar valores String para numéricos. Existem funções para manipulação de Datas, Strings, números, etc...

Nossa próxima aula terá o objetivo de estudar as principais funções do VB6.

Voltar