MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    lupe
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 15/07/2010

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

    Mensagem  lupe 29/4/2014, 20:16

    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.
    Anexos
    Calculadora - Exibe/Oculta Lista (Correções do exemplo) AttachmentCalculadoraRSA.zip
    Access 2010
    Você não tem permissão para fazer download dos arquivos anexados.
    (484 Kb) Baixado 65 vez(es)


    Última edição por HARYSOHN em 20/5/2014, 02:36, editado 3 vez(es) (Razão : Correção do exemplo)


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2573
    Registrado : 09/04/2012

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

    Mensagem  Kaynan 29/4/2014, 21:41

    Gostei lupe,obrigado por compartilhar.
    Sucesso.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 794
    Registrado : 11/09/2013

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

    Mensagem  formiga10x 29/4/2014, 22:34

    Boa vou adaptar ao meu projeto "com os devidos créditos" Parabéns Lupe / Assis
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 794
    Registrado : 11/09/2013

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

    Mensagem  formiga10x 11/5/2014, 20:50

    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.
    lupe
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 15/07/2010

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

    Mensagem  lupe 12/5/2014, 12:43

    Olá formiga10x!

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

    Obrigado!


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 794
    Registrado : 11/09/2013

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

    Mensagem  formiga10x 12/5/2014, 12:49

    Brigado Lupe.
    lupe
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 15/07/2010

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

    Mensagem  lupe 15/5/2014, 17:58

    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!


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2107
    Registrado : 13/04/2012

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

    Mensagem  Fernando Bueno 16/5/2014, 14:35

    Muito bom heim amigo, gostei!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    Calculadora - Exibe/Oculta Lista (Correções do exemplo) 16rzeq
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 794
    Registrado : 11/09/2013

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

    Mensagem  formiga10x 16/5/2014, 14:45

    Realmente ficou show parabéns.
    lupe
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 15/07/2010

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

    Mensagem  lupe 16/5/2014, 17:15

    Olá!

    Fernando Bueno e formiga10x, obrigado!

    Que bom que gostaram.

    Sucesso!


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN 16/5/2014, 19:30

    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.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 794
    Registrado : 11/09/2013

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

    Mensagem  formiga10x 17/5/2014, 04:18

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 15/07/2010

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

    Mensagem  lupe 17/5/2014, 11:46

    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!


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    lupe
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 15/07/2010

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

    Mensagem  lupe 17/5/2014, 12:14

    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!


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    Administrador
    Administrador
    Administrador
    Administrador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 400
    Registrado : 02/11/2009

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

    Mensagem  Administrador 17/5/2014, 20:07

    Alerto para estas salas de exemplos estarem vetas a duvidas.



    .................................................................................
    Admin
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN 20/5/2014, 02:34

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

    Cumprimentos.

      Data/hora atual: 28/2/2021, 06:05