MSX Village forum

Oui avec plaisir

Instruction STICK( ) pour le joystick
J'ai un trou de mémoire pour la souris je te dis ça

Voila c'est PAD( ) pour la souris

Tu as le manuel de programmation du HB700 ?
C'est un bon bouquin avec de bons exemples
Edité par Fabf Le 20/10/2011 à 20h16

C'est en screen7. Ce n'est pas la solution la plus élégante, mais cela fonctionne :

10 CLEAR:COLOR15,4,1:SCREEN7
20 '-------------------------------
30 FORI=1TO8:READA:A$=A$+CHR$(A):NEXTI
40 FORI=1TO8:READB:B$=B$+CHR$(B):NEXTI
50 SPRITE$(1)=A$:SPRITE$(2)=B$:SX=100:SY=100
60 '-------------------------------
70 GOSUB120
80 IFBDTHENBEEP
90 IFBGTHENBEEP:BEEP
100 GOTO70
110 '-------------------------------
120 BG=STRIG(1):BD=STRIG(3)
130 P=PAD(12):PX=PAD(13):PY=PAD(14):SX=SX+PX:SY=SY+PY
140 IFSX<0THENSX=0
150 IFSX>250THENSX=250
160 IFSY<0THENSY=0
170 IFSY>203THENSY=203
180 PUTSPRITE1,(SX,SY),1,1:PUTSPRITE2,(SX,SY),15,2
190 RETURN
200 '-------------------------------
210 DATA 160,144,136,132,152,164,228,24
220 DATA 64,96,112,120,96,88,24,0
230 END

1 "beep" se produit quand tu cliques sur le bouton de droite.
2 "beep" sur le bouton de gauche.

ON STICK(1) GOSUB 100,200,300,400,500,600,700,800

donne de bon résultats et évite de tester 8 fois l'état du joystick

Comment on sauvegard encore sur une disquette ?

Save ......?

save "A:xxxxxxxx.xxx" sur le lecteur A

save "B:xxxxxxxx.xxx" sur le lecteur B

etc ...


xxxxxxxxx = nom du programme (8 caractères max.)
xxx = extension (3 caractères max.)

Aujourd'hui c'est plus facile qu avant aujourd'hui on a l'Internet et sourtou le village

A la votre