π
<-
Chat plein-écran
[^]

[Résolu] Probleme code basic

[Résolu] Probleme code basic

Unread postby Raiseit » 21 Sep 2016, 15:11

Bonjour
J'ai un problème de getkey avec mon programme:
Code: Select all
1→S
0→K
Lbl 3
If S=1
Then
Texte(­1,50,25,"MODULE DEPLACEMENT"
Texte(80,56,"            MODULE ENNEMI        "
Else
If S=2
Then
Texte(50,23,"                    MODULE DEPLACEMENT    "
Texte(­1,80,57,"MODULE ENNEMI"
Texte(110,95,"     RETOUR      "
Else
If S=3
Then
Texte(80,56,"            MODULE ENNEMI      "
Texte(­1,110,95,"RETOUR"
End
While K=0
getKey→K
End
Lbl 5
If K=34 et S<3
S+1→S
If K=25 et S>1
S-1→S
If K=105 et S=1
prgmDEV1
If K=105 et S=2
prgm
If K=105 et S=3
Goto ZZ
Goto 3


Il ne passe qu'une seule fois dans la boucle, et après il s’arrête.
Comment régler ça ?

Bonne journée
Last edited by Raiseit on 21 Sep 2016, 17:56, edited 1 time in total.
Raiseit

Image

New Super Oiram Bros - World 1
99%

New Super Oiram Bros - World 2
28%



La vie est trop courte pour enlever le périphérique en toute sécurité
Il y a 10 types de personnes: ceux qui comprennent le binaire, et les autres
User avatar
Raiseit
Niveau 8: ER (Espèce Rare: nerd)
Niveau 8: ER (Espèce Rare: nerd)
Level up: 16.4%
 
Posts: 33
Images: 13
Joined: 21 Sep 2016, 13:56
Gender: Male
Calculator(s):
Class: 1ere S

Re: Probleme code basic

Unread postby Ruadh » 21 Sep 2016, 15:22

Bonjour !
Il te manque 2 End entre la ligne 19 et la ligne 20, il en faut un pour chaque Then.
Ensuite remplace

Code: Select all
While K=0


par

Code: Select all
Repeat K


Et ça devrait marcher. Fais juste attention avec ton Goto ZZ, comme tu n'as pas de Lbl ZZ, tu auras une erreur étiquette.
User avatar
RuadhPremium
Niveau 13: CU (Calculateur Universel)
Niveau 13: CU (Calculateur Universel)
Level up: 27.6%
 
Posts: 34
Joined: 11 Jan 2016, 23:19
Gender: Not specified

Re: [R] Probleme code basic

Unread postby Raiseit » 21 Sep 2016, 17:57

Merci, ça marche.
ps: mon label zz est plus haut, j'ai juste pas voulu vous spammer tout le code.
Raiseit

Image

New Super Oiram Bros - World 1
99%

New Super Oiram Bros - World 2
28%



La vie est trop courte pour enlever le périphérique en toute sécurité
Il y a 10 types de personnes: ceux qui comprennent le binaire, et les autres
User avatar
Raiseit
Niveau 8: ER (Espèce Rare: nerd)
Niveau 8: ER (Espèce Rare: nerd)
Level up: 16.4%
 
Posts: 33
Images: 13
Joined: 21 Sep 2016, 13:56
Gender: Male
Calculator(s):
Class: 1ere S


Return to TI-Basic

Who is online

Users browsing this forum: No registered users and 5 guests

-
Search
-
Featured topics
Omega, le fork étendant les capacités de ta NumWorks, même en mode examen !
Comparaisons des meilleurs prix pour acheter sa calculatrice !
12
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...

Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partner and ad
Notre partenaire Jarrety 
-
Stats.
429 utilisateurs:
>423 invités
>1 membre
>5 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)