cancelar
Mostrando los resultados de 
Buscar en lugar de 
Quiere decir: 
Estudiante honorario
Estudiante honorario
3 0 0
Mensaje 1 de 6
798
Reportar Mensaje

Error de sintaxis (PDF)

HP Prime 50G

Hola,

 

me ocurre un problema al pasar los archivos pdf a través de la página ti-planet y del HP-connectivity kit. Al hacerlo, no puedo abrir el PDF en la calculadora, pues me sale un signo de exclamación. Presionando la tecla "Enter" me informa de un error en la línea 6 donde dice "LOGIN STR:=String(num);

Os adjunto una imagen con el texto de la aplicación:Error

 

 

Etiquetas (1)
5 RESPUESTAS 5
Rector
Rector
30,645 2,681 6,900
Mensaje 2 de 6
Reportar Mensaje

Error de sintaxis (PDF)

1) Intenta cambiar, en la línea 6 por ... LOCAL str:=string(" ");

2) Si puedes, escribe, el programa completo, para, la HP PRIME GRAPHING CALCULATOR.

¡ Bienvenida/o, al Foro !.
Saludos.
@Maké (Ex-EXPERTO). Technical Advisor Premium. HP Program Top Contributor … Distinguished Professor, in … https://h30434.www3.hp.com/t5/Calculators/bd-p/Calulators-Handhelds and … https://h30434.www3.hp.com/
¿Esta respuesta fue útil? Si No
Estudiante honorario
Autor
Estudiante honorario
3 0 0
Mensaje 3 de 6
Reportar Mensaje

Error de sintaxis (PDF)

El problema persiste aun realizando el cambio. El programa completo está en la foto, es el texto que se puede leer cuando presiono "Enter" sobre el programa (PDF).

¿Esta respuesta fue útil? Si No
Rector
Rector
30,645 2,681 6,900
Mensaje 4 de 6
Reportar Mensaje

Error de sintaxis (PDF)

¿ Puedes enviar, para analizar, el programa completo (Control9), escrito, en un archivo de edición (.txt) y que es lo que ejecuta, el mismo ?.

 

¡ Bienvenida/o, al Foro !.
Saludos.
@Maké (Ex-EXPERTO). Technical Advisor Premium. HP Program Top Contributor … Distinguished Professor, in … https://h30434.www3.hp.com/t5/Calculators/bd-p/Calulators-Handhelds and … https://h30434.www3.hp.com/
¿Esta respuesta fue útil? Si No
Estudiante honorario
Autor
Estudiante honorario
3 0 0
Mensaje 5 de 6
Reportar Mensaje

Error de sintaxis (PDF)

Independientemente del PDF a abrir siempre ocurre el mismo error (de sintaxis).  Siempre es la fila de str:=string(num) la que produce el fallo.

 

// +---------------------------------+
// | Generated by mViewer GX Creator |
// |   http://tiplanet.org/gxprime   |
// +---------------------------------+
LOCAL cleanNum2Str(num,ref)
BEGIN
 LOCAL str:=STRING(num);
 LOCAL i:=INSTRING(str,".");
 IF i>0 THEN
  str:=MID(str,1,i-1);
 END;
 i:=1+FLOOR(LOG(ref));
 WHILE DIM(str)<i DO
  str:="0"+str;
 END;
 RETURN str;
