027:trucos

Diferencias

Muestra las diferencias entre dos versiones de la página.

Enlace a la vista de comparación

Ambos lados, revisión anterior Revisión previa
Próxima revisión		 Revisión previa
Última revisiónAmbos lados, revisión siguiente
027:trucos [d/m/Y H:i] – miguel027:trucos [d/m/Y H:i] – [Simulación de la sentencia PRINT USING] miguel
Línea 4: Línea 4:
  
 ==== Simulación de la sentencia PRINT USING ==== ==== Simulación de la sentencia PRINT USING ====
 +
 +{{ :027:trucos.jpg?200|}}
 +
 +--- //José Maria Martínez Arbex//
  
 Hemos recibido consultas de algunos lectores sobre cómo podrían formatear la salida impresa en la pantalla para conseguir, por ejemplo, una columna alineada de números para programas de aplicación técnica o utilidad. Hemos recibido consultas de algunos lectores sobre cómo podrían formatear la salida impresa en la pantalla para conseguir, por ejemplo, una columna alineada de números para programas de aplicación técnica o utilidad.
  
-José Maria Martínez Ar-bex nos ha resuelto el problema al enviarnos una pequeña rutina Basic que imita, hasta cierto punto, a la famosa y potente sentencia PRINT USING de otros dialectos de Basic.+José Maria Martínez Arbex nos ha resuelto el problema al enviarnos una pequeña rutina Basic que imita, hasta cierto punto, a la famosa y potente sentencia PRINT USING de otros dialectos de Basic.
  
 El trabajo lo realiza la función definida en la línea 100; necesita dos datos: el número a representar y la longitud del campo donde va a ser representado. El trabajo lo realiza la función definida en la línea 100; necesita dos datos: el número a representar y la longitud del campo donde va a ser representado.
  
-Para flexibilizarla al máximo, hemos definido una variable, LONGCAMPO, inicia-lizada a 15, que nos permite elegir la longitud máxima del campo de representación que queremos.+Para flexibilizarla al máximo, hemos definido una variable, LONGCAMPO, inicializada a 15, que nos permite elegir la longitud máxima del campo de representación que queremos.
  
 También está incluida una subrutina para atrapar errores, (que el campo sea cero o que su longitud sea menor que la del número a pintar). También está incluida una subrutina para atrapar errores, (que el campo sea cero o que su longitud sea menor que la del número a pintar).
  
-10 20 30 40 45 50 60 62 63 65 : 70 80 90 95 : 100+<code basic>
  
-110 : 120 +10  REM *** SIMULACION DE *** 
- +20  REM ***  PRINT USING  *** 
-REM *** REM *** +30  : 
- +40  REM *** INICIALICION *** 
-REM *** +45  : 
- +50  LET SPACE=32: LET E$="" 
-*** +60  LET L0NGCAMPO=15 
- +62  LET ERROR=0 
-*** +63  LET COMPROBAR=1000 
- +65  : 
-LET SPRCE =32: LET E$ = "" LET L0NGCRMP0=15 LET ERROR =0 LET COMPROBRR = 1000 +70  FOR I=1 TO LONGCAMPO 
- +80  LET E$=E$+CHR$ (SPACE) 
-FOR 1=1 TO LONGCRMRO +90  NEXT I 
- +95  : 
-LET E$=E$+CHR$ ( 5PRCE) NEXT I +100 DEF FN U$(N,L)=E$( TO L-LEN STR$ N)+STR$ N
- +
-DEF FN U$(N,L)= E$( TO L-LEN STR* N)+ STR $ N+
  
 REM *** REM ***
Línea 58: Línea 60:
  
 1010 REM *** naaiia^ 1020 LET ERROR =NOT LCRMPO OR „„„„ ncT1 ILEN STR$ NUM>LCRMPO) 1030 RETURN 1010 REM *** naaiia^ 1020 LET ERROR =NOT LCRMPO OR „„„„ ncT1 ILEN STR$ NUM>LCRMPO) 1030 RETURN
 +
 +</code>
  
 ==== Para colorear la pantalla ==== ==== Para colorear la pantalla ====
  
 --- //José Epalza// --- //José Epalza//
 +
 --- //Andrés López Montalvo// --- //Andrés López Montalvo//
  
  • 027/trucos.txt
  • Última modificación: d/m/Y H:i
  • por miguel