Forum

Catégorie : Support
Forum : TI-82 STATS.fr
Vues : 693
Réponses : 7
Type : discussion
Etat : réponses autorisées

Programmation graphique

the programmer du 45 le 07/02/2009 à 13:26
Bonjour,
Je voudrais programmer un jeu où l'on voit son personnage de haut. glasses.gif
Quelqu'un pourrait-il répondre à ces questions ? :
-Comment sauvegarder un ensemble de variables??? ahh.gif
-QQ1 pourrait-il me donner les lignes de code d'un programme où on déplace un rond (O)?? SVP me donner les variables des coordonnées du rond sur l'ecran.
ahh.gif ahh.gif ahh.gif ahh.gif ahh.gif ahh.gif ahh.gif ahh.gif ahh.gif
the programmer du 45 le 14/02/2009 à 12:25
Merci de vos bienveillantes réponses mais G quand même réussi pour faire bouger un point avec les flèches. Comme je suis très gentil ( laugh.giflaugh.gif laugh.gif laugh.gif laugh.gif laugh.gif laugh.gif laugh.gif laugh.gif happy.gif happy.gif happy.gif happy.gif happy.gif happy.gif happy.gif happy.gif happy.gif happy.gif happy.gif ) , je vous donne le code pour ce faire:
Code
:EffDessin
:0=>C
:0=>A:0=>B
:Lbl A:0=>C:Texte(A,B,"°"
:codeTouche=>C
:If C=24:B-5=>B
:If C=25:A-5=>A
:If C=26:B+5=>B
:If C=34:A+5=>A
:Goto A

(Où A et B sont les variables de la position du rond)
Et voilà !!!!!!!! Il ne reste plus qu'a effacer la trace que fait la rond en avançant !!!!!!
Sangohan38 le 14/02/2009 à 13:00
On peut simplifier ce code:
Code
:EffDessin
:0=>C
:0=>A:0=>B
:Lbl A:0=>C:Texte(A,B,"°"
:codeTouche=>C
:If C=24 ou C=26:B+(C-25)5=>B
:If C=25:A-5=>A
:If C=34:A+5=>A
:Goto A


Sangohan38
coc5 le 14/02/2009 à 17:39
Je te conseils plutôt ce code qui efface également les traces...

Code
EffDessin
While C=/=23
Repeat C
CodeTouche(->C
End
Text(A,B+1,"[4 espace] 
max(0,min(90,B+5(K=26) - 5(K=24-> B
max(A,min(57,+5(K=34) - 5(K=25-> A
Text(A,B,"°
End
KillerMapper le 16/02/2009 à 12:21
Le code n'efface pas les traces chez moi...
coc5 le 19/02/2009 à 21:09
Normale il faut mettre un espace apres le guillement
KillerMapper le 19/02/2009 à 23:41
En fait il en faut plus, moi en mettant 4 espaces ça marche, mais j'ai modifié la valeur des déplacements à 4.
Donc ça serait plutôt 5 espaces pour le code d'exemple je pense.
coc5 le 22/02/2009 à 02:03
Euh Oui j'ai marqué n'importe quoi là désolé, c'est corrigé.

C'est ça :


Code
EffDessin
While C=/=23
Repeat C
CodeTouche(->C
End
Text(A,B+1,"[4 espace] 
max(0,min(89,B+5(K=26) - 5(K=24-> B
max(A,min(57,+5(K=34) - 5(K=25-> A
Text(A,B,"°
End