Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.
La shoutbox n'est pas chargée par défaut pour des raisons de performances. Cliquez pour charger.

Forum Casio - Autres questions


Index du Forum » Autres questions » Faire faire le tour de la calculatrice par un A
Eltoredo Hors ligne Modérateur Points: 4301 Défis: 35 Message

Faire faire le tour de la calculatrice par un A

Posté le 24/09/2014 19:17

Bonjour, aujourd'hui j'ai eu un petit problème en basic dont certaines personnes ont déjà entendu parler sur le chat

Alors voici le code :

0->A~Z
Do // Par ce que je veux que le A fasse le tour de la calto en boucle
For 1->X To 20 Step 0.5
Locate Intg X,1," A"
Next
Cls // Qui sert à rien d'ailleurs
For 1->Y To 7 Step 0.5
Locate 20, Intg Y," A"
Next
LpWhile1 // Boucle infinie


Le but est (par rapport à ce code) de faire bouger A de en haut à gauche à en haut à droite (ce qui est fait) puis de en haut à droite vers en bas à gauche (ce qui est fait aussi) mais il y a la trace du A que je n'arrive pas à enlever de la même façon que la première trajectoire, surement par ce que la première trajectoire, l'espace à gauche supprimais la trace à gauche mais il n'y a pas d'espace pour au dessus, ce qui cause ce soucis je pense

Si quelqu'un à la solution, je prend et je continu le programme, avec ça je pense le finir sans soucis pour mes propres besoin

Merci d'avance


Btl Hors ligne Ancien modérateur Points: 3879 Défis: 107 Message

Citer : Posté le 24/09/2014 20:54 | #


Eltoredo, je peux te promettre que le code de Lephenixnoir est parfaitement fonctionnel.
Un excellent tuto video qui vous explique comment transférer des fichiers de l'ordinateur vers la calculatrice et vice versa ma chaine youtube
mes jeux
mes jeux

Jouez à 6 sur une seule calto : Curve Fever
Un die and retry qui vous fera bieeeen rager Test Andropov
un très bon sokoban
le seul vrai jeu de foot en basic : FIFA 12
Ca c'est ce que j'appelle un jeu de reflexion jewel master
Qui vaincra l'intelligence artificielle de cet othello
Le célèbre pacman
Et tant d'autres BTL's games

Le jeu du mois de Novembre et award du jeu le plus dur de l'année 2013 MultiTask, testez-le
Lephenixnoir En ligne Administrateur Points: 24146 Défis: 170 Message

Citer : Posté le 24/09/2014 20:55 | #


Btl a écrit :
Eltoredo, je peux te promettre que le code de Lephenixnoir est parfaitement fonctionnel.

