Técnicas de Desenvolvimento de Aplicativos – Calculadora – Parte 3

Olá caros alunos.

                Hoje, em nossa aula de laboratório, iremos programar as rotinas dos botões responsáveis pelas operações matemáticas de nossa Calculadora, e também o botão ‘igual’, que terá a função de mostrar o resultado do cálculo na tela.

                Mas antes de começarmos, vamos fazer uma pequena alteração no nosso programa. Lembram da programação do botão VÍRGULA? Nela temos a seguinte linha de código:

txtvisor.Text = txtvisor.Text & “.”

                Nós colocamos o ponto(.), a fim de seguir o padrão americano de numeração. No entanto, o Visual Basic segue o padrão do sistema operacional e, dessa forma, reconhece normalmente a vírgula(,). Portanto, devemos alterar para o símbolo da vírgula, ficando a linha de código alterada da seguinte forma.

txtvisor.Text = txtvisor.Text & “,”

Vamos agora aos botões de operações.

Já montamos toda a programação em sala de aula, mas é sempre bom relembrar.

Para tratar os valores envolvidos e a operação matemática a ser realizada, precisamos declarar algumas variáveis visíveis a todas as rotinas do programa. Nesse caso, declaramos no início da programação.

Dim dblNum1 As Double

Dim dblNum2 As Double

Dim dblResultado As Double

Dim strOper As String

Tais variáveis armazenam os valores a serem calculados, como o primeiro valor (antes do sinal), o segundo valor e conseqüentemente, o resultado. A variável strOper, armazena a operação desejada, para melhor controle da programação do botão Igual.

Vejamos a programação do botão Soma.

Private Sub cmdSoma_Click()

    dblNum1 = CDbl(txtvisor.Text)

    strOper = “+”

    txtvisor.Text = “0″

    virgula = False

End Sub

                Observe que ao armazenar o valor na variável e a operação desejada, alteramos o visor e a vírgula para seus estados iniciais, representado no evento Form_load(). O método cdbl(), converte um valor numérico qualquer para um número real.

                A programação dos demais botões das operações segue o mesmo padrão, mudando apenas o sinal da operação (valor da variável strOper).

Private Sub cmdMult_Click()

 dblNum1 = CDbl(txtvisor.Text)

    strOper = “*”

    txtvisor.Text = “0″

    virgula = False

End Sub

                Àqueles que desejarem implementar a radiciação na calculadora, segue a respectiva programação.

Private Sub cmdRad_Click()

                dblNum1 = txtvisor.text

txtVisor.text = sqrt(cdbl(dblNum1))

 txtvisor.Text = “0″

 virgula = False

dblNum1 = 0

End Sub

                O botão igual exige um pouco mais de atenção em sua programação. Observe a cadeia de IF’s juntamente com a função da variável strOper. Veja também que o resultado já é mostrado em tela.

Private Sub cmdIgual_Click()

 dblNum2 = CDbl(txtvisor.Text)

    MsgBox dblNum2

    If strOper = “+” Then

        dblResultado = dblNum1 + dblNum2

    ElseIf strOper = “-” Then

        dblResultado = dblNum1 – dblNum2

    ElseIf strOper = “*” Then

        dblResultado = dblNum1 * dblNum2

    ElseIf strOper = “/” Then

        dblResultado = dblNum1 / dblNum2

    ElseIf strOper = “^” Then

        dblResultado = dblNum1 ^ dblNum2

    End If

    txtvisor.Text = dblResultado

End Sub

Finalizaremos nosso projeto em nossa próxima aula, com o botão Reset e a chamada ‘perfumaria’ (arte-final) de nossa calculadora. Abraços a todos e tenham uma boa aula de Animação Digital.