END;
EXPORT Control91()
BEGIN
LOCAL pagenum=1;
LOCAL pagetot=7;
LOCAL basename="Control9";
LOCAL tw=5;
LOCAL th=8;
// +---------------------------------+
// | powered by mViewer GX Prime 1.8 |
// |   by Xavier (Critor) Andreani   |
// |         licence:  GPLv2         |
// +---------------------------------+
LOCAL tw1=GROBW_P("AA"),tw2=GROBW_P(char(65+tw-1)+"A");
LOCAL th1=GROBH_P("AA"),th2=GROBH_P("A"+char(65+th-1));
LOCAL w=(tw-1)*tw1+tw2,h=(th-1)*th1+th2; // image
LOCAL mx0=0,my0=0,mx1=0,my1=0,mx=0,my=0; // mouse coords
LOCAL is=0,ig=0,ms=0; // mouse mode
LOCAL sw:=320,sh:=240; // screen
LOCAL x:=0,y:=0,d:=0,ld:=0;
LOCAL ss:=1,sf:=0,spu:=1.01,spd:=1.1;
LOCAL ssu:=1,ssd:=1,ssl:=1,ssr:=1;
LOCAL z:=1,zp:=1.01,zmin=MIN(MIN(sw/w,sh/h),1),zmax=4,zold=1,zw=w,zh=h, z0=0; // zoom
LOCAL tk:={7,2,8,12};
LOCAL td:={0,0,0,0};
LOCAL ts:={1,1,1,1};
LOCAL tt:={0,0,0,0};
LOCAL i,dsh:=0,dsv:=0,dh:=0,wh=0;
// help grob coordinates
LOCAL strh3=16,strh2=14,strh1=12,yt=1;
LOCAL x0=100, x1=0;
LOCAL x5=sw-5-x0-1;
LOCAL x2=x1+(x5-x1)*5/9;
LOCAL x3=x1+(x2-x1)/4,x4=x2+(x5-x2)/3;
DIMGROB_P(G1,sw,sh); // offscreen grob
DIMGROB_P(G2,w,h); // image grob
DIMGROB_P(G3,x5,3+strh3+strh2+5*strh1); // help grob
// render help grob
RECT_P(G3,x1,0,x5-1,strh3+strh2+5*strh1+2,0,#FFFFFFh);
RECT_P(G3,x1+1,0,x5-2,strh3+strh2,0,#FFFFFFh);
TEXTOUT_P("mViewer GX 1.8",G3,x1+3,0,3);yt:=strh3-strh2;TEXTOUT_P("(TI-Planet.org)",G3,x2,yt,2);yt:=strh3;
TEXTOUT_P("http://tiplanet.org/gxprime",G3,x1+3,yt,2,#FFh);yt:=yt+strh2+2;
TEXTOUT_P("*/",G3,x1+2,yt,1);TEXTOUT_P("zoom in/out",G3,x3,yt,1);TEXTOUT_P("Home",G3,x2,yt,1);TEXTOUT_P("zoom 1:1",G3,x4,yt,1);yt:=yt+strh1;
TEXTOUT_P("+-",G3,x1+2,yt,1);TEXTOUT_P("next/prev page",G3,x3,yt,1);TEXTOUT_P("0",G3,x2,yt,1);TEXTOUT_P("zoom fit",G3,x4,yt,1);yt:=yt+strh1;
TEXTOUT_P(CHAR(8853)+CHAR(8855),G3,x1+2,yt,1);TEXTOUT_P("progressive scroll",G3,x3,yt,1);TEXTOUT_P(CHAR(9742),G3,x2,yt,1);TEXTOUT_P("screen scroll",G3,x4,yt,1);yt:=yt+strh1;
TEXTOUT_P("Num",G3,x1+2,yt,1);TEXTOUT_P("go to #page",G3,x3,yt,1);TEXTOUT_P("5",G3,x2,yt,1);TEXTOUT_P("center",G3,x4,yt,1);yt:=yt+strh1;
TEXTOUT_P("Help",G3,x1+2,yt,1);TEXTOUT_P("hide box",G3,x3,yt,1);TEXTOUT_P("Esc",G3,x2,yt,1);TEXTOUT_P("quit",G3,x4,yt,1);yt:=yt+strh1;
// concat image tiles
FOR y FROM 0 TO th-1 DO
 FOR x FROM 0 TO tw-1 DO
  BLIT_P(G2,x*tw1,y*th1,char(65+x)+char(65+y),0,0);
 END;
END;
x:=0;y:=0;
REPEAT
 tt:={0,0,0,0};
 dsh:=0;dsv:=0;
 // touch events
 mx:=MOUSE(0);my:=MOUSE(1);ms:=MOUSE(4);
 IF ms=2 THEN // drag
  IF NOT ig THEN ig:=1;mx0:=MOUSE(2);my0:=MOUSE(3); END;
  IF mx>mx0 THEN tt(1):=tt(1)+(mx-mx0)/z; ELSE tt(3):=tt(3)+(mx0-mx)/z; END;
  IF my>my0 THEN tt(2):=tt(2)+(my-my0)/z; ELSE tt(4):=tt(4)+(my0-my)/z; END;
  mx0:=mx;my0:=my;dsh:=1;dsv:=1;
 ELSE
  ig:=0;
 END;
 IF ms=3 THEN // stretch
  IF is THEN
   z:=z0*(((mx-mx1)^2+(my-my1)^2)/((mx1-mx0)^2+(my1-my0)^2))^(1/2);
   dsh:=1;dsv:=1;
  ELSE
   is:=1; mx1:=mx0; my1:=my0; mx0:=mx; my0:=my; z0:=z;
  END;
 ELSE
  is:=0;
 END;
 // one time key events
 IF ISKEYDOWN(11) OR ISKEYDOWN(3) OR ISKEYDOWN(45) OR ISKEYDOWN(50) OR ISKEYDOWN(32) OR ISKEYDOWN(37) OR ISKEYDOWN(42) OR ISKEYDOWN(33) OR ISKEYDOWN(43) OR ISKEYDOWN(34) OR ISKEYDOWN(39) OR ISKEYDOWN(44) THEN
  IF ISKEYDOWN(3) AND wh THEN dh:=NOT dh; END; // help
 // navigate pages
  IF ISKEYDOWN(11) and wh THEN
   LOCAL nextpage:=pagenum;
   INPUT(nextpage,"Go to page ...","#","(1-"+cleanNum2Str(pagetot,pagetot)+")",pagenum);
   IF nextpage<1 THEN nextpage:=1; END;
   IF nextpage>pagetot THEN nextpage:=pagetot; END;
   IF nextpage<>pagenum THEN
    EXPR(basename+cleanNum2Str(nextpage,pagetot)+"()");
    RETURN;
   END;
  END;
  IF ISKEYDOWN(50) and wh and pagenum<pagetot THEN
   EXPR(basename+cleanNum2Str(pagenum+1,pagetot)+"()");
   RETURN;
  END;
  IF ISKEYDOWN(45) and wh and pagenum>1 THEN
   EXPR(basename+cleanNum2Str(pagenum-1,pagetot)+"()");
   RETURN;
  END;
  // screen scroll
  IF ISKEYDOWN(32) OR ISKEYDOWN(37) OR ISKEYDOWN(42) THEN tt(1):=sw/z*wh; dsh:=1; END;
  IF ISKEYDOWN(34) OR ISKEYDOWN(39) OR ISKEYDOWN(44) THEN tt(3):=sw/z*wh; dsh:=1; END;
  IF ISKEYDOWN(32) OR ISKEYDOWN(33) OR ISKEYDOWN(34) THEN tt(2):=sh/z*wh; dsv:=1; END;
  IF ISKEYDOWN(42) OR ISKEYDOWN(43) OR ISKEYDOWN(44) THEN tt(4):=sh/z*wh; dsv:=1; END;
  IF wh THEN wh:=0; END;
 ELSE
  wh:=1;
 END;
 // progressive/continuous key events
 // zoom keys
 IF ISKEYDOWN(38) THEN
  x:=(w-sw/z)/2;
  y:=(h-sh/z)/2;
 END;
 IF ISKEYDOWN(40) THEN z:=z*zp; END;
 IF ISKEYDOWN(35) THEN z:=z/zp; END;
 IF ISKEYDOWN(5) THEN z:=1; END;
 IF ISKEYDOWN(47) THEN z:=zmin; END;
 IF z>zmax THEN z:=zmax; END;
 IF z<zmin THEN z:=zmin; END;
 IF z<1 and zold>1 or z>1 and zold<1 THEN z:=1; END;
 IF z<zold or z>zold THEN zw:=w*z; zh:=h*z; x:=x+sw/2/zold-sw/2/z; y:=y+sh/2/zold-sh/2/z; zold:=z; dsh:=1; dsv:=1; END;
 // scrolling
 FOR i FROM 1 TO 4 DO
  IF ISKEYDOWN(tk(i)) THEN
   IF i MOD 2=1 THEN dsh:=1; ELSE dsv:=1; END;
   td(i):=1;
   ts(i):=MAX(ts(i)*spu,1);
   tt(i):=tt(i)+MAX(ts(i)/z,1);
  ELSE
   ts(i):=MAX(ts(i)/spd,1);
   IF ts(i)>1 THEN
    IF i MOD 2=1 THEN dsh:=1; ELSE dsv:=1; END;
   END;
  END;
 END;
 x:=MAX(MIN(x-tt(1)+tt(3),w-sw/z),0); y:=MAX(MIN(y-tt(2)+tt(4),h-sh/z),0); // repos image correctly
 BLIT_P(G1,-FP(x)*z,-FP(y)*z,sw+(CEILING(x+sw/z)-(x+sw/z))*z,sh+(CEILING(y+sh/z)-(y+sh/z))*z,G2,FLOOR(x),FLOOR(y),CEILING(x+sw/z),CEILING(y+sh/z)); // disp img
 // clean borders for images smaller than screen
 IF zw<sw THEN RECT_P(G1,zw+1,0,sw-1,sh-1,#FFFFFFh,#FFFFFFh); END;
 IF zw>sw and dsh THEN
  RECT_P(G1,0,sh-1,sw-5,sh-5,0,#FFFFFFh);
  RECT_P(G1,2+(sw-9)*x/w,sh-3,2+(sw-9)*x/w+(sw-9)*sw/zw,sh-3,0,0);
 END;
 IF zh<sh THEN RECT_P(G1,0,zh+1,sw-1,sh-1,#FFFFFFh,#FFFFFFh); END;
 IF zh>sh and dsv THEN
  RECT_P(G1,sw-1,0,sw-5,sh-5,0,#FFFFFFh);
  RECT_P(G1,sw-3,2+(sh-9)*y/h,sw-3,2+(sh-9)*y/h+(sh-9)*sh/h/z,0,0);
 END;
 IF(dh) THEN BLIT_P(G1,x0,1,G3); END;
 BLIT_P(G0,0,0,sw,sh,G1,0,0,sw,sh);
UNTIL ISKEYDOWN(4);
END;

 

¿Esta respuesta fue útil? Si No
Rector
Rector
30,645 2,681 6,900
Mensaje 6 de 6
Reportar Mensaje

Error de sintaxis (PDF)

Escribe al Creador del programa, porque pueden existir errores de escritura, que lleven, a un error general.

¡ Bienvenida/o, al Foro !.
Saludos.
@Maké (Ex-EXPERTO). Technical Advisor Premium. HP Program Top Contributor … Distinguished Professor, in … https://h30434.www3.hp.com/t5/Calculators/bd-p/Calulators-Handhelds and … https://h30434.www3.hp.com/
¿Esta respuesta fue útil? Si No
† Las opiniones expresadas arriba son opiniones personales del autor, no de HP. Al utilizar este sitio, aceptas los Términos de Uso y las Reglas de Participación