Calculadora - Exibe/Oculta Lista (Correções do exemplo)

Olá pessoal!

Encontrei aqui mesmo no Fórum, um exemplo de calculadora muito bom disponibilizado pelo amigo Assis.
Fiz uma adaptação com a implementação da opção de exibir/ocultar a lista de cálculos e gostaria de
compartilhar com o Fórum.

Espero que gostem e aproveitem de alguma forma.

Gostei lupe,obrigado por compartilhar.
Sucesso.

Boa vou adaptar ao meu projeto "com os devidos créditos" Parabéns Lupe / Assis

Tem um probleminha na calculadora quando adiciona no M+ ou M- um valor decimal tipo 2,3+3= 5,3 ela retorna 5 ou seja arredonda.

Olá formiga10x!

Não tinha atentado para isso, vou estudar o caso.

Obrigado!

Brigado Lupe.

Olá formiga10x!

Conforme você sugeriu, atualizei o exemplo com a correção para os cálculos decimais, agora o resultado não é mais arredondado como antes.


Sucesso!

Muito bom heim amigo, gostei!

Realmente ficou show parabéns.

Olá!

Fernando Bueno e formiga10x, obrigado!

Que bom que gostaram.

Sucesso!

Boas Lupe...
Experimente colocar um número na memória...
Após isto limpe a calculadora.. deixando-a sem números no visor..
Clique em MR... verás o erro...


Para correção deste erro substitua a respectiva função por esta:

Private Function HandleMem(memAction As Byte) As Boolean
  Dim dblTxt As Double, dblMem As Double
  
  dblMem = CDbl(lblMem.Caption)
  If Len("" & Me.lblReadOut.Caption) = 0 Then
    dblTxt = 0
  Else
    dblTxt = Format(lblReadOut.Caption, "###.###.###.###,##########")
  End If
  Select Case memAction
    Case 0 'Memory plus
      lblMem.Caption = dblMem + dblTxt
    Case 1 'Memory Minus
      lblMem.Caption = dblMem - dblTxt
    Case 2 'Recall memory
      lblReadOut.Caption = dblMem
      LastInput = csStateNums
      Op1 = CDbl(lblReadOut.Caption)
      byteOpHolder = opClear
    Case 3 'Clear Memory
      lblMem.Caption = 0
  End Select
  lblMemInd.Visible = lblMem.Caption
  HandleMem = True
End Function

Cumprimentos.

Piloto na primeira vez joga 0 mas, caso click novamente até por acidente da erro.

Grande HARYSOHN!

É um prazer ter a vossa participação neste tópico. Muito obrigado pela valiosa observação.

Fiz muitos testes antes de postar novamente o exemplo, mas este que você indicou me escapou.

Vamos as correções...

Abraço!

HARYSOHN,

Copiei e colei a função corrigida que você sugeriu, porém, ao repetir a operação por 2 ou mais vezes a função retornava valores somados, exemplo:

Some 2 + 2 = 4 e adicione na memória (M+)...
Limpe a calculadora (C)...
Clique em (MR)...retornará o valor 4, porém, se você somar novamente, por exemplo, + 2 = 6 e clicar novamente em (M+), limpar novamente a calculadora e depois clicar em (MR), retornará o valor 10.

Sendo assim, fiz uma pequena implementação em "Case 2" na função e corrigiu o erro.

Private Function HandleMem(memAction As Byte) As Boolean
Dim dblTxt As Double, dblMem As Double

dblMem = CDbl(lblMem.Caption)
If Len("" & Me.lblReadOut.Caption) = 0 Then
dblTxt = 0
Else
dblTxt = Format(lblReadOut.Caption, "###.###.###.###,##########")
End If
Select Case memAction
Case 0 'Memory plus
lblMem.Caption = dblMem + dblTxt
Case 1 'Memory Minus
lblMem.Caption = dblMem - dblTxt
Case 2 'Recall memory
lblReadOut.Caption = dblMem
LastInput = csStateNums
Op1 = CDbl(lblReadOut.Caption)
byteOpHolder = opClear
lblMem.Caption = "0"
dblMem = CDbl(lblMem.Caption)
Case 3 'Clear Memory
lblMem.Caption = 0
End Select
lblMemInd.Visible = lblMem.Caption
HandleMem = True
End Function

O arquivo exemplo já foi atualizado.

Sucesso!

Alerto para estas salas de exemplos estarem vetas a duvidas.

Passaremos o tópico à sala correta, após corrigido retornará a sala de repositórios.

Cumprimentos.