Calculadora Calculator

[cmsoft]

Excelente trabajo.
Una sugerencia: cuando presionas un numero y despues "+", en algunas calculadoras te va sumando dicho numero tantas veces como presiones "+", eso es de mucha utilidad cuando estas chequeando planillas donde se repiten los valores. El programa lo va colocando en el "rollo" de la izquierda pero cuando presionas "=" no lo suma. Seria util que lo haga.
Igualmente el trabajo esta barbaro.
Felicitaciones
Cesar

[Verhoven]

En el siguiente link os dejo la calculadora con las sugerencias incorporadas y con un ejemplo de como hacerla arrancar pulsando F12.

http://www.mediafire.com/?b1ydcz24n9y

Saludos.

[cmsoft]

Gracias Verhoven, excelente!!!

[FiveWiDi]

En el siguiente link os dejo la calculadora con las sugerencias incorporadas y con un ejemplo de como hacerla arrancar pulsando F12.

http://www.mediafire.com/?b1ydcz24n9y

Saludos.

Gracias Verhoven,

Estoy mirando tu calculadora, me gusta.
Tiene la posibilidad de capturar el resultado? me explico, al pulsar SALIR es posible capturar el valor calculado y asignarlo a una variable de mi programa?

Por otro lado, si el método NEW devolviera SELF entonces se podría hacer:
oCalc:New(oWnd):Calculadora(oWnd)

Para que sirve ::oVentana? se podría omitir y entonces:
oCalc:New():Calculadora(oWnd)

Siguiendo; ::Calculadora podria recibir un segundo parámetro 'nvalor', así:
oCalc:New():Calculadora(oWnd, nValor)

Este segundo parámetro podría guardarse en una DATA 'nValorOriginal' de manera que si se pulsa ESC, el método END() devolviera 'nValororiginal' y si se pulsa SALIR devolviera el valor calculado.

En fin que lo que persigo es:

nMiVariableGet := oCalc:New():Calculadora(oWnd, nMiVariableGet)

Más cosas.
Estás utilizando oBrw:godown(), no sería mejor utilizar oBrw:goBottom()?
Sería posible teclear decimales con la coma además de con el punto?

Aún así me gusta mucho y la incorporaré a mi desarrollo. Estaré atento a nuevas mejoras.

Saludos
Carlos G.

[Verhoven]

El resultado actual de la Calculadora lo tienes en la data nResult. Leyendo esa variable del objeto obtienes el resultado.

Lo que he pretendido con la calculadora es que puedas salir y que al volver a entrar se mantenga en memoria el estado de la misma tal y como se dejó, incluido el rollo de papel.

Si le voy a incorporar la sugerencia de sustituir en el browse godown() por gobottom(). El comportamiento será más consistente, pues si el usuario repasa una operación larga y deja el registro arriba, al seguir con la operación después, con el godown(), no saltará a la última línea introducida que es lo que en realidad se pretende. Gracias por la sugerencia.

[Verhoven]

En el siguiente link os dejo la calculadora con las correcciones sugeridas por FiveWIDI.

http://www.mediafire.com/?40xzznpt0in

FiveWidi si me explicas qué significa lo de devolver self veo como incorporarlo. Pero no se qué significa.

Saludos.

[FiveWiDi]

En el siguiente link os dejo la calculadora con las correcciones sugeridas por FiveWIDI.

http://www.mediafire.com/?40xzznpt0in

FiveWidi si me explicas qué significa lo de devolver self veo como incorporarlo. Pero no se qué significa.

Saludos.

Fácil,

METHOD New( oWnd ) CLASS TClac
...
aquí va el código del mètodo y al final:

Return( Self )

Saludos
Carlos G.

[FiveWiDi]

El resultado actual de la Calculadora lo tienes en la data nResult. Leyendo esa variable del objeto obtienes el resultado.

Lo que he pretendido con la calculadora es que puedas salir y que al volver a entrar se mantenga en memoria el estado de la misma tal y como se dejó, incluido el rollo de papel.

Si le voy a incorporar la sugerencia de sustituir en el browse godown() por gobottom(). El comportamiento será más consistente, pues si el usuario repasa una operación larga y deja el registro arriba, al seguir con la operación después, con el godown(), no saltará a la última línea introducida que es lo que en realidad se pretende. Gracias por la sugerencia.

Gracias a ti,

No tengo tu código fuente aquí y mi conexión no me permite bajar la clase, es posible que no nombre correctamente los métodos.

A lo que me refiero es que si tanto el método Calculadora() como el End() devuelven el valor de nResult entonces ya casi se consigue lo que pretendo, sólo faltaría lo del 'Self'.

Saludos
Carlos G.

[FiveWiDi]

En el siguiente link os dejo la calculadora con las correcciones sugeridas por FiveWIDI.

http://www.mediafire.com/?40xzznpt0in

FiveWidi si me explicas qué significa lo de devolver self veo como incorporarlo. Pero no se qué significa.

Saludos.

Más cosas que voy viendo.

Yo haría:
->Declarar una DATA lConservo que substituiría a la oPadre en el New(), ya que oPadre no le veo ningún uso.

->METHOD New(lConservo,cPatronSalida) CLASS TCalc
... / ...
::lConservo := lConservo
... / ...

->METHOD End() CLASS TCalc
Local nresultado := 0
nresultado := ::nResult

::aRolloCalc:={{'C',' '}}
::nResult:=0
::cUltima:=''
::cUltimaop:=''
If !::lConservo
Self := Nil
EndIf
return nresultado

De esta manera sigue conservando la funcionalidad que originalmente le dabas y además para los 'tocapelotas' como yo nos da la posibilidad de abrir/cerrar la calculadora sabiendo que al salir estamos cerrando sin dejar nada pendiente (y asumiendo que perdemos la lista de operaciones).

Por otro lado, creo que mejor pongas tu mail para no molestar más a la lista, no sea que al final me hagan callar.

Saludos
Carlos G.
fwd@telefonica.net

[Verhoven]

Os dejo en el siguiente enlace una versión de la calculadora más depurada y documentada.

Además, incluye alguna opción adicional solicitada por otros miembros del foro.

http://www.mediafire.com/?cagz7tgbmxr

Saludos a todos y que les sea de utilidad.

[QAZWSX2K]

la verdad esta muy buena, hare una version para venezuela que en vez de euros y pesetas, tenga bolivares y bolivares fuertes, si el autor no tiene objeciones, solo una cosita que vi y me enredo, en la cinta, cuando subo con la barra de desplazamiento, despues no me deja seguir metiendole numeros, se hace obligatorio a que tenga que marcar un numero con el mouse para darle el foco a lo que serian los numeros, luego sigue todo normal

[dobfivewin]

Disculpen las molestias, no he podido bajar LA CALCULADORA, habrá alguna posibilidad que me la remitan a mi correo

chas gracias


david
argentina

[tosko]

no pude descargarla manda error en los link, ya intente con todos pudedes mandarmela a jluis.rosalez@gmail.com si no es ucha la molestia.

se agradece
Tosko

[joseluisysturiz]

Me sumo a la peticion de los colegas...el link dice que el archivo ya no esta.

[Verhoven]

He vuelto a subir a mediafire los archivos dentro de un comprimido llamado calculadora.rar .
El antarior ya no existía. Debe ser que en mediafire borran los archivos subidos cuando transcurre cierto tiempo.

Como pasado el tiempo parece que esta contribución sigue siendo de utilidad si a Antonio le parece la puede alojar en la zona de utilidades del foro.

Saludos,
Verhoven.


http://www.mediafire.com/?sharekey=a94a ... b9a8902bda