Ir ao conteúdo
  • Cadastre-se
kleber10

VBA - Criei uma calculadora com botões, mas o botão de ''ponto'' não funciona.

Recommended Posts

É um código bem simples, fiz a calculadora desta Imagem.

O código do botão ''ponto'' é este.


Private Sub CmdPonto_Click()
Visor.Text = Visor.Text + ","
End Sub

Quando eu digito por exemplo:

5,5 + 5

Em vez de aparecer 10,5 ele arredonda pra 10. Como se ignorasse o que vem depois do ponto/virgula.

Quando faço uma divisão de número quebrado ele retorna um valor com vírgula sem nenhum problema.

Este é o código completo.


Dim sinal
Dim gravar

Private Sub Cmd0_Click()
Visor.Text = Visor.Text + "0"
End Sub

Private Sub Cmd1_Click()
Visor.Text = Visor.Text + "1"
End Sub

Private Sub Cmd2_Click()
Visor.Text = Visor.Text + "2"
End Sub

Private Sub Cmd3_Click()
Visor.Text = Visor.Text + "3"
End Sub

Private Sub Cmd4_Click()
Visor.Text = Visor.Text + "4"
End Sub

Private Sub Cmd5_Click()
Visor.Text = Visor.Text + "5"
End Sub

Private Sub Cmd6_Click()
Visor.Text = Visor.Text + "6"
End Sub

Private Sub Cmd7_Click()
Visor.Text = Visor.Text + "7"
End Sub

Private Sub Cmd8_Click()
Visor.Text = Visor.Text + "8"
End Sub

Private Sub Cmd9_Click()
Visor.Text = Visor.Text + "9"
End Sub

Private Sub CmdDesligar_Click()
End
End Sub

Private Sub CmdDivisão_Click()
gravar = Visor.Text
Visor.Text = ""
sinal = 4
End Sub

Private Sub CmdIgual_Click()
Select Case sinal
Case 1
Visor.Text = Int(gravar) + Int(Visor.Text)
Case 2
Visor.Text = gravar - Visor.Text
Case 3
Visor.Text = gravar * Visor.Text
Case 4
Visor.Text = gravar / Visor.Text
Case 5
Visor.Text = gravar * (Visor.Text / 100)

Case Else
MsgBox "Dígito inválido"
End Select
End Sub

Private Sub CmdLimpar_Click()
gravar = 0
Visor.Text = ""
sinal = 0
End Sub

Private Sub CmdMultiplicação_Click()
gravar = Visor.Text
Visor.Text = ""
sinal = 3
End Sub

Private Sub CmdPonto_Click()
Visor.Text = Visor.Text + ","
End Sub

Private Sub CmdPorcentagem_Click()
gravar = Visor.Text
Visor.Text = ""
sinal = 5
End Sub

Private Sub CmdSoma_Click()
gravar = Visor.Text
Visor.Text = ""
sinal = 1
End Sub

Private Sub CmdSubtração_Click()
gravar = Visor.Text
Visor.Text = ""
sinal = 2
End Sub

Alguém sabe identificar o problema?

Grato.

Compartilhar este post


Link para o post
Compartilhar em outros sites

já tentou trocar    "," por "."
você ta usando virgula, tenta um ponto mesmo

 

pode ser isso

 

ou ao invés de usar "+" , utilize "&"

Private Sub CmdPonto_Click()Visor.Text = Visor.Text & ","End Sub


 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×