Projectos. (Visual Basic)

Ola nesta mensagem vou  publicar alguns dos projectos realizados em ambiente sala de aula. Tentarei colocar os códigos correspondentes para que assim vocês também possam realizar varias experiências.

Codigos:

Nesta ficha não utilize os códigos das cores no código de execução funciona melhor se escolher uma outra cor qualquer.

A próxima ficha é um exercício sobre o calculo da área de um rectângulo.

Exemplo de um possível resultado.

Códigos:


Caixa de texto do comprimento: textbox_1
Caixa de texto da largura: text.box_2
Caixa de texto área: text.box_3


Execução:


TextBox_3.Text= Val(TextBox_1.Text) * Val( TextBox_2.Text)




Uma das últimas fichas foi a de fazer experiências com nomes:

Tendo em atenção o nome das caixas de texto o código é o seguinte:


TextBox_3.Text = TextBox_1.Text + TextBox_2.Texte   isto para o botão juntar. 
Para o botão trocar basta no código trocar as caixas de texto 1  e 2.


Para limpar:


TextBox_1.Text = " " e faz-se igualmente para as restantes caixas de texto.


Para sair o código é:

End.




A seguinte ficha foi apenas um exercício elementar (apagar e repor texto):

Para apagar o texto:


TextBox_1.Text = " " 


Para repor texto:


TextBox_1.Text = " Bem vindos ao Visual Basic"




A ficha seguinte foi feita através da definição de variáveis, ou seja basta um código para definir todos os resultados possíveis.

Com a definição de variável o código é:

Botão área:

Dim comp larg area  AS Integer

comp = TextBox_1.Text

larg = TexBox_2.Text

area = comp * larg

TextBox_3.text = area

Botão Perimetro:

Dim comp larg perimetro As integer

comp= TextBox_1.Text

larg = TexBox_2.Text

perimetro = comp + larg

TextBox_3.text = perimetro.

Para se ter sucesso neste programa é muito importante ter sempre em atenção os nomes das caixas de texto, dos botões... pois se o código não reconhece o nome não irá funcionar.