Me voilà rassuré
Mon graphe (24 Mars): (gint#27 ; (Rogue Life || HH2) ; PythonExtra ; serial gint ; Boson X ; ...) || (shoutbox v5 ; v5)
Eltoredo Hors ligne Modérateur Points: 4301 Défis: 35 Message

Citer : Posté le 24/09/2014 20:55 | #


Alors je vais chez optic 2000 après Je re teste dès que possible.
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
Silaxe Hors ligne Membre Points: 809 Défis: 12 Message

Citer : Posté le 24/09/2014 21:07 | #


Je confirme ce qu'a dit BTL
Eltoredo Hors ligne Modérateur Points: 4301 Défis: 35 Message

Citer : Posté le 24/09/2014 21:13 | #


Ok ok testons ça de suite

Ajouté le 24/09/2014 à 21:14 :
J'avais mis un espace avant le dernier A Voilà qui est fait mais pourquoi le A ne va pas tout en bas ? Il reste un espace :/
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
Lephenixnoir En ligne Administrateur Points: 24146 Défis: 170 Message

Citer : Posté le 24/09/2014 21:17 | #


Hé hé, il va tout en bas.
La dernière ligne (la 8ème) est inaccessible en Basic.
Mon graphe (24 Mars): (gint#27 ; (Rogue Life || HH2) ; PythonExtra ; serial gint ; Boson X ; ...) || (shoutbox v5 ; v5)
Eltoredo Hors ligne Modérateur Points: 4301 Défis: 35 Message

Citer : Posté le 24/09/2014 21:18 | #


Fait chier

Donc :

0→A~Z
Do
For 1→X To 20
Locate X,1," A"
For 1→N To 100:Next
Next
For 1→Y To 8
Y>1⇒Locate 21,Y-1," "
Y<8⇒Locate 21,Y,"A"
For 1→N To 100:Next
Next
LpWhile1


Code de phenix puis mon rajout :

For 20->X To 1
Locate X,1,"A"
For 1->N To 100:Next
Next


Ceci avant le LpWhile mais le X ne fait pas cette trajectoire, pourtant j'ai bien inversé les X :/
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
Lephenixnoir En ligne Administrateur Points: 24146 Défis: 170 Message

Citer : Posté le 24/09/2014 21:20 | #


Locate X,[green]7[/green],[green]"A "[/green]

Mon graphe (24 Mars): (gint#27 ; (Rogue Life || HH2) ; PythonExtra ; serial gint ; Boson X ; ...) || (shoutbox v5 ; v5)
Eltoredo Hors ligne Modérateur Points: 4301 Défis: 35 Message

Citer : Posté le 24/09/2014 21:21 | #


Je viens de m'en rendre compte pour le 7 mais ça ne fonctionne pas
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
Lephenixnoir En ligne Administrateur Points: 24146 Défis: 170 Message

Citer : Posté le 24/09/2014 21:23 | #


For 20→X To 1 [green]Step -1[/green]

Mon graphe (24 Mars): (gint#27 ; (Rogue Life || HH2) ; PythonExtra ; serial gint ; Boson X ; ...) || (shoutbox v5 ; v5)
Eltoredo Hors ligne Modérateur Points: 4301 Défis: 35 Message

Citer : Posté le 24/09/2014 21:24 | #


Ah bah voilà je me disais bien qu'on pouvais faire ça avec un - ! Merci, je m'occupe d'effacer le A à cette place et de le faire revenir à sa place initiale et j'ai fini x)

Ajouté le 24/09/2014 à 21:29 :
For 7->Y To 1 // Il va du Y=7 au Y=1 (de bas en haut)
Locate 1,Y,"A"
Locate 1,1," "
For 1->N To 50:Next
Next
LpWhile 1


C'est la même que le X mais à l'inverse pourtant il disparais
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
Totoyo Hors ligne Membre d'honneur Points: 16093 Défis: 102 Message

Citer : Posté le 24/09/2014 21:38 | #


For 7→Y To 1 [b][red]Step -1[/red][/b]
Locate 1,Y,"A"
[b][red]Y<7⇒[/red][/b]Locate 1,[b][red]Y+1[/red][/b]," "
For 1→N To 50:Next
Next
LpWhile 1

Lephenixnoir En ligne Administrateur Points: 24146 Défis: 170 Message

Citer : Posté le 24/09/2014 21:38 | #


For 7→Y To 2 [red][b]Step -1[/b][/red]
Locate 1,Y,"A"
[b][red]Y<7⇒[/red][/b]Locate 1,[red][b]Y+1[/b][/red]," "
For 1→N To 100:Next
Next

Mon graphe (24 Mars): (gint#27 ; (Rogue Life || HH2) ; PythonExtra ; serial gint ; Boson X ; ...) || (shoutbox v5 ; v5)
Eltoredo Hors ligne Modérateur Points: 4301 Défis: 35 Message

Citer : Posté le 24/09/2014 21:42 | #


ça fonctionne, problème résolu ce sujet pourra surement aider d'autres gens (du moins je l'espère )
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
Btl Hors ligne Ancien modérateur Points: 3879 Défis: 107 Message

Citer : Posté le 24/09/2014 21:48 | #


Eltoredo, petite question : Tu as lu des tutos sur le basic?
Parce qu'excuse moi, mais si tu as du mal à manipuler les For... (Step -1, etc.)
Un excellent tuto video qui vous explique comment transférer des fichiers de l'ordinateur vers la calculatrice et vice versa ma chaine youtube
mes jeux
mes jeux

Jouez à 6 sur une seule calto : Curve Fever
Un die and retry qui vous fera bieeeen rager Test Andropov
un très bon sokoban
le seul vrai jeu de foot en basic : FIFA 12
Ca c'est ce que j'appelle un jeu de reflexion jewel master
Qui vaincra l'intelligence artificielle de cet othello
Le célèbre pacman
Et tant d'autres BTL's games

Le jeu du mois de Novembre et award du jeu le plus dur de l'année 2013 MultiTask, testez-le
Eltoredo Hors ligne Modérateur Points: 4301 Défis: 35 Message

Citer : Posté le 24/09/2014 21:48 | #


Je les ai lu effectivement mais j'ai toujours eu du mal avec les boucles (surtout la boucle for, ce qui ne m'empêche pas de l'utiliser)
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
Totoyo Hors ligne Membre d'honneur Points: 16093 Défis: 102 Message
Eltoredo Hors ligne Modérateur Points: 4301 Défis: 35 Message

Citer : Posté le 25/09/2014 12:17 | #


Oui absolument, je regarderais ça ce soir à mon retour de l'école, la j'ai juste quelques trous Enfin je tiens à préciser que le basic est occasionnel pour moi, je suis plutôt axé C maintenant mais j'en prend quand même compte

Ajouté le 25/09/2014 à 13:44 :
De toute façon la je n'ai fait que des erreurs de logique dans les chiffres
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)

LienAjouter une imageAjouter une vidéoAjouter un lien vers un profilAjouter du codeCiterAjouter un spoiler(texte affichable/masquable par un clic)Ajouter une barre de progressionItaliqueGrasSoulignéAfficher du texte barréCentréJustifiéPlus petitPlus grandPlus de smileys !
Cliquez pour épingler Cliquez pour détacher Cliquez pour fermer
Alignement de l'image: Redimensionnement de l'image (en pixel):
Afficher la liste des membres
:bow: :cool: :good: :love: ^^
:omg: :fusil: :aie: :argh: :mdr:
:boulet2: :thx: :champ: :whistle: :bounce:
valider
 :)  ;)  :D  :p
 :lol:  8)  :(  :@
 0_0  :oops:  :grr:  :E
 :O  :sry:  :mmm:  :waza:
 :'(  :here:  ^^  >:)

Σ π θ ± α β γ δ Δ σ λ
Veuillez donner la réponse en chiffre
Vous devez activer le Javascript dans votre navigateur pour pouvoir valider ce formulaire.

Si vous n'avez pas volontairement désactivé cette fonctionnalité de votre navigateur, il s'agit probablement d'un bug : contactez l'équipe de Planète Casio.

Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 124 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd