Aula1 - Visual Basic

Curso: Técnico em Informática
Disciplina: Linguagem de Programação ( Visual Basic )
Carga Horária: 76 Hrs
Docente Responsável: Francismar Nascimento

Apresentação do Ambiente de Trabalho do Visual Basic (Cap: 1)

Projeto

Apresentação do Ambiente de Trabalho do Visual Basic

Aprendemos a criar um novo projeto (File / New Project - CTRL + N) e utilizar o opção Standard EXE.
Para salvar o Projeto (File / Save Project )
Para abrir um Projeto Existente ( File / OPen Projec
t - CTRL + O)
Para fechar o Projeto atual (ALT + F4)

Formulário

Para Salvar Formulário ( File / Save - CTRL + S)
Dicas Gerais
:: Para abrir as janelas de propriedades de um objeto ( Form e Controles ), clique no objeto e aperte F4.

:: Para navegar entre as proprieades de um objeto, segure as teclas CTRL + SHIFT + [Letra]

Janelas

:: Caixa de Ferramentas ( ToolBox ) - CTRL + T para adicionar novo componente.
 - Clique duplo no controle para adionar ao formulário ou clique no controle e arraste o mouse no formulário.

Janela de Projeto (Project Explorer - CTRL + R)

Janela de Propriedades (Properties Window - F4)

Exercícios Propostos ( Pág: 15 )



Criar um projeto Standat projetando vários controles sobre o formulário.

Exercícios Propostos 2

Criar um programa que solicite 2 Notas e calcule e exiba ao usuário a média.

Obs: Utilize a função Val() para converter as notas em número.

Private Sub cmdMedia_Click()

  'Utilizar a Função Val() para converte as notas para número

  txtMedia.Text = (Val(txtNota1.Text) + Val(txtNota2)) / 2

End Sub


Exercícios Propostos ( Pág: 33 )


Desenvolvar um Projeto programa que o usuário forneça a cidade e uma data, e o programa mostre em um label a data completa.
Ex: Ribeirão Preto, 23 de Outubro de 2009.
Obs: Utilize & ( e comercial ) para concatenar o texto, o comando condicional Select Case para converte o mês para extenso e as funções Day(), Month() e Year().

Private Sub cmdResultado_Click()
    Select Case Month(txtData)
        Case 1: lblResultado.Caption = txtCidade.Text & "," & Day(txtData.Text) & " de Janeiro de " & Year(txtData.Text)
        Case 2: lblResultado.Caption = txtCidade.Text & "," & Day(txtData.Text) & " de Fevereiro de " & Year(txtData.Text)
        Case 3: lblResultado.Caption = txtCidade.Text & "," & Day(txtData.Text) & " de Março de " & Year(txtData.Text)
        Case 4: lblResultado.Caption = txtCidade.Text & "," & Day(txtData.Text) & " de Abril de " & Year(txtData.Text)
        Case 5: lblResultado.Caption = txtCidade.Text & "," & Day(txtData.Text) & " de Maio de " & Year(txtData.Text)
        Case 6: lblResultado.Caption = txtCidade.Text & "," & Day(txtData.Text) & " de Junho de " & Year(txtData.Text)
        Case 7: lblResultado.Caption = txtCidade.Text & "," & Day(txtData.Text) & " de Julho de " & Year(txtData.Text)
        Case 8: lblResultado.Caption = txtCidade.Text & "," & Day(txtData.Text) & " de Agosto de " & Year(txtData.Text)
        Case 9: lblResultado.Caption = txtCidade.Text & "," & Day(txtData.Text) & " de Setembro de " & Year(txtData.Text)
        Case 10: lblResultado.Caption = txtCidade.Text & "," & Day(txtData.Text) & " de Outubro de " & Year(txtData.Text)
        Case 11: lblResultado.Caption = txtCidade.Text & "," & Day(txtData.Text) & " de Novembro de " & Year(txtData.Text)
        Case 12: lblResultado.Caption = txtCidade.Text & "," & Day(txtData.Text) & " de Dezembro de " & Year(txtData.Text)
    End Select
End Sub

Introdução a Programação do Visual Basic (Cap: 2)
 

Variávies

Dica
:: Utilize sempre Option Explicit para trabalhar com variáveis.


:: Declaramos variáveis com Dim.

Tipos de Dados

Tipo	Tamanho	Faixa de valores	Prefixo	Exemplo
Byte	1 bytes	0 to 255	byt	bytContador
Integer	2 bytes	-32,768 to 32,767	int	intQuantidade
Long	4 bytes	-2,147,483,648 to 2,147,483,648	lng	lngToneladas
Single	4 bytes	Negative values: -3.402823E+38 to -1.401298E-45 Positive values: 1.401298E-45 to 3.402823E+38	sng	sngValorPi
Date	8 Bytes	January 1, 100 to December 31, 9999	dtm	dtmData
Boolean	2 bytes	True ou False	bln	blnAtivado
Variant	16 bytes	Any value as large as Double (numeric)	vnt	vntValor
String	10 bytes + 1 byte por caracter	0 to 2 billion characters (variable length)	str	strNome