Calculadora Calculator

[alvaro533]

¿Alguien sabe dónde se puede conseguir esta calculadora? El link está roto.

Muchas gracias.

Alvaro

[QAZWSX2K]

hola, escribeme a mi privado y te lo envio de forward, claro espero con el permiso del autor, yo la baje en su momento y le hice seguimiento en esos dias

[anserkk]

Hola a todos,

¿Puede un cuerpo ofrecen el nuevo eslabón a que se carguen esta class Calculator.

Gracias de antemano.
Saludos
Anser

[Manuel Valdenebro]

¿Puede un cuerpo ofrecen el nuevo eslabón a que se carguen esta class Calculator.

Anserkk, please, write your message in English too. I can not understand it.

Regards

[anserkk]

Hi Mr.Manuel,

I did not know that Google Translator was that bad . This is what Google provided when I translated the spanish text "¿Puede un cuerpo ofrecen el nuevo eslabón a que se carguen esta class Calculator." back to English
"Can a body offering the new link to load this class Calculator."

Any way this is my request.
If any one have the Class Calculator, please provide a fresh link to download it.

Thanks in advance.

Regards
Anser

[Manuel Valdenebro]

"If any one have the Class Calculator, please provide a fresh link to download it."

¿Si alguien tiene la clase Calculator, podria facilitarme un enlace reciente para descargarla?.

[Verhoven]

La he vuelto a colgar de la siguiente página web:

http://www.mediafire.com/file/jmgigjzzz ... ladora.rar

Parece ser que pasadas unas fechas lo borran automáticamente. No se si habrá alguna forma de metarla en contribuciones porque parece que hay algunos que la están usando.

Saludos y espero que les sea de utilidad.

[mgsoft]

Muchas gracias por el aporte pero los links no funcionan. Por favor, ¿es posible subirlo de nuevo?. Gracias

[anserkk]

Verhoven,

Thanks.

MgSoft,
The link is working fine. Anyway here is another link to download
http://rapidshare.com/files/350889892/Calculadora.rar

Manuel,

¿Si alguien tiene la clase Calculator, podria facilitarme un enlace reciente para descargarla?

Started to learn few Spanish words. . Thanks

Regards
Anser

[alvaro533]

Muchas gracias por el link.

Con permiso de Verhoven. autor de la clase, la he modificado para incluir opcionalmente los botones de la clase sButton de Manuel Mercado.




Si se incluye al principio la siguiente línea se compila con los botones estandar, si se comenta la linea, con los de sButton

Code: Select all  Expand view  RUN

#define SIN_SBUTTON
 

Además le he añadido que pegue el resultado en el campo GET en uso. Se puede llamar a la calculadora pulsando F12 o pulsando un botón próximo al get. Si hay varios gets en un diálogo pega el resultado en el que tienen el foco, aunque se llame la función con F12.

La tecla suprimir borra todas las operaciones. La tecla retroceso borra el último caracter. No se permite pulsar más de una vez el punto decimal.

Se puede coger de aquí:

http://www.box.net/shared/uogs8xsj4c

Muchas gracias a Verhoven por la clase, que es muy útil.

Un saludo,

Alvaro

[Verhoven]

Por mi no hay inconveniente en los cambios introducidos.
Solamente recomendar que establezcas el funcionamiento por defecto con los botones stardard, así la compatibilidad del código será mayor.

Si te parece, podemos modificar el código introduciendo solo tu modificación respecto del punto decimal y dejar la clase así, luego ya que cada cual la adapte a sus necesidades cuando la vaya a utilizar. La idea es cuanto más simple más reutilizable, aunque sea más "espartano" también.

[alvaro533]

Me parece bien. También puse un control para que una vez que la cantidad está en euros no la vuelva a convertir a euros y lo mismo si ya está en pesetas.

Alvaro

[fergonm]

Buenos días.

Estoy intentando incorporar la calculadora a un programa y tengo error al compliar en el programa TCalc en los botones oBtnDEL y oBtn0. el error es Syntax error at ",".

si se borra la coma de las líneas 188 y 227, no hay error al compilar sólo el pregrama "Calculadora", pero no logra incorporarlo al programa mio.

¿Alguien encontró el mismo error? ¿me falta algo en la compilación?

Gracias. Fernando

[Verhoven]

Con la clase original adjunté un pequeño programa de ejemplo, que deberías tener, en el que mostraba como incorporar la clase en cualquier otro programa.
No obstante, dejo aquí ese código de ejemplo en las líneas que siguen esperando que el mismo pueda servirte para disipar cualquier duda:

CALCULADORA.PRG
#include 'fivewin.ch'
#include "common.ch"

static oWnd

function main()
local nResultCalculadora:=0
HB_Langselect("ES")
HB_SetCodePage("ESWIN")
setHandleCount(50)
set 3DLOOK ON

// Fuentes de Texto
public oFont, oFontDoble, oFontDobleN
DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0,-14
DEFINE FONT oFontDoble NAME "MS Sans Serif" SIZE 0,-16
DEFINE FONT oFontDobleN NAME "MS Sans Serif" SIZE 0,-16 BOLD

// Establece los sets de la forma de trabajo.
set DATE ITALIAN
set EPOCH TO 2000
set SCOREBOARD OFF
set WRAP ON

DEFINE BRUSH oBru COLOR rgb(0,0,135) //Fondo de color

DEFINE WINDOW oWnd TITLE 'Calculadora' BRUSH oBru MENU MenuPpal() //ICON oIco
set MESSAGE OF oWnd TO 'Calculadora: VERSION: 23 Septiembre 2007 '+CurDir() CLOCK DATE KEYBOARD
public oCalc:=tCalc():new()
setkey(VK_F12, {|| oCalc:calculadora(oWnd)})
ACTIVATE WINDOW oWnd MAXIMIZED ON INIT;
( oWnd:setfont(oFontDoble), nResultCalculadora:=oCalc:calculadora(oWnd) )
return NIL

#include 'tCalc.prg'

static function MenuPpal()
local oMenu

MENU oMenu
MENUITEM '&Calculadora' ACTION (oCalc:calculadora(oWnd)) MESSAGE 'Encender Calculadora'
MENUITEM '&Salida' ACTION (oWnd:end()) MESSAGE 'Salida del Programa'
ENDMENU
return oMenu

[Enrrique Vertiz]

Saludos
Por favor alguien puede subir la calculadora nuevamente a algun repositorio, o desde donde la puedo bajar
Gracias