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



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 : 2164
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 : 3767
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 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink