Gráficos

O programa que vou explicar aquí ZX Spectrum, porque me basearei nas súas propias características.

Os programas que expliquei até agora, aínda que sexan paira o ZX Spectrum, poderiamos abrilos en calquera máquina sen realizar cambios de gran importancia.

Esta vez, perdoarás ao lector, pero o programa que vou explicar aquí hai que expresalo no ZX Spectrum, porque me basearei nas súas propias características.

Este programa non ten en por si un gran valor, pero algunhas das instrucións que se utilizan no mesmo poden resultar de gran interese paira a elaboración ou elegancia de calquera programa.

A máquina, concretamente o Spectrum, garda una serie de posicións memorísticas paira controlar o seu sistema interno. Nel recóllese a tecla que finalmente se pulsou, cal será a seguinte liña de instrución, as cores, o tratamento da pantalla paira saber si a impresora está a utilizar, etc. (un total de 71 variables de sistema).

Entre estas 71 variables de sistema hai dous moi interesantes no noso caso: Posicións 23677 e 23678.

Nestas posicións recóllense as coordenadas do punto final debuxado. É dicir: Se feixes PRINT PEEK 23677, a coordenada x do punto aparecerache na pantalla e si fas PRINT PEEK 23678 darache a coordenada e do punto.

Isto axúdanos moito no deseño dos programas.

O programa que expoño a continuación baséase nas seguintes variables de sistema. O programa realiza debuxos aleatorios e ilimitados.

Antes de executar a instrución DRAW x1,y1 obtén os valores correctos de x1 e y1 nas liñas 205 e 230, utilizando as liñas 210 e 240 paira a súa verificación. As instrucións REM non teñen ningún efecto sobre o programa, polo que se se desexa pódese deixar de teclear.

BORRADOR

10 PRINT #0; "TECLA DE PARADA"
20 LET I=0:REM "Define a cor da tinta"
30 LET x=0:REM x definir
40 LET e=0:REM e definir
50 GOSUB 200
60 INK I
70 DRAW
x1,y1 I+1 LET: IF I=7 THEN LET I=0:REM
90 IF INKEY $=" Números aleatorios THEN GO TO 50:REM,
100 INK 0 (Aquí non hai espazo)
110 STOP
200 REM X1 e Y1
Subrutinas 55-NINT* Números aleatorios REM, positivos ou negativos, paira a obtención de
210 LET x=PEEK 23677+x1
220 IF 0 x OR x 255 THEN GO TO 200:REM
230 LET Y1= Int (Rnd*-175)+85:REM paira a obtención de
250 GO e
240
TEP

Babesleak
Eusko Jaurlaritzako Industria, Merkataritza eta Turismo Saila