Calculadora em VB

Assuntos Gerais
#1

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.

#2

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.

#3

valor = (valor) * Entrada.Text

o resultado sempre da zero …
pq ???

#4

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.

#5

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

#6

Nessa calculadora eu tentei simular uma de verdade…

#7