027:trucos

Diferencias

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

Enlace a la vista de comparación

Próxima revisión		 Revisión previa
Última revisiónAmbos lados, revisión siguiente
027:trucos [d/m/Y H:i] – creado miguel027:trucos [d/m/Y H:i] – [Simulación de la sentencia PRINT USING] miguel
Línea 3: Línea 3:
 ===== Trucos ===== ===== Trucos =====
  
-==== Para colorear la pantalla ====+==== Simulación de la sentencia PRINT USING ====
  
---- //José Epalza// +{{ :027:trucos.jpg?200|}}
---- //Andrés López Montalvo//+
  
-Si queremos pintar la pantalla en diferentes colores usando el PAPER podemos hacerlo utilizando PRINT PAPER seguido de tantos pares de comas como filas queramos pintar.+--- //José Maria Martínez Arbex//
  
-Esta idea se debe a dos lectores que han coincidido con el mismo truco: José Epalza y Andrés López Montalvo, que manda el listado.+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.
  
-<code 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.
  
-10 REM Arriba el telon +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.
-20 BORDER 2 +
-30 PRINT PAPER 2,,,,,,,,,,,,,,,,,,,, +
-40 PRINT PAPER 6,,,,,,,,,,,, +
-50 PRINT PAPER 1,,,,,,,,,,,, +
-60 PAUSE 50 +
-70 FOR n=0 TO 25 +
-80 RANDOMIZE USR 3190 +
-90 NEXT n+
  
-</basic>+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.
  
-AMPLIFICADOR DE SONIDO+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).
  
-Este truco que nos manda Oriol Ribas puede ser útil para cualquier tipo de programa, pero sobre todo para los musicales.+<code basic>
  
-Consiste en colocar el jack que comunica el ordenador con el magnetófono y conectarlo en las respectivas entradas de MIC, manteniendo el magnetófono en marcha (PLAY simplemente) pero sin tener ningún cassette en su interior.+10  REM *** SIMULACION DE *** 
 +20  REM ***  PRINT USING  *** 
 +30  : 
 +40  REM *** INICIALICION *** 
 +45  : 
 +50  LET SPACE=32: LET E$="" 
 +60  LET L0NGCAMPO=15 
 +62  LET ERROR=0 
 +63  LET COMPROBAR=1000 
 +65  : 
 +70  FOR I=1 TO LONGCAMPO 
 +80  LET E$=E$+CHR$ (SPACE) 
 +90  NEXT I 
 +95  : 
 +100 DEF FN U$(N,L)=E$( TO L-LEN STR$ N)+STR$ N
  
-De esta manera sencilla y económica, podremos disfrutar mejor de nuestro Spectrum.+REM ***
  
-SCROLL DE PANTALLA+125 :
  
-Aunque en el pasado número 21 ya hablábamos de cómo llevar a cabo un scroll de pantalla, publicamos este truco que manda David y lo hace de diferente forma.+130 INPUT "NUMERO ";NUM 140 INPUT "CRMPO ";LCAMPO 145 GO 5UB COMPROBRR
  
-Para ello, teclear PRINT y tantas especies de comillas (como las que hay en la tecla n.° 7) como lineas hagamos de scroll.+147 IF ERROR THEN LET ERROR = NOT ERROR: GO TO 130
  
-SIMULACION DE LA SENTENCIA PRINT USING+148 .
  
-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.+150 PRINT INUERSE 1;
  
-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.+FN U$(NUM,LCRMPO)
  
-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.+155:
  
-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.+160 GO TO (130 RND NUM)+ (2000 ANO NOT NUM)
  
-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).+170: _
  
-10 20 30 40 45 50 60 62 63 65 : 70 80 90 95 : 100+1000 REM *** wwaiaawaa^ ***
  
-110 : 120+1010 REM *** naaiia^ 1020 LET ERROR =NOT LCRMPO OR „„„„ ncT1 ILEN STR$ NUM>LCRMPO) 1030 RETURN
  
-REM *** REM ***+</code>
  
-REM ***+==== Para colorear la pantalla ====
  
-***+--- //José Epalza//
  
-***+--- //Andrés López Montalvo//
  
-LET SPRCE =32: LET E$ = "" LET L0NGCRMP0=15 LET ERROR =0 LET COMPROBRR = 1000+Si queremos pintar la pantalla en diferentes colores usando el PAPER podemos hacerlo utilizando PRINT PAPER seguido de tantos pares de comas como filas queramos pintar.
  
-FOR 1=1 TO LONGCRMRO+Esta idea se debe a dos lectores que han coincidido con el mismo truco: José Epalza y Andrés López Montalvo, que manda el listado.
  
-LET E$=E$+CHR$ ( 5PRCE) NEXT I+<code basic>
  
-DEF FN U$(N,L)= E$( TO L-LEN STR* N)+ STR $ N+10 REM Arriba el telon 
 +20 BORDER 2 
 +30 PRINT PAPER 2,,,,,,,,,,,,,,,,,,,, 
 +40 PRINT PAPER 6,,,,,,,,,,,, 
 +50 PRINT PAPER 1,,,,,,,,,,,, 
 +60 PAUSE 50 
 +70 FOR n=0 TO 25 
 +80 RANDOMIZE USR 3190 
 +90 NEXT n
  
-REM ***+</basic>
  
-125 :+==== Amplificador de sonido ====
  
-130 INPUT "NUMERO ";NUM 140 INPUT "CRMPO ";LCAMPO 145 GO 5UB COMPROBRR+--- //Oriol Ribas//
  
-147 IF ERROR THEN LET ERROR = NOT ERROR: GO TO 130+Este truco que nos manda Oriol Ribas puede ser útil para cualquier tipo de programa, pero sobre todo para los musicales.
  
-148 .+Consiste en colocar el jack que comunica el ordenador con el magnetófono y conectarlo en las respectivas entradas de MIC, manteniendo el magnetófono en marcha (PLAY simplemente) pero sin tener ningún cassette en su interior.
  
-150 PRINT INUERSE 1;+De esta manera sencilla y económica, podremos disfrutar mejor de nuestro Spectrum.
  
-FN U$(NUM,LCRMPO)+==== Scroll de pantalla ====
  
-155:+--- //David//
  
-160 GO TO (130 RND NUM)+ (2000 ANO NOT NUM)+Aunque en el pasado número 21 ya hablábamos de cómo llevar a cabo un scroll de pantalla, publicamos este truco que manda David y lo hace de diferente forma.
  
-170: _ +Para ello, teclear PRINT y tantas especies de comillas (como las que hay en la tecla n.° 7) como lineas hagamos de scroll.
- +
-1000 REM *** wwaiaawaa^ *** +
- +
-1010 REM *** naaiia^ 1020 LET ERROR =NOT LCRMPO OR „„„„ ncT1 ILEN STR$ NUM>LCRMPO) 1030 RETURN+
  • 027/trucos.txt
  • Última modificación: d/m/Y H:i
  • por miguel