Inicio de sesión
Navegación
Actualmente hay 0 usuarios y 22 invitados en línea.
¿Inform, com se hace?
- Inicie sesión o regístrese para enviar comentarios
¿Inform, com se hace?
Mar, 12/05/2009 - 13:20
Hola, se puede hacer lo siguiente en SYSTEM
DESCRIPCION:
insertar un GROB en una plantilla creada con el comando INFORM.
Yo no puedo, pero seguro que varios de los adictos si, y espero que me ayuden.
Por favor, estoy con esta duda desde mucho tiempo.
- Inicie sesión o regístrese para enviar comentarios
Integró: 08/07/2004
Envíos: 584
MonedasHP: 215
Esa pregunta estaba respondida, pero ahora ya no esta en el presente foro.
Pero si ya conoces la estructura el ^IfMain, entonces se coloca como cualquier texto para el campo.
O sea por ejemplo para: "M:"
"M:"
BINT10
BINT10
colocara el texto en ese lugar de coordenadas de enteros binarios.
Para colocar el GROB es igual, solo que el GROB debe estar codificado para System rpl
GROB 00909 03215664654 (mas o menos es asi)
BINT30
BINT35
O sea. se lo hace como si fuera un texto.
Para obtener esa codificacion del GROB
Solo colocas el GROB en la PILA y con la biblioteca 256 activada, solo haces:
GROB 30 x 35
->S2
y listo te devolvera algo parecido a esto (segun el estado de los flags)
"!NO CODE
!RPL
GROB 00909 001265FF1335...232466000
@"
copias la codificacion del GROB a tu programa, puedes colocar varios GROB como Textos en la plantilla.
En algunos dias más colocare un ejemplo.
- Inicie sesión o regístrese para enviar comentarios
hola, cuando trabajo con el programa Debug4x hay alguna variación en el proceso,
por que realice los pasos indicados y no puedo compilarlo...
RPL
( C:\Users\ivan\Documents\Debug4x\Projects\HAPPY.s, part of the HAPPY.hpp project, created by <> on 14/05/2009 )
::
"!NO CODE
!RPL
GROB 0005A A0000E10000000300040007000C118C0000708800000F981F10A16011106000A1100000C0000000A0000000100
@"
BINT0 BINT15
'DROPFALSE
BINT24 BINT11
BINT44 BINT9
BINT12
MINUSONE
BINT17
"AYUDA"
{
{ "PARTE1" :: "PRO1" ; }
{ "PARTE2" :: "PRO2" ; }
{ "PARTE3" :: "PRO3" ; }
}
BINT17
{ "PARTE2" :: "PRO2" ; }
{ "PARTE2" :: "PRO2" ; }
BINT1 BINT1
'DROPFALSE
"TITULO"
DoInputForm
;
espero que puedan ayudarme.
- Inicie sesión o regístrese para enviar comentarios
Integró: 08/07/2004
Envíos: 584
MonedasHP: 215
Solo tienes que copiar la parte del GROB
GROB 00909 00000
Lo demas no debes copiarlo ("!NO CODE !RPL @" Son de MASD)
- Inicie sesión o regístrese para enviar comentarios
gracias por responder alexis, intente colocar solo el grob pero me sale lo siguiente:
EN QUE ME ESTOY EQUIVOCANDO..
- Inicie sesión o regístrese para enviar comentarios
Integró: 08/07/2004
Envíos: 584
MonedasHP: 215
Debes usar ^IfMain, no DoinputForm.
- Inicie sesión o regístrese para enviar comentarios
NOTA: uso el Debug4x
Use el ^IfMain en lugar de DoInputForm y no puedo ejecutarlo.
Luego de compilarlo al emulador (F9), ejecuto el programa y lo que pasa es como un RESET (ON+F3)
EJEMPLO:
en PRogranning in System RPL (II), encontre la siguiente secuencia:
::
label....
Fiels....
"TITULO"
FPTR2 ^IfMain
;
pero al compilar (F9) tengo el siguiente error (con FPTR2)
- Inicie sesión o regístrese para enviar comentarios
Integró: 08/07/2004
Envíos: 584
MonedasHP: 215
En debug se usa FLASHPTR IfMain
En MASD se usa FPTR2 IfMain
Aqui tienes un ejemplo para MASD, realizado por Edwin.
!NO CODE
!RPL
::
GROB 0003E D0000D0000FFF11001DF715041504150415F51504150415041DF711001FFF1
BINT100
BINT19
"Ancho: "
BINT0
BINT19
"Largo:"
BINT0
BINT29
"Profu:"
BINT0
BINT39
"A Pared:"
BINT48
BINT39
"A Esqui:"
BINT48
BINT29
"Funda:"
BINT101
BINT39
'DROPFALSE
BINT25
2REAL
BINT20
BINT9
BINT1
{
BINT0
}
BINT4
"Ancho de camara en [cm]"
MINUSONE
MINUSONE
%0
%0
'DROPFALSE
BINT25
BINT27
BINT20
BINT9
BINT1
{
BINT0
}
BINT4
"Largo en [cm] (dist hacia pared)"
MINUSONE
MINUSONE
%0
%0
'DROPFALSE
BINT25
BINT37
BINT20
BINT9
BINT1
{
BINT0
}
BINT4
"Profundidad en [cm]"
MINUSONE
MINUSONE
%0
%0
'DROPFALSE
BINT80
BINT26
BINT20
BINT9
BINT1
{
BINT0
}
BINT4
"Distancia a esquina izq [mts]"
MINUSONE
MINUSONE
%0
%0
'DROPFALSE
BINT80
BINT36
BINT20
BINT9
BINT1
{
BINT0
}
BINT4
"Dist de pared a camara [cm]"
MINUSONE
MINUSONE
%0
%0
'DROPFALSE
BINT125
BINT37
BINT6
BINT9
BINT32
MINUSONE
MINUSONE
"Tiene funda?"
MINUSONE
MINUSONE
TRUE
TRUE
BINT7
BINT6
'DROPFALSE
"DEFICION DE CAMARAS"
FPTR2 IfMain
;
@
- Inicie sesión o regístrese para enviar comentarios
muchas gracial alexis, un comentario:
cuanto empece a visitar el foro y colocaba mis preguntas (consultas), las respondian en menos de 24 horas y ahora no se que paso, tuve que esperar, un par de semanas,para obtener una respuesta,..... y agregar que fue solo una persona quien me ayudo (alexis), saludos a todos y a compartir conocimientos....
- Inicie sesión o regístrese para enviar comentarios
Integró: 08/07/2004
Envíos: 584
MonedasHP: 215
Lo que pasa es que la gran mayoria conoce User RPL, pero System RPL lo conocemos muy pocos (a fondo). Ademas del tiempo que se dispone tambien es largo, asi que cuando preguntas sobre los otros lenguajes, tienes que esperar a que los usuarios que lo conozcan y tengan el tiempo de probarlo, puedan publicar una respuesta.
No olvides que puedes ingresar mas gráficos en la plantilla, e incluso puedes superponer imagenes o campos en el mismo grafico, como colocar una tabla con líneas y colocar campos, graficos y títulos en los mismos. Puedes personalizar tu propia plantilla IfMain.
Saludos.
- Inicie sesión o regístrese para enviar comentarios
si estoy deacuerco con lo que dices, gracias por la ayuda..
- Inicie sesión o regístrese para enviar comentarios
Hola hace tiempo hice una pequeña ayuda del tema con el debux aqui dejo el enlace
http://www.hpcalc.org/search.php?query=mauricio+arancibia
- Inicie sesión o regístrese para enviar comentarios
ya lo solucione hace tiempo, pero se agradece la intención de ayudar
- Inicie sesión o regístrese para enviar comentarios
muchas gracias alexis, y espero con muchas ancias los ejemplos.
mi mail: ivanhp50@gmail.com