Calculadora em VB

5 respostas
D

Olá pessoal !

Sou iniciante em VB. Preciso fazer um trabalho que é uma calculadora básica. Consegui somar e diminuir, porém não consigo multiplicar de jeito nenhum.

Este é o Evento do botão +

Private Sub btMais_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btMais.Click

operacao = "+"

valor = valor + Integer.Parse(Entrada.Text)

Entrada.Text = ""

Entrada.Focus()

End Sub

Este do botão de Multiplicação

Private Sub btX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btX.Click
    operacao = "*"
    valor = (valor) * Entrada.Text
    Entrada.Text = ""
    Entrada.Focus()
End Sub

Alguém pode me ajudar por favor, tentei de várias maneiras e não consegui…
Desde ja agradeço pela atenção

Obrigado.

5 Respostas

T

O que está funcionando é este aqui:

valor = valor + Integer.Parse(Entrada.Text) 
...

O que não funciona é este aqui:

valor = (valor) * Entrada.Text

Qual é a diferença? Fica a seu cargo descobrir a diferença.

D

valor = (valor) * Entrada.Text

o resultado sempre da zero …
pq ???

T

Porque você nunca reparou em uma calculadora de verdade.
Se você reparou bem em uma calculadora de verdade, o sinal de “X” não faz a multiplicação na hora.

A tecla de X (multiplicação) não faz a multiplicação “na hora”; ela indica que quando você teclar o sinal de “=”, ou então quando você teclar um sinal de “+”, “-”, “X” ou “/” depois de você entrar com o segundo número, aí que você tem de fazer a tal multiplicação.

D

Consegui resolver meu problema :slight_smile:

Na verdade eu tinha que fazer uma verificação de que se a operação tinha ou não sido feita

If (Not operacao Is Nothing) Then
valor = Integer.Parse(Entrada.Text) * valor
Else
valor = Integer.Parse(Entrada.Text)
End If

Porque ele estava reconhecendo o primeiro valor como zero
Mesmo assim muito obrigado pela ajuda

Abraço

renatosilva

Nessa calculadora eu tentei simular uma de verdade…

Criado 16 de março de 2009
Ultima resposta 27 de mar. de 2009
Respostas 5
Participantes 3