| aide pour un jeu de vitesse |
| Auteur |
Message |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Mer 16 Nov 2011, 17:50
|
|
 |
Bonjour à tous
j'ai créer se sujet pour savoir si vous pouviez m'aider à propos d'un jeu que je voudrai créer.
le principe est d'appuyer le plus de fois sur entrer avant qu'une barre constitué de zéro soit vide.
MERCI d'avance !! 
|
 |
  |
| |
The K
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Mer 16 Nov 2011, 17:57
|
|
|
Si on peut t'aider : ça, oui 
Après, tu veux qu'on te réponde à des questions concernant l'élaboration de ce programme ou ... te le faire ?
----------------------
La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Mer 16 Nov 2011, 18:03
|
|
|
pas me le faire mais m'aider a le commencer car je débute tout juste en TIbasic
|
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Mer 16 Nov 2011, 18:04
|
|
|
pas me le faire mais m'aider a le commencer car je débute tout juste en TIbasic
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Mer 16 Nov 2011, 18:09
|
|
|
| Code | :0 -> A // nombre de foix où l'on a appuyé sur entrer
:170 -> B // 10 * nombre de 0 encore affiché + 10 (le plus 10
est nécéssaire pour que le premier 0 parte)
:EffEcr //on efface l'écran
:Disp "0000000000000000 //16 zéros
:While B [différend de] 0 // tant que le temps n'est pas écoulé entièrement
B-1 -> B //en enlève 1 en "temps"
:If getkey=105 // si on appuye sur entrer:Then
:A+1 -> A // on augmente de un le nombre d'apuys sur entrer
:Output(5,8,A //affiche le score actuel au milieu de l'écan environt
:End
:If 0=partDec(B/10 //si B est divisible par 10 (on efface un 0 tout les dix coups)
:Then
:Output(1,B/10," " //on efface le 0 en question
:End
:End |
EDIT : désolé, je n'ai vu que trop tard tes post intermédiaires, à toi de voir si tu veut lire ou non
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Mer 16 Nov 2011, 18:14
|
|
|
merci à toi sandro c super sympa je le teste et je te dis si il marche bien
enfin si il fonctionne bien! 
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Mer 16 Nov 2011, 18:19
|
|
|
si j'ai pas fait d'erreures de recopiage, il marche (je l'ai fait sur émulateur et testé).
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Mer 16 Nov 2011, 18:19
|
|
|
il fonctionne super bien merci mais comment est-ce que je pourrait augmenter le temps avant que les 0 ne soient finies ??
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Mer 16 Nov 2011, 18:25
|
|
|
Méthode 1 (plus efficace) :
-Tu remplace 170 par 17*n (n tu le choisit comme tu veux mais entier ; plus n est grand, plus t'a de temps
-Tu remplace ":If 0=partDec(B/10" par ":If 0=partDec(B/n"
-Tu remplace :Output(1,B/10," " par :Output(1,B/n," "
Méthode 2 (moins efficace car un appuie trop court et au mauvais moment peut être ignioré):
rajoute, juste avant le dernier End ceci :
| Code | :For(C,1,n // tu remplace n par un entier (plus n est grand, plus
ça ralentit)
:End |
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Mer 16 Nov 2011, 18:30
|
|
|
merci pour les améliorations
un ami viens de m'en demandé une, il m'a demandé s'il été possible de faire monter la barre des zéro au bout de N coup 
merci !
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Mer 16 Nov 2011, 18:39
|
|
|
Rajoute juste avant le 1er End (donc dans le premier If) :
| Code | :If 0=partDec(A/m //m est un enier ; tout les m appuis on gagne du temps
:Then
:B+p -> B //p est un entier
:End |
et transphorme ":If 0=partDec(B/10 " en ":If B [infférieur ou égal] 15 et 0=partDec(B/10 "
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Mer 16 Nov 2011, 18:48
|
|
|
je ne comprend pas ca ?
| Citer : sandro |
et transphorme ":If 0=partDec(B/10 " en ":If B [infférieur ou égal] 15 et 0=partDec(B/10 " |
esk'il faut mettre le et ??
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Mer 16 Nov 2011, 19:07
|
|
|
Oui, il faut mettre le "et" : tus le trouve dans test/logique : [2nde][maths][droite][1]
Sandro
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Mer 16 Nov 2011, 19:49
|
|
|
ok merci et comment pourrai-je rajouter un système qui enregistre les 3 meilleurs scores ??
|
| |
|
| |
snap
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
|
Posté le : Mer 16 Nov 2011, 20:56
|
|
|
Je pense que je ne le dirais jamais assez mais :
Peut s'écrire :
Sa fait un octet de moins c'est énorme! XD
----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Mer 16 Nov 2011, 21:11
|
|
|
Si tu veux faire des économies d'octets fait le bien:
Peut s'écrire aussi
Et là c'est une économie de 2 octets. 
Sangohan38
|
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Jeu 17 Nov 2011, 21:31
|
|
|
J'ai un problème, ce que tu me dis de mettre sandro ne marche pas, la barre des 0 ne descend pas ??
comment pourraije faire ?
et comment rajouter un menu avec deux modes, un rapide et un lent plus un système qui enregistre les 3 meilleurs scores ??
merci ! 
|
| |
|
| |
p4nzer
Invité
|
Posté le : Ven 18 Nov 2011, 23:40
|
|
|
:Lbl A
:EffEcran
:Menu("****************","JOUER",B,"SCORES",C,"QUITTER",D
:Lbl B
3->dim(L5
:0 -> A // nombre de foix où l'on a appuyé sur entrer
:170 -> B // 10 * nombre de 0 encore affiché + 10 (le plus 10
est nécéssaire pour que le premier 0 parte)
:EffEcr //on efface l'écran
:Disp "0000000000000000 //16 zéros
:While B [différend de] 0 // tant que le temps n'est pas écoulé entièrement
B-1 -> B //en enlève 1 en "temps"
:If getkey=105 // si on appuye sur entrer:Then
:A+1 -> A // on augmente de un le nombre d'apuys sur entrer
:Output(5,8,A //affiche le score actuel au milieu de l'écan environt
:End
:If 0=partDec(B/10 //si B est divisible par 10 (on efface un 0 tout les dix coups)
:Then
:Output(1,B/10," " //on efface le 0 en question
:End
:End
:If A > L5(1)
:Then
:A->L5(1)
:EffEcran
:Output(4,4,"MEILLEUR
:Output(5,4,"SCORE
:Output(5,11,A
:pause
:End
:If A > L5(2)
:A->L5(2)
:Output(4,4,"DEUXIEME
:Output(5,4,"MEILLEUR
:Output(6,4,"SCORE
:Output(6,11,A
:pause
:End
:If A > L5(3)
:A->L5(3)
:Output(4,4,"TROISIEME
:Output(5,4,"MEILLEUR
:Output(6,4,"SCORE
:Output(6,11,A
:pause
:End
:Gotto A
:Lbl B
:EffEcran
:Output(1,1,"1ER :
:Output(2,1,"2EME :
:Output(3,1,"3EME :
:Output(1,7,L5(1)
:Output(2,8,L5(2)
:Output(3,8,L5(3)
:Pause
:Gotto A
:Lbl D
:EffEcran
:Output(1,1," "
Voila, j'ai mis en gras ce que j'ai rajouté, c'est-a-dire :
-Un menu
-Les 3 meilleurs scores
Je n'ai pas encore regardé pour la barre des 0, je le ferais plus tard si tu veux.
Je n'ai pas testé donc dit moi si ça fonctionne stp.
|
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Sam 19 Nov 2011, 10:38
|
|
|
merci a toi je te dis se soir si sa marche !!
|
| |
|
| |
The K
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Sam 19 Nov 2011, 11:25
|
|
|
C'est pas une mauvaise idée, mais il y a clairement de quoi raccourcir un peu. En plus, il y a une erreur dans les labels 
| Code |
Lbl A
EffEcr
3->dim(L5
Menu("****************","JOUER",B,"SCORES",C,"QUITTER",D
Lbl B
EffVar A
170->B
EffEcr
Disp "0000000000000000
While B
B-1->B
If CodeTouche=105:Then
A+1->A
Output(5,8,A
End
If non(partDec(.1B
Output(1,.1B," //Un espace
End
A->L5(4
TriDécroi(L5
Goto A
Lbl C
EffEcr
Output(1,1,"1ER :
Output(2,1,"2EME :
Output(3,1,"3EME :
Output(1,7,L5(1)
Output(2,8,L5(2)
Output(3,8,L5(3)
Pause
Goto A
Lbl D
EffEcr
Output(1,1," //un espace
|
Voila voila je pense que cette version sera plus exacte, et mangera moins d'octets, par contre, les 3 meilleurs scores ne seront pas affichés après la partie.
Mais pour la barre des zéros euh, comme ça le programme me parait correct ^^' Une erreur de recopiage peut etre ?
EDIT : j'ai modifié ce que Linkakro a proposé quelque posts plus loin
----------------------
La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
p4nzer
Invité
|
Posté le : Sam 19 Nov 2011, 12:22
|
|
|
Ah oui effectivement, erreur de label : LIGNE 48 ===> Remplacer Lbl B par Lbl C
Je débute dans la prog sur TI, c'est pour ça que l'optimisation n'est pas géniale 
Par contre j'ai regardé pour la barre des 0, je e vois pas d'erreurs non plus...
|
| |
|
| |
The K
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Sam 19 Nov 2011, 13:09
|
|
|
Il y avait aussi une autre petite erreur : dans ton programme, si le mailleur score était battu, il remplissait L5(1, L5(2, et L5(3. Donc ça n'aurait fait plus qu'afficher le premier score, a la place des 3 premiers (petit problème que j'ai aussi corrigé !)
----------------------
La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
| |
|
| |
p4nzer
Invité
|
Posté le : Sam 19 Nov 2011, 14:20
|
|
|
Ah oui effectivement ! Pfou j'ai encore du travail avant de faire quelque chose de correct moi... Merci pour ta correction.
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
p4nzer
Invité
|
Posté le : Sam 19 Nov 2011, 14:30
|
|
|
Enfaite j'ai encore remarqué une "erreur" qui n'en est pas vraiment une, mais quand le meilleur score est battu, il faut que l'ancien meilleur score devienne le 2eme meilleur et que le 2eme devienne le 3eme;
Je propose :
:Lbl A
:EffEcr
:3->dim(L5
:Menu("****************","JOUER",B,"SCORES",C,"QUITTER",D
:EffVar A
:170->B
:EffEcr
:Disp "0000000000000000
:While B
:B-1->B
:If CodeTouche=105:Then
:A+1->A
:Output(5,8,A
:End
:If non(partDec(.1B
:Output(1,.1B," //Un espace
:End
:If A>L5(1:Then
:L5(2)->L5(3
:L5(1)->L5(2
:A->L5(1
:Else
:If A>L5(2:Then
:L5(2)->L5(3
:A->L5(2
:Else
:If A>L5(3
:A->L5(3
:End
:End
:Goto A
:Lbl C
:EffEcr
:Output(1,1,"1ER :
:Output(2,1,"2EME :
:Output(3,1,"3EME :
:Output(1,7,L5(1)
:Output(2,8,L5(2)
:Output(3,8,L5(3)
:Pause
:Goto A
:Lbl D
:EffEcr
:Output(1,1," //un espace
En gras ce que j'ai modifié
|
| |
|
| |
The K
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Sam 19 Nov 2011, 14:50
|
|
|
S'pas faux.
Mais quand tu metsdu code, mets le en balise code stp.
----------------------
La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
| |
|
| |
p4nzer
Invité
|
Posté le : Sam 19 Nov 2011, 14:58
|
|
|
Je ne mettais pas les balises codes car je ne peux pas mettre en gras ce que j'ai modifié, mais je le ferais la prochaine fois.
|
| |
|
| |
The K
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Sam 19 Nov 2011, 15:24
|
|
|
Eh bien alors mets des trucs comme :
| Code |
Disp "CECI <-- modifié ici
|
----------------------
La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
| |
|
| |
p4nzer
Invité
|
Posté le : Sam 19 Nov 2011, 15:37
|
|
|
ça marche, pas de problème, c'est vrai que c'est beaucoup plus agréable à la lecture.
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Sam 19 Nov 2011, 17:01
|
|
|
| Code | If A>L5(1:Then
A->L5(1
Else
If A>L5(2:Then
A->L5(2
Else
If A>L5(3
A->L5(3
End
End
Ainsi que toutes vos vraiantes bizzarres
===== se remplace par
A->L5(4
TriDécroi(L5 |
EDIT : j'ai remplacé Tricroi par TriDécroi
Je présume sans test que les zéros ne descendent qu'à partir des 16 dernières pulsations quand on augmente la variable de temps.
Cela expliquerait l'affirmation selon laquelle les zéros ne descenderaient pas.
----------------------
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 |
| |
|
| |
The K
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Sam 19 Nov 2011, 17:38
|
|
|
TriCroi ... ? Ah ben je connaissais pas ...
J'vais voir dans ma signature 
EDIT : ben j'suis allé voir et apparement il faut deux listes pour que ça marche. T'peux m'expliquer Linka svp 
----------------------
La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Sam 19 Nov 2011, 19:09
|
|
|
TriCroi(L1) trie la liste L1.
TriCroi(L1,L2,L3 ... ) trie toutes les listes enfonction de L1.
Immagine que L1,L2,L3 soient côte à côte dans un tableau vertical.
Cette fonction trie chaque ligne de telle manière à ce que la première colonne soit croissante et indépendamment des autres.
J'ai corrigé mon précédent message avec TriDécroi.
----------------------
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 |
| |
|
| |
The K
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Sam 19 Nov 2011, 19:35
|
|
|
Hum ... ouais !
J'ai compris ! Merci linka
----------------------
La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
| |
|
| |
Polymorph
Autorisation : Membre
Nb de messages : 118
Inscrit le : Dim 13 Nov 2011, 14:26
|
Posté le : Dim 20 Nov 2011, 13:20
|
|
|
@Panzer : Attention avec ton utilisation de L5 pour les meilleurs scores ! Il suffit que l'utilisateur s'en serve pour tous les perdre :<
----------------------
| Citer | | Le temps est une variable dans une boucle infinie, qu'on ne cesse d'incrémenter. |
Polymorph, 23/11/2011 |
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Dim 20 Nov 2011, 13:27
|
|
|
désolé mé je ne peux pas jouer, ca me met erreur ettiquette ???
|
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Dim 20 Nov 2011, 14:04
|
|
|
pouvez vous poster le *.82p merci
|
| |
|
| |
The K
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Dim 20 Nov 2011, 14:33
|
|
|
Erreur étiquette ?
Si tu as recopié la première version de Panzer, il y a en effet une erreur de label, qui est corrigée dans celle que j'ai posté après.
----------------------
La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Dim 20 Nov 2011, 14:40
|
|
|
c'est sur la tiene ke sa met erreur ettiquette !
|
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Dim 20 Nov 2011, 15:05
|
|
|
| Code | | Texte en sous-format code |
|
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Dim 20 Nov 2011, 15:18
|
|
|
remplacez sa
| Code |
EffVar A
170->B
EffEcr
Disp "0000000000000000
While B
B-1->B
If CodeTouche=105:Then
A+1->A
Output(5,8,A
End
If non(partDec(.1B
Output(1,.1B," //Un espace
End
|
par sa
| Code |
Lbl B
EffVar A
17*10->B
EffEcr
disp "0000000000000000"
While B
B-1->B
if codetouche=105
then
A+1->A
Output(5,8,A
End
If B>15 et non(partDéc(B/20
Output(1,B/20," "
End |
|
| |
|
| |
Polymorph
Autorisation : Membre
Nb de messages : 118
Inscrit le : Dim 13 Nov 2011, 14:26
|
Posté le : Dim 20 Nov 2011, 15:22
|
|
|
C'est quoi l'intérêt?
----------------------
| Citer | | Le temps est une variable dans une boucle infinie, qu'on ne cesse d'incrémenter. |
Polymorph, 23/11/2011 |
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Dim 20 Nov 2011, 15:26
|
|
|
le prgm de The k fonctionne bien mé on ne peut pas jouer, tape le et essaye tu verra bien !!
si y marche pas modifie ce ke G mis !!
|
| |
|
| |
The K
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Dim 20 Nov 2011, 15:39
|
|
|
Ah tout juste, j'avais oublié un label B juste après le menu ... mais c'était très facilement réparable ... euh sinon, mon prgm (qui n'est pas de moi d'ailleurs !) ne marche pas ? Ohoo ... bizarre 
----------------------
La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
| |
|
| |
pauloTIhack 82
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mer 16 Nov 2011, 17:42
|
Posté le : Dim 20 Nov 2011, 15:43
|
|
|
sur ton prgm tt marché a part la fonction JOUER du menu !
|
| |
|
| |
The K
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Dim 20 Nov 2011, 15:46
|
|
|
Je viens de corriger ça :
| Citer | | j'avais oublié un label B juste après le menu |
...
----------------------
La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
| |
|
| |
