[NEW]Outro método para se fazer uma Calculadora...

Bom pessoal vou ensinar logo como se faz...Não vou colocar print por falta de tempo e tambem não vou colocar cores por que não gosto de restart.

1.
Com o Visual Studio 2008 aberto, no menu File, clique em New Project.A caixa de diálogo New Project abre.

2.
Crie um novo projeto Windows Form Application chamado Calc.

3.
Altere a propriedade do Formulário como a abaixo:Size = 328; 358Text = Calculadora

4.
Crie um controle TextBox. Altere as propriedades como abaixo:Size = 290; 20Location = 18; 34

5.
Crie 10 controles Button. Altere as propriedades como abaixo:
Text button0 à button9 = 0 à 9.

Name button0 à button9 = btnZero, btnUm, btnDois, btnTres, btnQuatro, btnCinco, btnSeis, btnSete, btnOitoe btnNove.

Size (para button1 à button9) = 50; 23.

Size (button10) = 162; 23.

6.
Crie mais 5 controle Button. Altere a propriedade como abaixo:

Text (button11 à button 15) = na seguinte ordem + - * / %.
Name (button11 à button 15) = na seguinte ordem Adicao, Subtracao, Multiplicacao, Divisao, Porcent.
Size (button11 à button15) = 50; 23.

7.
crie mais 1 controle Button. Altere a propriedade como abaixo:

Text “ = “
Name = Igual
Size = 66; 52

Organize os controles no formulário para que fiquem como a imagem abaixo:

O Formulário está pronto agora é necessário adicionar as funcionalidades dos controles.

8.
Dê duplo clique no Formulário. Será aberto o procedimento de evento
Form1_Load.
Embaixo de Public Class Form1, escreva o seguinte código:

Código:

Dim limpaExibicao As Boolean
Dim operando1, operando2 As Double
Dim operador As String
Dim operador2 As String
Dim porcentagem As Double

Foram declaradas 6 variáveis.limpa Exibição do tipo Booleana;operando1, operando2 e porcentagem do tipo Double;operador, operador2 do tipo String.

9.
Volte para o Form1.vb[Design]. Dê duplo clique no botão 0 (Zero). Será aberto o procedimento de eventobtnZero_Click
.
Escreva o seguinte código:

Código:

If limpaExibicao Then
TxtTela.Clear()
limpaExibicao = False
 End If
 txtTela.Text = TxtTela.Text + sender.Text

Escreva o mesmo código para os botões 1,2,3,4,5,6,7,8,9.

10.
Volte para o Form1.vb[Design]. Dê duplo clique no botão + . Será aberto o procedimento de eventoAdicao_Click
.
Escreva o seguinte código:

Código:

operando1 = Val(TxtTela.Text)
operador = "+"
LimpaExibicao = True

Dê duplo clique no botão - . Será aberto o procedimento de evento
Subtracao_Click.

Escreva o seguinte código:

Código:

operando1 = Val(TxtTela.Text
operador = "-"
LimpaExibicao = True

Dê duplo clique no botão * . Será aberto o procedimento de evento
Multiplicacao_Click.

Escreva o seguinte código:

operando1 = Val(TxtTela.Text)
operador = "*"
limpa Exibição = True

Dê duplo clique no botão / . Será aberto o procedimento de evento
Divisao_Click.

Escreva o seguinte código:

operando1 = Val(TxtTela.Text)
operador = "/"
limpaExibicao = True

Dê duplo clique no botão % . Será aberto o procedimento de evento
Porcent_Click.

Escreva o seguinte código:

operando2 = Val(TxtTela.Text)
operador2 = "%"
LimpaExibicao = True

Quando o botão “+” for clicado a variável operando1 recebe o valor que está no controle TxtTela.Text. Avariável operador recebe um caractere “+” e a variável limpaExibição, como o nome já diz, limpa o controleTxtTela.Text.

A mesma coisa acontece para O botão - , * e / o que muda é o caractere que a variável operador recebe.No caso da porcentagem (%) a variável operador2 é que recebe o caractere %.

Função Val:
Retorna os números contidos numa cadeia de caracteres como um valor numérico do tipoapropriado.

11.
Volte para o Form1.vb[Design]. Dê duplo clique no botão = . Será aberto o procedimento de evento
Igual_Click.

Escreva o seguinte código:

Código:

Dim resultado As Double
 operando2 = Val(TxtTela.Text)
If operador2 = "%" Then
 If operador = "+"
Then porcentagem = operando2 / 100
 resultado = operando1 * (porcentagem + 1)
ElseIf operador = "-" Then
 porcentagem = operando2 / 100
 resultado = operando1 - (operando1 * porcentagem)
Else
 porcentagem = operando2 / 100
resultado = operando1 * porcentagem
End If

 ElseIf operador = "+" Then
resultado = operando1 + operando2
 ElseIf operador = "-" Then
 resultado = operando1 - operando2
 ElseIf operador = "*" Then resultado = operando1 * operando2
Else
If operando2 <> "0" Then
 resultado = operando1 / operando2
Else
TxtTela.Text = "ERRO: Divisão por zero"
 limpaExibicao = True


Foi declarada uma variável resultado do tipo Double.

Cálculo de Porcentagem

O programa verifica se o botão Porcentagem foi clicado.O usuário entra com um valor, após isso é preciso clicar nos botões + , - ou *, depois será necessário entrar com outro valor na TxtTela, o operando2 recebe esse segundo valor.
Após entrar com o segundo valor é necessário clicar no botão porcentagem. Se o botão porcentagem forclicado, então o programa verifica o valor do operador se é +,- ou * para fazer ou seguinte cálculo:


Se o operador for igual a +
porcentagem = operando2 / 100
resultado = operando1 * (porcentagem + 1)


Se o operador for igual a –
porcentagem = operando2 / 100
resultado = operando1 - (operando1 * porcentagem)

Senão
porcentagem = operando2 / 100
resultado = operando1 * porcentagem

Quando o usuário clicar nos botões + , - , * , / ou % , será necessário entrar com outro valor na TxtTela, ooperando2 recebe esse segundo valor.


Anteriormente foi declarado uma variável chamada operador, conforme o usuário clica nos botões + , - , * ou /, essa variável recebe um caractere.

Quando o botão ” =” é clicado o programa verifca o caractere do operador, caso o caractere do operador for“+ , - ou * “ , a varíavel resultado recebe o valor do operando1 somado, subtraído ou multiplicado com ovalor do operando2 e a TxtTela recebe o valor da variável resultado.

caso o caractere do operador for “/”, o programa verifica se o valor da variável operando2 é diferente de0(zero). Se for diferente de 0(Zero), a variável resultado recebe o valor do operando1 e divide pelo valor dooperando2 e a TxtTela recebe o valor da variável resultado, senão, a TxtTela mostra a seguinte frase
“ERRO: Divisão por zero".