arthur
Débutant
Inscrit le : 26 Fév 2005
Messages : 13
Localisation : marseille
 |  Sujet: Débutant en ti-basic  Sam 26 Fév - 18:14 | |
| Slt j'ai opté pour les tutoriaux basic learn pour le moment pour apprendre le ti - basic mais j'ai un problème lors d'une leçon sur les boucles on à pour but de faire déplacer une étoile sur l'ecran texte on obtien t donc le code suivant mais ca ne marche pas l'étoile reste figée au milieu de l'ecran texte :
| Code: |
:ClrHome
:5->Y:8->X
:Lbl 0
:Y->B:X->A
: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
:Output(B,A," ")
:Output(Y,X,"*")
:If K<>45
:Goto 0
|
je ne sais pas d'ou vient le probleme j'ai verifié et je ne trouve pas la seule chose qui me parait possible est que jai des sauts de ligne et mon code n'est pas d'un bloc il est comme ceci sur la calculette :
| Code: |
:ClrHome
:5->Y:8->X
:Lbl 0
:Y->B:X->A
: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
:Output(B,A," ")
:Output(Y,X,"*")
:If K<>45
:Goto 0
|
merci d'avance
_________________
aie aie aie je débute en programmation |
|
Mic
Administrateur
  
Age : 24
Inscrit le : 07 Sep 2004
Messages : 10014
Localisation : Orléans
Calculatrice : Voyage 200 & TI-Nspire CAS
Classe : Prof de Maths
Impureté:
    (56/450)
Dernière note en maths: -/20
| | Sujet: Re: Débutant en ti-basic Sam 26 Fév - 18:41 | |
| Il faut appuyer sur les touches fléchées pour déplacer l'étoile.
getKey appelle à l'impulsion d'une touche.
Le code a l'air correct donc ça devrait marcher.
Tes sauts de lignes sont dus à la longueur de ta ligne de code : elle atteint le bord droit de l'écran et donc ça fait un saut.
_________________
Responsable de TI-BANK (http://www.ti-bank.fr)
Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)
|
|
arthur
Débutant
Inscrit le : 26 Fév 2005
Messages : 13
Localisation : marseille
| | Sujet: Re: Débutant en ti-basic Sam 26 Fév - 19:07 | |
| pour qu'il marche il a fallu que je replace <> par le signe différent .
_________________
aie aie aie je débute en programmation |
|
tama
Animateur
 
Age : 17
Inscrit le : 19 Déc 2005
Messages : 9484
Localisation : quelque part en France...
Calculatrice : TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:)
Classe : MPSI (Xywez : c'est bon là ? :p)
Impureté:
(-9/500)
Dernière note en maths: 13/20
| | Sujet: Re: Débutant en ti-basic Ven 10 Fév - 14:32 | |
| Lbl...Goto est très lent ! Remplace plutôt par While...End
| Code: |
:ClrHome
:While K=/45 (=/ : différent de)
:5->A:8->B
:getKey->K
:If K=24 or K=25 or K=26 or K=34
:Output(A,B," ")
:If K=24:A-1->A
:If K=25:B-1->B
:If K=26:A+1->A
:If K=34:B+1->B
:Output(A,B,"*")
:End
|
_________________
<embed src="http://www.mirari.fr/OVRh.swf" width="550" height="150" align="middle" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" allowscriptAccess="always"></embed> |
|
