Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Lun 17 Oct 2011, 16:34
Salut à tous! et oui encore moi! Je suis productif ces temps ci Il y a pas longtemps je me suis souvenu d'un jeu que j'avais eu en seconde et j'avais toujours essayé de le refaire mais je n'y arrivais jamais. (Et je pouvais pas voir l'autre jeu car il était bloqué par protect ). Et aujourd'hui Je l'ai fait! J'y suis arrivé! Alors je vous le poste.
VOITURE : (Taille : 239 Octets)
Code
:Effecr
:For(A,1,16
:Output(1,A,"*
:Output(8,A,"*
:If non(PartDéc(A/2:Output(A/2,1,"*
:If non(PartDéc(A/2:Output(A/2,16,"*
:End
:Output(4,2,"VOITURE BY SNAP
:Pause
:EffEcr
:Disp"","","","","","","
:1 -> A
:1 -> B
:1 -> C
:1 -> D
:1 -> E
:8 -> X
:0 -> S
:Repeat X >= A et X <= A+1
:CodeTouche -> K
:Min(16,Max(1,X+(K=26)-(K=24 -> X
:Output(3,X,"0
:S+1 -> S
:B -> A
:C -> B
:D -> C
:E -> D
:EntAléat(1,15 -> E
:Output(7,E,"{}
:Disp "
:End
:EffEcr
:Disp "Perdu! Score :
:S
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mar 18 Oct 2011, 10:20
Salut! Sandro, pour les sept fois "", c'est pour que le prochain disp fasse monter l'écran d'un cran ce qui donne l'impression que la voiture avance. Par exemple, essaie de faire un programme ou tu met :
Tu comprendra peut-être mieux.
Mais le truc pour faire en graphique c'est que je pourrais plus utiliser la méthode du disp alors faudra que je change tout^^ Donc je vais surement pasle faire parce que si on change la méthode du disp, sa ira beaucoup moins vite et ce ne sera pas jouable. Après libre à vous d'essayer
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mar 18 Oct 2011, 21:35
le signe <= et >= veulent dire supérieur ou égal et inférieur ou égal. C'est pas égal + supérieur. C'est les signe que t'as en faisant seconde + math + 4 ou 6
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mer 19 Oct 2011, 12:59
même pour un programme de maths ça peut sevir : si on veut affficher des choses en divers endroit d'unne même ligne, on est obligé d'utiliser des Imput, mais grâce à ta technique, on poura aussi les décaler vers le haut pour en afficher des nouveaux sans tout reafficher.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mer 19 Oct 2011, 13:19
Wé pourquoi pas^^ Voila une version avec un meilleur score si jamais quelqu'un veut^^
Code
:1 -> dim(LRA
:Effecr
:For(A,1,16
:Output(1,A,"*
:Output(8,A,"*
:If non(PartDéc(A/2:Output(A/2,1,"*
:If non(PartDéc(A/2:Output(A/2,16,"*
:End
:Output(3,2,"VOITURE BY SNAP
:Output(5,2,"MEILLEUR SCORE
:Output(6,8,LRA(1
:Pause
:EffEcr
:Disp"","","","","","","
:1 -> A
:1 -> B
:1 -> C
:1 -> D
:1 -> E
:8 -> X
:0 -> S
:Repeat X >= A et X <= A+1
:CodeTouche -> K
:Min(16,Max(1,X+(K=26)-(K=24 -> X
:Output(3,X,"0
:S+1 -> S
:B -> A
:C -> B
:D -> C
:E -> D
:EntAléat(1,15 -> E
:Output(7,E,"{}
:Disp "
:End
:EffEcr
:Disp "Perdu! Score :",S
:If S>LRA(1 : Then
:S -> LRA(1
:disp "RECORD BATTU!!
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mer 19 Oct 2011, 13:40
Merci pour ces amélio^^ je pense jamais au effVar^^ et ensuite pour les majuscules pas besoin et en plus si je me souviens bien toute les lettres que j'ai mit peuvent être en minuscule sur la calto
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mer 19 Oct 2011, 19:00
Edite ton post et met le nom du mec qui a fait le high score dans la présentation Et je viens de remarquer un truc : Ta pas mit de titre a ton menu!! Erreur syntaxe! ^^
Autorisation : Membre
Nb de messages : 80
Inscrit le : Jeu 24 Fév 2011, 19:12
Posté le : Jeu 20 Oct 2011, 20:24
Pfff.
Bien la peine que je me casse les burnes à faire une nouvelle version (même si j'avais fait des erreurs d'inattention, et puis je peux pas me manifester tout le temps, j'ai une vie hein.).
Tu as une 82?
Si oui, remplace "LRA" par "L6" ([2nde] + [6]).
Sinon, fais [2nde] + [0] + [)] + [ENTER] pour le "L".
Laisse le "RA" en majuscules comme tu l'avais mis.
made2kill aka M2K
---------------------- Aussi connu sous le nom de f/x=x².
SS4TI-82 Invité
Posté le : Jeu 20 Oct 2011, 20:52
Merci à Sandro et made2kill pour leur réponse très rapide.
Mais maintenant J'ai une erreur INDEFINI sur "Str8" dit "Chaîne8" sur Ma TI.
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Jeu 20 Oct 2011, 21:11
C'est un petit problème du à la méthode de la chaîne pour enregistrer un meilleur score : on ne peut pas l'initialiser depuis le programme sous peine de perdre les meilleurs scores.
Il te faut donc faire, sur l'écran de calcul, "????? -> Chaîne8 (si tu veux, tu peut remplacer les points d'intérogations par autre chose). Ensuite, tant que tu ne suprime pas Chaîne8, tu n'aura pas à refaire la manip.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 36
Inscrit le : Dim 16 Oct 2011, 19:14
Posté le : Jeu 20 Oct 2011, 21:58
J'ai testé le 1er programme sur ma Ti82Stats.fr et le jeu marche mais le "O" avance indéfiniement sans obstacles
SS4TI-82 Invité
Posté le : Jeu 20 Oct 2011, 22:07
Citer : sandro
C'est un petit problème du à la méthode de la chaîne pour enregistrer un meilleur score : on ne peut pas l'initialiser depuis le programme sous peine de perdre les meilleurs scores.
Il te faut donc faire, sur l'écran de calcul, "????? -> Chaîne8 (si tu veux, tu peut remplacer les points d'intérogations par autre chose). Ensuite, tant que tu ne suprime pas Chaîne8, tu n'aura pas à refaire la manip.
Autorisation : Membre
Nb de messages : 36
Inscrit le : Dim 16 Oct 2011, 19:14
Posté le : Ven 21 Oct 2011, 19:18
Eh bien j'avais bien inversé le 7 et le E ^^'
Maintenant, il n'y a vraiment plus aucun obstacle alors qu'avant il n'y en avait que sur le long du bord gauche ...
J'ai bien reverifié le prog mais rien ne change
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Ven 21 Oct 2011, 19:20
sa c'est pas normal... Revérifie bien tout le programme ligne par ligne parce que pour les autres sa marche alors sa doit être une erreur de frappe. Ou sinon prend le dernier programme et regarde si tu as le même problème
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Sam 22 Oct 2011, 18:08
Et aussi, pour les goto, met des lettres à la place des nombres a deux chiffres sa prend moins de place Et il y a plein de guillemets que tu peut enlever
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Lun 24 Oct 2011, 15:54
J'ai regardé ton code de plus près made2kill et j'ai remarqué quelques améliorations que l'on peut effectuer. Je vous poste donc le programme amélioré.
Code
:EffEcr
:Lbl 9
:Menu("VOITURE","JOUER",J,"SCORES",S,"QUITTER",Q
:Lbl J
:1 -> dim(LRA
:For(A,1,16
:Output(1,A,"*
:Output(8,A,"*
:If non(PartDéc(.5A:Output(.5A,1,"*
:If non(PartDéc(.5A:Output(.5A,16,"*
:End
:Output(3,2,"VOITURE BY SNAP
:Output(5,2,"MEILLEUR SCORE
:Output(6,8,LRA(1
:Pause
:EffEcr
:Disp "","","","","","","
:1 -> A
:1 -> B
:1 -> C
:1 -> D
:1 -> E
:EffVar S8 -> X
:Repeat X >= A et X <= A+1
:CodeTouche -> K
:Min(16,Max(1,X+(K=26)-(K=24 -> X
:Output(3,X,"0
:S+1 -> S
:B -> A
:C -> B
:D -> C
:E -> D
:EntAléat(1,15 -> E
:Output(7,E,"{}
:Disp "
:End
:EffEcr
:Disp "PERDU! SCORE :",S
:If S>LRA(1 : Then
:S -> LRA(1
:Pause "RECORD BATTU!!
:EffEcr
:Input "ENTER NAME",Str8
:Stop
:Lbl S
:Menu("SCORES","SEE HIGH SCORE",5,"RESET HIGH SCORE",4,"BACK",9
:Lbl 5
:Disp "HIGH SCORE:",LRA(1),"BY:
:Pause Str8
:Goto 9
:Lbl 4
:Menu("ETES-VOUS SUR?","OUI",8,"NON",9
:Lbl 8
:AxesOff
:FnOff
:ClrDraw
:ZStandard
:Horizontal -1
:Horizontal 1
:Shade(-1,1
:0 -> LRA(1
:Disp "HIGH SCORE
:Pause "EFFACE
:Goto 9
:Lbl Q
:Effecr
:Output(1,1,"
PS : tu n'avais pas mis de titre à ton menu. Normalement il n'y a plus d'erreur.
Autorisation : Membre
Nb de messages : 9
Inscrit le : Jeu 17 Mar 2011, 19:01
Posté le : Dim 06 Nov 2011, 23:48
Mais a ce moment la on n'avais pas encore réussi a écrire le "Réel" surligné au milieu de l'écran et sans savoir que tout allais être effacé on a même pas pris de notes sur le timer mais y doit avoir moyen d'en refaire un quand même
Il y a pas longtemps je me suis souvenu d'un jeu que j'avais eu en seconde et j'avais toujours essayé de le refaire mais je n'y arrivais jamais. (Et je pouvais pas voir l'autre jeu car il était bloqué par protect 
). Et aujourd'hui Je l'ai fait! J'y suis arrivé! Alors je vous le poste.
mais je vais voir si je peut arriver a le mettre à à peu près la meme vitesse
