Faire bouger une image

[arthur]

Bonjour j'arrive à faire bouger une étoile ou koi sur mon ecran et jai essayé le mm code pour essayer de faire bouger une image enregistree dans pic1 mais sans resultat
pour moi , il me suffisai de remplacer le "*" par "pic1" ou " recallpic pic1" mais je n'y suis pas arrivé comment faut il faire ?

[Phacops]

Ce n'est pas possible d'afficher une image a des coordonées précise sur la ti

[bl@ckX9]

comment as tu fait pour faire bouger "une étoile ou koi" stp ?

[darkbilbo]

slt à tous!
c'est mon premier message!
je vois que personne ne t'a apparemment repondu donc je m'y colle!

Moi j'ai une TI82, donc pour bouger j'utilise plusieurs trucs:
-soit en "mode graphique", la commande "text(" avec des variables

ex:
clrdraw
repeat 0
text(a,b,"TON TEXTE")
getkey-K
if k=24:b-1-b
if k=25:a-1-a
if k=26:b+1-b
if k=34:a+1-a
end

-soit en mode "normal"
tu remplaces "text(" par "output(".

mais si tu fais juste ça et que tu déplaces le texte hors de l'écran, tu auras une erreur de domaine.
n'oublie pas de donner des valeurs à a et b dès le depart!




voilà, c'était mon premier message thanks: thanks:

[darkbilbo]

avec plaisir!
j'aime bien aider les autres qd je peux, mais pour le moment, je connais que qques trrucs sur TI82, mais je sais qd m^me programmmer un peu grâce à un tutorial proposé sur le forum!

[tama]

if faut aussi définir les limites
Si l'étoile descend en-dessous de 57 (Text ne marche pas au-dessus de 57) elle revient à 0
Même chose dans l'autre sens et pour les abcisses (de 0 à 90)

Il suffit d'ajouter quelques lignes dans la boucle, juste après les getKey

Code: Select all

If A0:57-A
If A57:0-A
If B0:90-B
If B90:0-B


[Potamogale]

o!


Si tu veux une place d'anim sur le forum voire plus.... ya pas de pb

Et moi je peux??

[Syfo]

slt à tous!
clrdraw
repeat 0
text(a,b,"TON TEXTE")
getkey-K
if k=24:b-1-b
if k=25:a-1-a
if k=26:b+1-b
if k=34:a+1-a
end

pas mal mais on peut optimiser:
deja le clrdraw dans la boucle pour effacer a chaque deplacment (sinon ça fait une espece de grosse merde sur ton ecran ^^)
ensuite il faut empecher de sortir de l'ecran (ce qui engendrerait une erreur)

Code: Select all

repeat 0
clrdraw
text(a,b,"TON TEXTE")
getkey-K
b-(k=24 and b0)+(k=26 and b56)-b
a-(k=25 and a0)+(k=34 and a88)-a
end