Glosario

Abreviado SysRPL, este es el lenguaje en el cual la mayor parte del ROM de la HP48 está escrito. También está disponible para el usuario usando HP Tools (en la PC), Jazz (en la HP) o cualquier otro de varias herramientas de desarrollo de programas. Este es el fundamento del User RPL, sólo que mucho más poderoso y mucho menos seguro (dado que toda la protección es removida, tal como la verificación de argumentos).

Comando Inform

10 respuestas [Último envío]
Integró: 27/06/2009
Envíos: 37
MonedasHP: 0
Imagen de XTIAN1963
Calc: HP50
Comando Inform
 
Sáb, 27/06/2009 - 20:03

Estimados, hace poco compre una HP50G y creo que es una excelente calculadora pero no he podido hacer funcionar un programa de prueba usando el comando INFORM.
He aqui el programa ;

«
"prueba"
{
{ "A" "LETRA A" 0 }
{ "B" "LETRA B" 0 }
}
{ 2 4 }
{ }
{ }
INFORM
IF
THEN
OBJ->
DROP-> A B
'A+B' EVAL
"SUMA"->TAG
ELSE
"CANCELADO"TAG
END
»

Y no hay caso que funcione.

Si alguien me puede ayudar,
he intentado varias soluciones
pero no logro hacer que el programa
tan sencillo funcione

Top
Integró: 31/08/2008
Envíos: 55
MonedasHP: 0
Imagen de sx_viruta
 
#1
Dom, 28/06/2009 - 08:33

Hola si lo que deseas hacer es un programa que halle la suma de dos numeros reales , el lenguaje de programacion seria el siguiente :::::
Smile

« "prueba" { { "A:" "LETRA A" 0 } { "B:" "LETRA B" 0 } } { 2 4 } { } { } INFORM IF THEN OBJ-> DROP -> A B « 'A+B' EVAL "SUMA"->TAG » END »

espero re sirve de mucha ayuda , saludos

UNAC-FIQ

SX_VIRUTA

Top
Integró: 27/06/2009
Envíos: 37
MonedasHP: 0
Imagen de XTIAN1963
Calc: HP50
 
#2
Lun, 29/06/2009 - 12:27

Estimado ha probado lo que me dijiste pero aun
la calculadora me manda un mensaje de error STR-> Error:
invalid syntax.

Top
Integró: 31/08/2008
Envíos: 55
MonedasHP: 0
Imagen de sx_viruta
 
#3
Lun, 29/06/2009 - 18:15

Hola , no se si has visto bien la sintaxis que te envie , en ningun momento utilizo el comando str-> VERIFICA BIEN EL LENGUJAE QUE TE ENVIE , COPIALO IGUAL .... Si lo copias bien deberia correr

SX_VIRUTA

Top
Integró: 27/06/2009
Envíos: 37
MonedasHP: 0
Imagen de XTIAN1963
Calc: HP50
 
#4
Lun, 29/06/2009 - 21:28

Estimado Viruta, desde ya te agradezco el apoyo, te cuento que ese error aparece cuando bajo el programa desde el HPuseredit.

Pues bien lo he ingresado "a mano" en la HP
y ahora manda el error ->error:too few argument.

¿cual puede ser el error de argumento?

agradecido

Top
Integró: 31/07/2008
Envíos: 70
MonedasHP: 6
Imagen de Netfast
 
#5
Lun, 29/06/2009 - 21:51

Te dejo otro programa ejemplo que suma 2 numeros

«
"Suma de dos numeros"
{
{ "A:" "Primer Numero" 0 }
{ "B: " "Segundo Numero" 0 }
}
{ 1 0 }
{ }
{ }
INFORM
DROP EVAL
'A'
STO
'B'
STO
'A+B'
EVAL
"SUMA"
TAG
»
Uno de los errores que tienes en tu programa es:
IF
THEN
OBJ->
DROP-> A B
'A+B' EVAL
"SUMA"->TAG
ELSE
"CANCELADO"TAG
END
El comando IF necesita algun argumento para actuar en consecuencia, por ejemplo, si quiero que el programa sume 2 numeros si el resultado es menor a 500 lo muestro, si es mayor muestro en pantalla "MAYOR QUE 500":

«
"Suma de dos numeros"
{
{ "A:" "Primer Numero" 0 }
{ "B: " "Segundo Numero" 0 }
}
{ 1 0 }
{ }
{ }
INFORM
DROP EVAL
'A'
STO
'B'
STO
'A+B'
EVAL
DUP 500 <
IF THEN
"SUMA"
TAG
ELSE
DROP
"MAYOR QUE 500"
END
»

Espero que te sirva

Saludos

Top
Integró: 28/06/2003
Envíos: 134
MonedasHP: 0
Imagen de deachp
 
#6
Lun, 29/06/2009 - 22:31

Saludos a XTIAN1963 y a todos los miembros,

XTIAN1963, recuerda que luego de crear variables locales tales como 'A' y 'B' debes iniciar un nuevo procedimiento ó sub-programa « »

Añadiendo estos delimitadores en el lugar correcto tu programa queda así:

«
"prueba"
{
{ "A" "LETRA A" 0 }
{ "B" "LETRA B" 0 }
}
{ 2 4 }
{ }
{ }
INFORM
IF
THEN
OBJ->
DROP -> A B
«
'A+B' EVAL
"SUMA"->TAG
»
ELSE
"CANCELADO" ->TAG
END
»

Recuerda que al colocar -> nos estamos refiriendo a la flecha que se encuentra sobre la tecla cero. Esto puede ser la causa del error que mencionaste sobre STR->.

El ejemplo que te envió SX_VIRUTA también está escrito correctamente.

Nota para Netfast: Netfast, el código que enviaste es incorrecto ya que el comando INFORM siempre debe ir acompañado por una estructura condicional como IF THEN END.

El comando INFORM devuelve un valor 1 ó 0 cuando se presiona OK ó CANCL respectivamente, valores que son aprovechados por la estructura condicional.
NO es recomendable utilizar DROP luego de INFORM ya que se produce un error al presionar CANCL en la plantilla de entrada.

Atte. Dante Aroní C. www.deachp.com

Dante Aroní C. www.deachp.com
Todo sobre Calculadoras HP
Venta, Soporte Técnico y Cursos de Programación
UNI / Lima / Perú
Telfs: (+511)9-97111260 / (+511)4810146

Top
Integró: 27/06/2009
Envíos: 37
MonedasHP: 0
Imagen de XTIAN1963
Calc: HP50
 
#7
Mar, 30/06/2009 - 10:46

Estimados Viruta, Netfast y Dante Aroni
muchas gracias por vuestro apoyo al fin he logrado
que la HP haga lo suyo.

Top
Integró: 31/08/2008
Envíos: 55
MonedasHP: 0
Imagen de sx_viruta
 
#8
Mar, 30/06/2009 - 11:09

Hola otra forma de hacer ese programa seria utilizando el comando INPUT , entonces el programa quedaria de la siguiente manera :::

_______________________________________
«
CLLCD
"HALLANDO LA SUMA
DE DOS NUMEROS"

2 DISP
3 WAIT

"Ingrese A" ""INPUT STR->
"Ingrese B" ""INPUT STR->

-> A B
«
'A+B' EVAL

"SUMA=" ->TAG
»

»
_____________________________________

Espero te halla sido de mucha ayuda saludos Smile

UNAC-FIQ

SX_VIRUTA

Top
Integró: 31/08/2008
Envíos: 55
MonedasHP: 0
Imagen de sx_viruta
 
#9
Mar, 30/06/2009 - 15:06

Hola,definitivamente hay diferentesmaneras de estructurar un programa para muestra un boton , aqui te dejo otra forma dehacer el mismo programa ::::

____________________________________

« "ingrese A" ""INPUT STR->
"ingrese B" ""INPUT STR->
-> A B
« A B + 'S' STO
"SUMA DE A+B=" S ->STR
+ CLLCD 500 0.4 BEEP
MSGBOX 'S' PURGE
»
»
_____________________________________

BUENO UNA VEZ MAS ESPERANDO SE HALLAN DESPEJADO ALGUNAS DE TUS DUDAS.

UNAC-FIQ

SX_VIRUTA

Top
Integró: 27/06/2009
Envíos: 37
MonedasHP: 0
Imagen de XTIAN1963
Calc: HP50
 
#10
Mié, 01/07/2009 - 09:08

Saludos.,

Atte.,

Cristian Arredondo

Top

Twitter

Cargando...