Trabalhando com Funções

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

 

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

Objetos	Propriedade = Valor
Form	Name = frmPrincipal Text = Exemplo de Funções
Button	Name = btnCalcular Text = &Calcular
TextBox	Name = txtNumero1 Text =
TextBox	Name =txtNumero2 Text =
TextBox	Name =txtNumero3 Text =
Label	Text = Numero-1
Label	Text = Numero-2
Label	Text = Numero-3
Label	Text = Soma:
Label	Text = Média:
Label	Text = name = lblSoma Fonte = Tahoma, Negrito, 12, vermelho
Label	Text = name = lblmedia Fonte = Tahoma, Negrito, 12, vermelho

No evento CLICK do botão Calcular coloque o seguinte código, mas antes aproveite digite as funções abaixo, fora da sub BtnCalcularClick:

Function soma3(a As Double, b As Double, c As Double) As Double
    Return (a + b + c)
End Function

Function media3(x As Double, y As Double, z As Double) As Double
    Return soma3(x,y,z)/3
End Function

Private Sub BtnCalcularClick(sender As System.Object, e As System.EventArgs)

Dim n1,n2,n3 As Double

n1 = CDbl(txtNumero1.Text) ' Converte para double
n2 = CDbl(txtNumero2.Text)
n3 = CDbl(txtNumero3.Text)

lblSoma.Text= soma3(n1, n2, n3).ToString
lblMedia.Text= media3(n1, n2, n3).ToString

End Sub

Observação: Você pode perceber durante a digitação da sua Sub BtnCalcularClick ao escrever o nome da função que você já criou o Editor de código do Sharpdevelop mostra os parametros das suas funções.

FORMATANDO NÚMEROS: Experimente mudar as linhas a seguir:

lblMedia.Text= media3(n1, n2, n3).ToString("n") ' Formato 3,33 - configurações do seu painel de controle
lblMedia.Text= media3(n1, n2, n3).ToString("c") ' Formato R$ 3,33 - configurações do seu painel de controle

 

---

Dicas:

• Tente fazer os temas propostos para Treinamento

| 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