Pgina 1Programao III
Programando no Visual Basic
Programao III
Pgina 2Programao III
Estrutura de ControleIf...ThenQuando uma expresso condicional for utilizada em um blocoespecial de instrues chamado de Estrutura de Deciso, elacontrola se outras instrues no programa so executadas eem que ordem so executadas.Sintaxe:
If condio Then instruo
Exemplo:If Pontos >= 100 Then Label1.Text = Voc Ganhou!
Pag n 2
Pgina 3Programao III
Visual Basic - Funes MsgBox(prompt[, buttons][, title][, helpfile, context])
Buttons:
Ex.:MsgBox("Cadastro com sucesso!!", MsgBoxStyle.Information, "Cadastro")
Pag n 3
OKOnly 0 Exibe somente boto OK.OKCancel 1 Exibe botes OK e Cancelar.AbortRetryIgnore 2 Exibe botes anular, repetir e ignorar.YesNoCancel 3 Exibe botes Sim, No e Cancelar.YesNo 4 Exibe botes Sim e No.RetryCancel 5 Exibe os botes ' Repetir ' e ' Cancelar '.Critical 16 Exibe o cone de Mensagem Crtica.Question 32 Exibe o cone de aviso de consulta.Exclamation 48 Exibe o cone de mensagem de aviso.Information 64 Exibe o cone de mensagem de informao.
Pgina 4Programao III
Visual Basic - Funces
If MsgBox("Deseja sair ?", MsgBoxStyle.YesNo, "Programa") = MsgBoxResult.Yes ThenApplication.Exit()
End If
Pag n 4
Pgina 5Programao III
Visual Basic - Funes Application.Exit() Int Now FormatDateTime(Expression,format) InputBox(prompt[, title][, default])
Pag n 5
Pgina 6Programao III
Visual Basic - Principais propriedades:
Name AutoCheck BackColor BorderStyle Checked Enabled Font Text TextAlign Visible
Pag n 6
Principais Eventos Click CheckedChanged
Pgina 7Programao III
Visual Basic - RadioButtonExemplo:
If rdbSelecionado.Checked ThenMsgBox(rdbSelecionado.text)
End If
Evento - CheckedChanged
Pag n 7
Pgina 8Programao III
Exerccio
1. Crie um programa que realize operaes simples (+, -, x, ) com duas TextBox e exiba o resultado em uma terceira.
Pag n 8
Pgina 9Programao III
Visual Basic -
Pag n 9
Principais propriedades: Name AutoCheck BackColor BorderStyle Checked Enabled Font Text TextAlign Visible
Principais Eventos Click CheckedChanged
Pgina 10Programao III
Visual Basic - CheckdBoxExemplo:
Dim strcheck As String = ""If chkSoma.Checked Then
strcheck = strcheck & chkSoma.Text & Chr(13)End If
Pag n 10
Pgina 11Programao III
Visual Basic - Prefixos
Controle Prefixo
Button btn
ComboBox cbo
CheckBox chk
Label lbl
ListBox lst
MainMenu mnu
RadioButton rdb
PictureBox pic
TextBox txt
Pag n 11
Pgina 12Programao III
Exerccio
2. Faa um programa em que voc entre com ovalor das notas da P1,P2,P3, calcule a mdia eexiba na tela se o aluno est aprovado ou no (>6,0).
Pag n 12
Pgina 13Programao III
Visual Basic -
Pag n 13
Principais propriedades: Name BorderStyle DataSource DropDownStyle Enabled Font Item Sorted Text Visible
Principais Eventos Click SelectedIndexChanged
Pgina 14Programao III
Visual Basic - ComboBoxExemplo:
MsgBox(ComboBox1.SelectedItem)MsgBox(ComboBox1.SelectedIndex)ComboBox1.Items.Add("Conceio de Macabu")
Evento - SelectedIndexChangedMsgBox(ComboBox1.SelectedItem)
Pag n 14
Pgina 15Programao III
Exerccio
1. Faa um programa que simule o formulrio decadastramento abaixo e depois exiba as opesselecionadas pelo usurio
Pag n 15
Pgina 16Programao III
Estrutura de Repetio
As estruturas de loop (ou lao) so utilizadas parapermitir que um mesmo conjunto de instruessejam executadas continuamente, at que umadeterminada condio seja satisfeita.
For ... NextFor... = To Step
DeclaraoNext
Pag n 16
Pgina 17Programao III
For ... Next
Exemplo:
For incrementa = 0 To 100ProgressBar1.Value = incrementa
Next
Pag n 17
Pgina 18Programao III
While...Wend
Nesta variante, as instrues dentro do seroexecutadas enquanto (While) o for verdadeiro. Isto significa que, se ovalor de for falso antes do incio dolao, as declaraes contidas em seu interior nosero executadas.
While Declarao
Wend
Pag n 18
Pgina 19Programao III
While...Wend
Pag n 19
Exemplo:
While ProgressBar1.Value < ProgressBar1.MaximumProgressBar1.Value = ProgressBar1.Value + 1
End While
Pgina 20Programao III
With... End With
Esta estrutura permite que o programadorreferencie diretamente cada elemento oupropriedade de uma coleo (ou matriz), sem anecessidade de especificar o caminho completo(ou ndice) para cada elemento da coleo.
A estrutura With... End With, muito utilizadapara permitir a alterao de diversas propriedadesde um nico controle ou formulrio do Visual Basic
Pag n 20
Pgina 21Programao III
With... End With
Exemplo: para alterar diversas propriedades de uma Etiqueta (Label) chamada lbNome, utiliza-se a estrutura With... End With, da seguinte forma:
With lbNome.Text = "Nome :".BackColor = Color.Aquamarine.ForeColor = Color.DarkBlue
End With
Pag n 21
Pgina 22Programao III
Data Source Datasource um nome dado configurao de conexo
para um banco de dados de um servidor. O nome normalmente utilizado quando cria-se uma consulta para obanco de dados. O DSN (Datasource Name) no tem queser o mesmo que o nome do arquivo para o banco dedados. Por exemplo, um arquivo de banco de dadoschamado "amigos.mdb" poderia ser definido com um DSNde "escola". O DSN "escola" seria ento utilizado parareferir-se ao banco de dados quando realizasse umaconsulta.
Pag n 22
Pgina 23Programao III
DataSet
O DataSet uma classe "chave" dentro daarquitetura ADO.NET. O DataSet como nossobanco de dados, porm em memria. Dentro delepodemos armazenar vrios DataTable. possvelvoc adicionar um ou mais DataTable e dediferentes fontes de dados (SQLServer, Oracle,Sybase, XML, etc...).
Pag n 23
Pgina 24Programao III
DataSet Imagine que voc necessita buscar informaes de uma
tabela em um servidor com o SQL Server e outra a partirde um Oracle, porm esses bancos no conversam entresi, esto em redes que no se comunicam. Voc podebuscar as informaes dos servidores e adicionar osretornos dentro de um DataSet. Voc estar "virtualmente"criando um Banco de Dados local, na sua memria, eainda podendo estabelecer os relacionamentos entre astabelas, caso elas possuam algum tipo de relacionamentocom o objeto DataRelation.
Pag n 24
Pgina 25Programao III
DataAdapter
O DataAdapter serve como um elo de ligaoentre a fonte de Dados e o DataSet. Podemosusar o DataAdapter para adicionar o resultado deuma declarao SQL dentro de um DataSet. ODataAdapter executar sua declarao SQL naconexo que for passada para ele.
Pag n 25
Pgina 26Programao III
Exemplo
Criar um sistema com Tela de cadastro de Produtos utilizando Objetos
Pag n 26