Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Programme de base
Auteur Message
lover-lol
Avatar

Autorisation : Membre
Nb de messages : 74
Inscrit le : Ven 03 Déc 2010, 3:42
Posté le : Ven 11 Fév 2011, 20:08   Citer 

Voici un programme de base que j'ai fait afin de comprendre à quoi servait et surtout, comment utiliser ce getkey happy.gif
La chose que je voudrais faire c'est, que le petit ° se déplace vers nous d'une case lorsque l'on se déplace d'une case (enfin de crans).
En gros si on considère mon plan comme ceci sachant que * c'est moi et ° le méchant :
_________________
| | J'aimerais que si je me déplace à gauche, il aille à
| * | gauche, que si je me déplace à droite, il aille en haut,
| ° | que si je me déplace vers le bas, il aille à gauche.
|_______________|

Merci d'avance,
Lover-lol

Le code :

Code
ClrHome
:5→Y
:8→X
:Lbl 1
:randInt(1,8)→V
:randInt(1,16)→W
:If V=5 and W=8:Goto 1
:Lbl 0
:Y→B
:X→A
:V→F
:W→G
:getKey→K
:If K=24:X-1→X
:If K=25:Y-1→Y
:If K=26:X+1→X
:If K=34:Y+1→Y
:If X>16:1→X
:If X<1:16&#8594;X
:If Y>8:1&#8594;Y
:If Y<1:8&#8594;Y
:If X=W and Y>V:Then:V+1&#8594;V:Goto H:End
:Lbl H
:If Y=V and X=W:Goto 6
:Output(B,A," "
:Output(Y,X,"*"
:Output(F,G," "
:Output(V,W,"°"
:Goto 9
:Lbl 6
:Goto &#920;
:Lbl 9
:If K&#8800;45
:   Goto 0
:ClrHome
:Stop
:Lbl &#920;
:Output(5,2,"::::PERDU::::"



----------------------
Derien winkle.gif
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Ven 11 Fév 2011, 21:59   Citer 

je connais la réponse, mais je trouve ça bête de te la donner. tu es sur que tu ne peux pas trouver tout seul ? c'est pas super compliqué. pense aux coordonées des deux "personnages".

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 11 Fév 2011, 22:20   Citer 

Il reste juste à étoffer cette partie, qui a d'ailleurs une petite erreur.

Code
:If X=W and Y>V:Then:V+1&#8594;V:Goto H:End
:Lbl H



Code
:If X=W and Y>V
:V+1->V
//ici des tests à partir de K
:Lbl H


Je suis (verbe suivre) persalteas dans son idée de te laisser essayer. Toutefois je te conseille d'utiliser les K.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa