La je bloque sur un truc en fait je bosse sur le menu de mon Snake et pour la navigation j'ai realisé une souris
et en fait mon prob c que g mis une icone en haut a gauche du menu sur laquelle on peu cliquer pour eteindre la calculette
En fait ce que je veu savoir c comment eteindre la calculette???????
Je programme sous ION et elle s'eteind pa avec les instructions que je trouve dans les tutoriaux
Sinon voila mon code si qqun veut voir :
.nolist
#include "ion.inc"
.list
#ifdef TI83P
.org progstart-2
.db $BB,$6D
#else
.org progstart
#endif
ret
jr nc,start
.db "DebutMenuSnake",0
start:
bcall(_runindicoff)
bcall(_clrlcdfull)
bcall(_grbufclr)
ld hl,picMenu
ld de,plotsscreen
ld bc,768
ldir
ld b,8
ld a,46
ld h,a
ld (Xsouris),a
ld l,46
ld a,l
ld (Ysouris),a
ld (lastcoord),hl
ld ix,souris
call ionputsprite
call ionfastcopy
getkey:
ld a,$FF
out (1),a
ld a,$FE
out (1),a
in a,(1)
bit 0,a
call z,bas
bit 1,a
call z,gauche
bit 2,a
call z,droite
bit 3,a
call z,haut
call affiche
ld a,$FF
out (1),a
ld a,$BF
out (1),a
in a,(1)
cp 223
jp z,enter
jp getkey
bas:
push af
ld a,(Ysouris)
inc a
cp 56
jr nz,sbas
dec a
sbas: ld (Ysouris),a
pop af
ret
haut:
push af
ld a,(Ysouris)
dec a
cp 6
jr nz,shaut
inc a
shaut: ld (Ysouris),a
pop af
ret
gauche:
push af
ld a,(Xsouris)
dec a
cp 5
jr nz,sgau
inc a
sgau: ld (Xsouris),a
pop af
ret
droite:
push af
ld a,(Xsouris)
inc a
cp 89
jr nz,sdroi
dec a
sdroi: ld (Xsouris),a
pop af
ret
affiche:
ld hl,(lastcoord) ;efface ancinne souris
ld a,h
ld b,8
ld ix,souris
call ionputsprite
ld b,8 ;affiche nouvelle souris
ld ix,souris
ld a,(Ysouris)
ld l,a
ld a,(Xsouris)
ld h,a
ld (lastcoord),hl
call ionputsprite
call ionfastcopy
ret
enter:
ld a,(Ysouris)
cp 7
jp nz,getkey
ld a,(Xsouris)
cp 88
jp z,fin
ld a,(Xsouris)
cp 6
jr z,OFF
jp getkey
OFF:
DI ;g copié ca texto des tutos et ca marche pa
LD A,001H ;de plus lorsque j'appuie sur l'icone "éteindre"
OUT (003H),A ;et ensuite sur l'icone quitter en haut a droite il éteind tou en quittant le programme et quand je rallume je suis sous ION??????
LD A,000H
OUT (004H),A
EX AF,AF'
EXX
EI
jp getkey
fin:
bcall(_clrlcdfull)
bcall(_grbufclr)
bcall(_runindicon)
bcall(_homeup)
ret
Xsouris: .dw 00
Ysouris: .dw 00
lastcoord: .dw 0000
souris:
.db %10000000
.db %11000000
.db %10100000
.db %11010000
.db %11011000
.db %11111100
.db %11000110
.db %10000011
picMenu:
.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,96,0,0,0,0,0,0,31,192,0,0,1,224,0
.db 0,0,0,3,248,32,33,192,0,1,0,0,248,1,243,228,4,39,34,96,0,3,0,7,204,0,193,133,20,42,166
.db 32,0,3,0,4,198,0,193,132,164,42,166,38,96,3,99,152,198,0,193,132,68,40,166,14,227,163,166,208,131,1
.db 131,4,164,39,39,7,102,102,102,209,131,1,131,5,20,32,35,134,68,102,206,145,131,1,131,4,4,31,193,134,204
.db 71,15,25,134,1,131,3,248,0,0,204,204,199,140,75,6,3,6,0,0,0,32,140,237,236,142,131,28,3,6,0
.db 0,0,113,140,199,172,199,7,248,15,159,0,0,0,63,0,0,0,192,0,0,0,0,0,0,0,0,0,0,0,102
.db 0,0,0,0,0,0,0,0,0,0,0,54,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0
.db 0,64,0,0,0,0,0,0,1,0,0,0,0,160,0,0,0,0,0,0,2,128,0,0,1,32,0,0,0,0,0
.db 0,2,64,0,0,0,151,0,0,0,0,0,0,116,128,0,0,1,137,128,0,0,0,0,0,200,192,0,0,1,66
.db 64,0,0,0,0,1,33,64,0,0,1,17,64,0,0,0,0,1,68,64,0,0,0,134,160,0,0,0,0,2,176
.db 128,0,0,0,125,32,0,0,0,0,2,95,0,0,0,0,4,32,0,0,0,0,2,16,0,0,0,0,6,160,0
.db 0,0,0,2,176,0,0,0,63,248,160,0,0,0,0,2,143,254,0,0,80,72,32,0,0,0,0,2,9,5,0
.db 0,192,76,160,0,0,0,0,2,153,1,128,1,137,70,64,0,0,0,0,1,49,72,192,1,37,97,128,0,0,0
.db 0,0,195,82,64,1,95,255,0,0,0,0,0,0,127,253,64,1,4,0,0,0,0,0,0,0,0,16,64,1,72
.db 0,0,0,0,0,0,0,0,9,64,1,44,0,0,0,0,0,0,0,0,26,64,1,87,254,0,0,0,0,0,0
.db 63,245,64,0,133,75,0,0,0,0,0,0,105,80,128,0,148,68,192,0,0,0,0,1,145,20,128,0,132,84,192
.db 0,0,0,0,1,149,16,128,0,112,68,64,0,0,0,0,1,17,7,0,0,31,255,64,0,0,0,0,1,127,252
.db 0,0,0,2,64,0,0,0,0,1,32,0,0,0,0,2,192,0,0,0,0,1,160,0,0,0,0,1,64,0,0
.db 0,0,1,64,0,0,0,0,1,192,0,0,0,0,1,192,0,0,0,0,1,64,0,0,0,0,1,64,0,0,0
.db 0,1,64,0,0,0,0,1,64,0,0,0,0,0,128,0,0,0,0,0,128,0,0,0,0,1,0,0,0,0,0
.db 0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,0,7,0,0,0,0,0,0
.db 0,0,0,61,0,9,128,0,0,0,0,0,0,0,0,41,0,16,64,0,0,0,0,0,0,0,0,78,118,16,95
.db 199,60,0,0,0,0,0,0,77,20,48,91,75,112,0,0,0,0,0,0,73,148,48,218,210,32,0,0,0,0,0
.db 0,25,28,16,150,182,64,0,0,0,0,0,0,62,8,25,22,223,96,0,0,0,0,0,0,0,24,6,0,2,0
.db 0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,224,0,0,0,0
.end
Merci bcp de m'aider pour le truc d'eteindre la calculette, est ce que ca marche pa sous ion?????parce que le fait d'appuyer sur "éteindre" fait bugger le bouton "quitter" qui commence non seulement a quitter le prog mais aussi a eteindre la calculette.....(quand je la rallume je suis sous ion)
Aussi autre petite chose si vous savez comment afficher un sprite sans le XORer et sans que en le bougeant ce qu'il y avait en dessous, ne s'efface pas comme sur PC quoi........???
[edit by Verytourist: source longue séparée, merci ]