PC Toledo

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

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

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

sim vi ficou otima

PC Toledo

Calculadora em Clipper com algumas funções

Calculadora em Clipper com algumas funções

Calculadora em Clipper com algumas funções

Calculadora em Clipper com algumas funções

Calculadora em Clipper com algumas funções

Calculadora em Clipper com algumas funções