ras le cul des maths - Page 9

Rien...

De toute facon g changé la ligne et ca marche toujours pas.
If key=337 or key=340 or key=338 or key=344 or key=264:key»tst
PxlOn y,x
If pxlTest(y,x)=1 Then
PxlOff y,x
EndIf
If tst=337 Then:x-1»x
ElseIf tst=338 Then:y-1»y
ElseIf tst=340 Then:x+1»x
ElseIf tst=344 Then:y+1»y

fallait pas lui dire... tu mache tout là !

Réfléchis, Krän
Là, t'allume ton pixel, puis tu teste (mal, soi dis en passant) si ton pixel est allumer. Ca risque pas de detecter un pixel éteint, comme ça
Donc si ton pxltest était programmer correctement, ça éteindrait le pixel que tu viens juste d'allumer.

C mieux la?
If pxlTest(y,x):PxlOff y,x
PxlOn y,x

Vi, beaucoup, sauf qu'il faut que tu quittes le prog au lieu d'éteindre le pixel

Oué mais si je met dishome, quand je touche la queue l'écran s'éteint un bref instant puis il continue comme si de rien n'était!

lol
Met exit, ça iras beaucoup mieux

G essayé de mettre exit mais la ca me met juste "done"

Essayes d'éffacer le graphique avec ClrDraw Avant d'entrer dans la boucle.

Ben j'lé fait ca:

Prgm
ClrDraw
setGraph("Axes","OFF")
340»tst
2»x
3»y
While tst?264

Ca devrait marcher, normalment

y met "done" :

Prgm
ClrDraw
setGraph("Axes","OFF")
340»tst
2»x
3»y
While tst?264
getKey()»key
If key=337 or key=340 or key=338 or key=344 or key=264:key»tst
If pxlTest(y,x):exit
PxlOn y,x
If tst=337 Then:x-1»x
ElseIf tst=338 Then:y-1»y
ElseIf tst=340 Then:x+1»x
ElseIf tst=344 Then:y+1»y
EndIf
EndWhile
DelVar x,y,key,tst
DispHome
EndPrgm

Ca à l'air pas mal pourtant!

Met "If pxltest(x,y)=True" et un DispG avant le ClrDrawn.

Ok merci

Maintenant fo voir quand il sort de l'écran!

Facil, quand X ou Y atteint une certaine valeur, tu quittes

Ok c bon ca marche du premier coup!

If x=0 or x=238:exit
If y=0 or y=107:exit

Reste plus qu'a optimiser

pkoi 2 lignes au lieu d'une seule ?

G changé!

Et pour l'opti

Prgm
local x,y,k,t
DispG
setGraph("Axes","OFF")
340»t:2»x:3»y
While t?264
getKey()»k
If k=337 or k=340 or k=338 or k=344 or k=2:k»t
If x=0 or x=238 or y=0 or y=107:exit
If pxlTest(y,x)=True:exit
PxlOn y,x
If t=337:x-1»x
If t=338:y-1»y
If t=340:x+1»x
If t=344:y+1»y
EndWhile
ClrDraw
DispHome
EndPrgm

Pour l'instant!

Vires le setgraph, il sert à rien

283 mais bon la je crois que g fini

Nan
Les deux testes de sortis (le pxltest et le x=0 or x=268...) tu peut l'inclure dans le while. Sauf qu'i faut que tu remplace les or par des and et que t'inverse les agalité (par exemple, x=0 devient x!=0).

Comment on fait pour remplacer le pixel par une image?

Ben... c'est trés simple.
Tu remplace la fonction pxlON par rplcpic.

ok, j'avoue que ct con comme question!

Je peux pas envoyer ma rom sur vti "could not send file to calculator"

On envois pas une rom, cretin

Faut que tu mette ta rom dans le dossier VTI

newbies power...

C ce ke je voulais dire !