Mon premier programme en Axe

c'est un pointeur de souris

Code:


:.POINTM
:0→X→Y
:[406050484468540C]→Pic1
:Repeat getKey(15)
:Pt-On(X,Y,Pic1
:If getKey(2) and (X≠0
:X-1→X
:ElseIf getKey(3) and (X≠91
:X+1→X
:ElseIf getKey(1) and (Y≠57
:Y+1→Y
:ElseIf getKey(4) and (Y≠0
:Y-1→Y
:End
:DispGraphClrDraw
:End


[Vous devez être inscrit et connecté pour voir cette image]
PS:le sablier a la fin du prog est du doors cs7

N'hésitez pas a poster vos remarques sur mon programme.

Bien.

j'ai remarqué que le pointeur de souris c'est un peu le Plus ou Moins du Ti Basic : on a tous commencé par ça.


Il est parfait ton prog, si tu veux l'améliorer:

- crée un menu qui s'ouvre quand tu clique droit ou gauche
- change de pointeur aléatoirement
- crée un petit sablier aléatoire qui te bloque la souris pendant un temps court, comme si la calto réfléchissait...

persalteas a écrit:Bien.

j'ai remarqué que le pointeur de souris c'est un peu le Plus ou Moins du Ti Basic : on a tous commencé par ça.

Euh, c'est pas par Hello World que l'on commence en general ? :P

Si effectivement. Mais juste après.

Ok je vais essayer pour ta proposition persalteas.

C'est bien que tu te mettes à l'Axe Parser.

persalteas a écrit:j'ai remarqué que le pointeur de souris c'est un peu le Plus ou Moins du Ti Basic : on a tous commencé par ça.

noelthebest a écrit:Euh, c'est pas par Hello World que l'on commence en general ? :P

persalteas a écrit:Si effectivement. Mais juste après.

Ah bon ? J'aurais dû faire ça avant de me lancer dans Pokémon vous croyez ? [Vous devez être inscrit et connecté pour voir cette image]

Mais effectivement Alex, c'est une bonne idée de te mettre à l'Axe. J'en suis la preuve vivante car la ligne que je viens d'écrire mentionne un Pokémon que j'aurais codé en Basic. Pourtant, le Pokémon de ma signature est bien en Axe. Preuve que l'Axe a réussi là où le Basic a échoué

(et puis ça sonne bien "Alex à l'Axe" [Vous devez être inscrit et connecté pour voir cette image])

ton code est bien cependant tu peut optimiser et changer quelque truc :

Code:


:.POINTM
:0→X→Y
:[406050484468540C]→Pic1
:Repeat getKey(15)
:Pt-On(X,Y,Pic1)
:getKey(2) and (X>0)?X--
:getKey(3) and (X<91)?X++
:getKey(1) and (Y<57)?Y++
:getKey(4) and (Y>0)?Y--
:DispGraphClrDraw
:End


et si on reflechis un peu plus on peut arriver a sa : mais c'est tres bien ce que tu as fait pour un debut

Code:


:.POINTM
:0→A→B
:While 1
:DispGraphClrDraw
:Pt-On((getKey(3) and (X<91))-(getKey(2) and (X>0))+A→A,(getKey(1) and (Y<57))(getKey(4) and (Y>0))+B→B,[406050484468540C])
:DispGraphClrDraw
:EndIf getKey(15)


et kindermoumoute si tu me trouve une autre optimisation que celle ci ( je sais meme pas si elle marche et j'ai recu un peu d'aide ) tu me dit

et runer112 dit que l'on peut faire sa :

Code:


:1→A→B
:ClrHome
:While 1
:Bitmap(min(getKey(3)-getKey(2)+A(Bump()),89)→A-2,min(getKey(1)-getKey(4)+B(Bump()),57)→B-2,[406050484468540C])
:FnOff
:EndIf getKey(15)
:Lbl Bump
:ReturnIf
:Return +1


mais je ne suis pas sur que ce code marche car j'ai due un peu le modifier et quand on modifie un code de runer112 on rencontre des probleme

Ok je vais regarder ton code, merci

ne regarde pas le dernier code il est faux il faut que je reflechisse dessus

Je sais que bitmap a été grandement optimisé depuis les 1.X.X, mais la routine doit prendre plus de place que celle d'un sprite je pense. O_o

Par contre tu oublie 2 octets dans le sprite, je crois qu'il faut faire ça :

Code:

:[0808]
:[406050484468540C]→Str1
:1→A→B
:ClrHome
:While 1
:Bitmap(min(getKey(3)-getKey(2)+Asub(Bump)),89)→A-2,min(getKey(1)-getKey(4)+Bsub(Bump)),57)→B-2,Str1)
:FnOff
:EndIf getKey(15)
:Lbl Bump
:ReturnIf
:Return +1

Après ça prendrait moins de place avec l'axiome speedkey.

oui effectivement mais dans ce cas assigner 16 caractere hex a str1 sa sert a rien autant l'afficher directement dans le pt-on