Ir ao conteúdo
  • Cadastre-se

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


kleber10

Posts recomendados

É 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.

Link para o comentário
Compartilhar em outros sites

  • 2 meses depois...

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...