Calculadora em Clipper com algumas funções

[billy1943]

Informo aos colegas Clippeiros que disponibilizei para downLoad o arquivo objeto necessário à rotina que fornece uma calculadora, bastando
usar qualquer tecla de função (F3, F4 .... F12), e na calculadora, teclando-se "G" ou F10, o resultado retorna ao campo em Get atual.

Esse arquivo .OBJ contido no CALCULA.ZIP enviado, deve ser linkado com os outros arquivos objeto de seu sistema.

A calculadora exibe uma fita lateral com todas as operações efetuadas, e trabalha com até 4 casas decimais.
Por favor, comentem ou sugiram alguma melhoria.

Em razão do tamanho das teclas da calculadora na tela, limitei as funções às seguintes:

1. Logarítmos
2. Exponencial
3. Percentual
4. Inversa
5. Raiz Quadrada
6. Memória (Soma, Subtração, Limpa e Retorno)

Veja o Help, com F1.

Para sua implementação basta colocar na sua rotina o trecho exemplo abaixo:

Código: Selecionar todos

/////////////////////////////////////////////////////////////////////////
// esta rotina acessa por tecla de função a rotina CALCUL                                       
// para retornar o cálculo para o campo em foco, basta teclar G ou F10                
// a rotina trabalha com até‚ 4 casas decimais                                                       
/////////////////////////////////////////////////////////////////////////

clear screen
set key -3 to calcul // pode ativar qualquer tecla de função aqui
private num := 0

do while .t.

   @ 10,10 say "Informe o valor: " get num pict "@E ###,###,###.####"
   read

   if lastkey() == 27
      exit
   endif
   
   // prossiga seu sistema
   // ...
   inkey(0) 

enddo

cls
return

[rochinha]

:xau

[Nascimento]

ficou muito boa mais se o resultado ja fosse aparecendo no visor acho que ficaria melhor

tipo
60,000
+30,000
=90,000
na minha singela opinião, mais ficou bem bonita a tela da calculadora

[billy1943]

Olá Josivan


Acho que você não percebeu mas os resultados intermediários das operações vão aparecendo no visor e na fita, à medida que vão sendo digitados.

Vamos supor que você queira somar 3 valores: 47, 89 e 456.

Vou colocar em baixo, em duas colunas, o que você vai digitar e o que aparece no visor:

Digitado Visor Comentários
0,0000 // quando abre a calculadora
47 47.0000
+ 47.0000
89 89.0000
+ 136.0000
456 456.0000
= ou <Enter> 592.0000 // tanto faz sinal de igual ( = ) ou <Enter>, eles fecham o cálculo


A fita produzida fica com os seguintes elementos, gerados à medida de cada digitação e ela serve apenas para confirmar se não deixou de digitar algum valor.

0.0000
47.0000 +
89.0000 +
456.0000 =
592.0000 T
0.0000 T

P.S. Nos meus sistemas eu até consigo imprimir a fita, mas na versão disponibilizada, essa função foi desabilitada dada à grande variedade de impressoras existentes, e,
que poderiam mais complicar a configuração do que ajudar, porque mesmo hoje no mercado as calculadoras com impressora estão sumindo...

[Nascimento]

sim vi ficou otima