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.
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.
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.
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.