Trabalhando com Variáveis, constantes e outros conceitos

Tipo Projeto:	Aplicação Windows
Nome do Projeto:	Verificador
Local do Projeto:	c:\aulasvbnet
Criar subDiretorio do projeto	Marcado
Criar Diretorio para os fontes	Desmarcado

Exemplo: Considerando para esse exercício que o valor que define maioridade seja 18 anos, vamos fazer um prograna que pergunte o nome e a idade de uma pessoal e informe na tela se a mesma é Maior ou Menor de idade.

Crie o projeto acima e coloque os seguintes objetos no mesmo:

Objetos	Propriedade = Valor
Form	Name = frmPrincipal Text = Verificador de Idade
Button	Name = btnVerificar Text = &Verificar
TextBox	Name = txtNome Text =
TextBox	Name = txtIdade Text =
Label	Name = lblSituacao Text =
Label	Text = Nome:
Label	Text = Idade:
Label	Text = Situação:

Com um exemplo simples em VB.NET podemos mostrar como trabalhar com instruções condicionais.

No evento clique do botão btnVerificar coloque o seguinte código:

If CInt(txtIdade.Text) > 18 Then
    lblSituacao.Text = "Maior"
Else
    lblSituacao.Text = "Menor"
End If

O seguinte codigo pode ser colocado no evento VALITED do objeto txtIdade para evitar que se tente entrar com uma idade em branco;

If txtIdade.Text = "" Then
   messagebox.Show("Favor digitar um valor no campo idade")
   txtidade.Text =""
   txtidade.Focus  
End If

O importante nesse exercício é você perceber que o seu programa pode tomar uma decisão, ou seja adotar um caminho a seguir.

Vamos praticar:

1) Faça um programa que receba via teclado varios números e imprima qual é o maior.

2) Um empresário resolveu dar descontos nas vendas conforme a seguinte tabela:

De: 1,00 até 100,00 - 5% Desconto
De: 101,00 até 500,00 - 8% Desconto
De: 501,00 até 1.000,00 - 10% Desconto
Acima de 1.001,00 - 15% Desconto

Faça um programa que entre com o valor da compra e informe o desconto e o valor a cobrar.

Dicas Avançado:

• Você poderia usar a função Isnumeric para verificar se o valor digitado pode ser convertido em número, para isso no início do seu programa VB.NET na seção Imports, deveria ser colocado: Imports Microsoft.VisualBasic
  
  
  If not Isnumeric(txtIdade.Text) Then
       messagebox.Show("Digite um valor numérico")
       txtidade.Text =""
       txtidade.Focus
  End If

Ir para: Aula anterior | Proxima aula | Indice de Aulas

© 1999-2009 POWER Informática - Rua João Manoel, 912 - Centro - Santana do Livramento - RS
Fones: (55) 3 2 4 2 - 5 4 2 7 / (55) 9 9 9 4 - 8 7 8 2
Serviços Manutenção Hardware, programação, páginas Web