|
|
 |
você esta em: / MSX Basic
| STICK |
(Função) STICK (stick) |
| Mostra o estado dos joysticks e das teclas que
movem o cursor. |
|
|
STICK(N)
se N=0 - Teclado
se N=1 - Joystick A
se N=2 - Joystick B
|
|
|
PRINT SQR(16)
|
|
|
A função STICK tem
por finalidade mostrar a direção em que estão se movendo os joysticks e as teclas que
movem o cursor. A direção é dada pelo seguinte esquema:
|
|
|
|
|
10 REM PROGRAMA STICK
20 ON ERROR GOTO 30
30 SCREEN 3
40 X=0:Y=0
50 PSET(X,Y),6
60 C=STICK(0)
70 IF C=1THENY=Y-1
80 IF C=2THENY=Y-1:=X=X+1
90 IF C=3THENX=X+1
100 IF C=4THENY=Y+1:X=X+1
110 IF C=5THENY=Y+1
120 IF C=6THENY=Y+1:X=X-1
130 IF C=7THENX=X-1
140 IF C=8THENY=Y-1:X=X-1
150 GOTO 50 |
|
|
© 2002 by MSXPró 
Esta página é melhor visualizada em
resolução de 1024x768 @ True Color
Utilizando o navegador Firefox
|
MSX Basic
