| programme de lancer de dés |
| Auteur |
Message |
royku
Invité
|
Posté le : Mer 10 Déc 2008, 19:03
|
|
 |
bonjour j'ai commencer la programmation sur ma TI-82 stats fr aujourd'hui et j'ai créer un simulateur de lancer de dés à faces ( sa existe et sa change rien car si on veut un dés a 6 face on remplace le 4 par un 6 et pis c'est réussi ) :
PROGRAM: D4
:Disp "LANCER!"
:Disp "SCORE:",A
:entAléat(1,4)->A
:PAUSE
Ce programme marche mais j'ai voulu en créer un autre avec un menu ( lancer de dés de 100 ) et il ne marche pas , pourquoi???  Aider moi à trouver une solutions a ce problème car moi j'ai tous essayer et sa marche pas , merci d'avance !  :
PROGRAM:D100
:Menu( "LANCER","JOUER",1,"quitter",2)
:Lbl 1
:Goto A
:Lbl 2
:Stop
:Disp "SCORE",A
:entAléat(1,100)->A
|
| |
  |
| |
royku
Autorisation : Membre
Nb de messages : 15
Inscrit le : Mer 10 Déc 2008, 18:43
|
Posté le : Mer 10 Déc 2008, 19:16
|
|
|
 le problème est résolut ' j'ai eu un flash et j'ai essayer et sa marche .
Programme corriger :
| Code | [couleur=#FFFFFF]PROGRAM:D100
:Menu( "JOUER","LANCER",1,"quitter",2)
:Lbl 1
:Goto 3
:Lbl 2
:Stop
:Lbl 3
:Disp "SCORE",A
:entAléat(1,100)->A[/couleur] |
Et voila , plutard je rajouterai dans le menu la possibilité de choisir quel type de dés on veut lancer , mais plus tard !! 
|
 |
|
| |
royku
Autorisation : Membre
Nb de messages : 15
Inscrit le : Mer 10 Déc 2008, 18:43
|
Posté le : Jeu 11 Déc 2008, 13:42
|
|
|
 j'ai l'impression de parler tout seul sur ce forum , mais bon !
voila le même programme ( encore ! ) retravailler avec un message de lancement et la possibilité de choisir D 100 ou D20 :
| Code | [couleur=#FFFFFF]PROGRAM:D100
:Disp "PROGRAMME DE "
:Disp " simulation de "
:Disp "LANCER DE DES "
:PAUSE
:Lbl B
:Menu( "JOUER","D100",1,"D20",2,"QUITTER",8)
:Lbl 1
:Goto 9
:Lbl 8
:Stop
:Lbl 9
:Disp "LANCER!"
:Disp "SCORE:",A
:entAléat(1,100)->A
:Pause
:Goto B
:Lbl 2
:Disp "LANCER !"
:Disp "SCORE:",A
:entAléat(1,20)->A
:Pause
:Goto B[/couleur] |
Voila et n'ésitez pas a laisser des traces de votre passage , please ! 
|
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Jeu 11 Déc 2008, 13:53
|
|
|
Pas la peine de t'alarmer, tu l'as posté hier seulement !
De plus évite d'écrire en rouge, c'est dure à lire, et ça donne envie de changer de sujet. Pense également à utiliser les balises code pour ton programme.
Sinon c'est bien de t'entraîner à programmer cependant l'utilité de ton programme est limitée. Je préfère le faire moi-même à l'aide de entAléat().
Si c'est pour ce qui ne connaissent pas cette commande, rend ton programme plus souple, plus util.
Par exemple
| Code | PROGRAM:DEE
Input "Dee(",Chaine1
expr("{" + Chaine1->L1
If 2=dim(L1
1->L1(3
Disp entAléat(L1(1),L1(2,L1(3 |
Pour utiliser ce programme il faut rentré, séparés par des virgules, 2 ou 3 paramètre(le 3ième concerne le nombre de dées à lancer). Pour lancer trois dées de 10 à 100 par exemple tu fais Dee(10,100,3
C'est un boût d'un programme que j'ai fais, en moins bien mais globalement c'est le minimum pour que ça marche.
Si ça paraît trop compliqué pour toi, essaye au moins de demander un dée de combien l'utilisateur veut-il lancer.
|
| |
|
| |
royku
Autorisation : Membre
Nb de messages : 15
Inscrit le : Mer 10 Déc 2008, 18:43
|
Posté le : Jeu 11 Déc 2008, 13:56
|
|
|
merci pour les conseils mais enfaite je ne connaissais pas comment marcher le forum : le truc du code enfaite 
|
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Jeu 11 Déc 2008, 14:10
|
|
|
Tu as essayé mon code ?
Sinon arrête d'écrire en rouge s'il te plaît, c'est vraiment énervant.
|
| |
|
| |
royku
Autorisation : Membre
Nb de messages : 15
Inscrit le : Mer 10 Déc 2008, 18:43
|
Posté le : Jeu 11 Déc 2008, 14:51
|
|
|
c'est : Chaine1
comment on peut l'écrire ??? 
|
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Jeu 11 Déc 2008, 15:34
|
|
|
Tu le trouve dans [VARS] + [7]
Mais pense à lire l'en tête avant de poster, un sujet liste l'ensemble des fonctions avec leurs emplacements.
Si tu bloques le catalogue contient la plupart des fonctions dans l'ordre alphabétique.
|
| |
|
| |
royku
Autorisation : Membre
Nb de messages : 15
Inscrit le : Mer 10 Déc 2008, 18:43
|
Posté le : Jeu 11 Déc 2008, 16:08
|
|
|
j'ai essayer et sa marche pas!!!!
|
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Jeu 11 Déc 2008, 16:39
|
|
|
Je l'ai recopié il n'y pas d'erreurs -_-'
Quelle type de problème est indiqué ?
|
| |
|
| |
royku
Autorisation : Membre
Nb de messages : 15
Inscrit le : Mer 10 Déc 2008, 18:43
|
Posté le : Jeu 11 Déc 2008, 16:39
|
|
|
HELP!!!!!!!!
voila j'ai fini mon programme mais , oups , il marche pas , il met : ERR:ARGUMENT et quand je fais voir le 8 se met a cligonter :
| Code | PROGRAM:D100
:Disp "PROGRAMME DE (ce 8)
:Disp " simulation de ||
:Disp "LANCER DE DES ||
:PAUSE ||
:Lbl B ||
:Menu( \/ "JOUER","D100",1,"D20",2,"D12",3,"D10",4,"D8",5,"D6",6,"D4",7,"QUITTER",8)
:Lbl 1
:Disp "LANCER!
:Disp "SCORE:",A
:entAléat(1,100)->A
:Pause
:Goto B
:Lbl 2
:Disp "LANCER !
:Disp "SCORE:",A
:entAléat(1,20)->A
:Pause
:Goto B
:Lbl 3
:Disp "LANCER !
:Disp "SCORE:",A
:entAléat(1,12)->A
:Pause
:Goto B
:Lbl 4
:Disp "LANCER !
:Disp "SCORE:",A
:entAléat(1,10)->A
:Pause
:Goto B
:Lbl 5
:Disp "LANCER !
:Disp "SCORE:",A
:entAléat(1,8)->A
:Pause
:Goto B
:Lbl 6
:Disp "LANCER !
:Disp "SCORE:",A
:entAléat(1,6)->A
:Pause
:Goto B
:Lbl 7
:Disp "LANCER !
:Disp "SCORE:",A
:entAléat(1,4)->A
:Pause
:Goto B
:Lbl 8
:Stop |
|
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Jeu 11 Déc 2008, 16:43
|
|
|
Voilà ce code à ta manière
| Code | Lbl M
ClrHome
Menu("DEE","LANCER",L,"QUITTER",Q
Lbl L
Input "De: ",D
Input "Combien: ",C
Pause entAléat(1,D,C
Goto M
Lbl Q
"
|
|
| |
|
| |
royku
Autorisation : Membre
Nb de messages : 15
Inscrit le : Mer 10 Déc 2008, 18:43
|
Posté le : Jeu 11 Déc 2008, 19:18
|
|
|
voila le programme finit et qui marche !!!!!!
| Code | PROGRAM:D100
:Disp "PROGRAMME DE
:Disp " simulation de
:Disp "LANCER DE DES
:PAUSE
:Lbl B
:Meni("JEU","LANCER",C,"SORTIR"
:Lbl C
:Menu( "JOUER","D100",1,"D20",2,"D12",3,"D10",4,"D8",5,"D6",6,"D4",7
:Lbl 1
:Disp "LANCER!
:entAléat(1,100)->A
:Disp "SCORE:",A
:Pause
:Goto B
:Lbl 2
:Disp "LANCER !
:entAléat(1,20)->A
:Disp "SCORE:",A
:Pause
:Goto B
:Lbl 3
:Disp "LANCER !
:entAléat(1,12)->A
:Disp "SCORE:",A
:Pause
:Goto B
:Lbl 4
:Disp "LANCER !
:entAléat(1,10)->A
:Disp "SCORE:",A
:Pause
:Goto B
:Lbl 5
:Disp "LANCER !
:entAléat(1,8)->A
:Disp "SCORE:",A
:Pause
:Goto B
:Lbl 6
:Disp "LANCER !
:entAléat(1,6)->A
:Disp "SCORE:",A
:Pause
:Goto B
:Lbl 7
:Disp "LANCER !
:entAléat(1,4)->A
:Disp "SCORE:",A
:Pause
:Goto B
:Lbl D
:Stop |
|
| |
|
| |
royku
Autorisation : Membre
Nb de messages : 15
Inscrit le : Mer 10 Déc 2008, 18:43
|
Posté le : Jeu 11 Déc 2008, 19:19
|
|
|
J'ai pas cette fonction :
|
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Jeu 11 Déc 2008, 19:26
|
|
|
Ton programme fonctionne, c'est bien (tu n'avais pas besoin de m'envoyer un mail en plus -_-'), mais il a besoin d'être rafraichit, il se répète beaucoup. Pense à le raccourcir !
Sinon j'ai une Ti en anglais, et l'habitude m'a fait écrire ClrHome au lieu de EffDessin.
|
| |
|
| |
royku
Autorisation : Membre
Nb de messages : 15
Inscrit le : Mer 10 Déc 2008, 18:43
|
Posté le : Jeu 11 Déc 2008, 20:16
|
|
|
ok , dans ce cas comment faire quelque chose du genre :
| Code | :Disp "SCORE:",A
:entAléat(1,B)->A ( ou la calculette me demande de choisir le nombre B )
( si je fais ): Input B (sa marche ? |
|
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Jeu 11 Déc 2008, 21:05
|
|
|
Oui mais dans le bon ordre ce serait mieux 
|
| |
|
| |
royku
Autorisation : Membre
Nb de messages : 15
Inscrit le : Mer 10 Déc 2008, 18:43
|
Posté le : Ven 12 Déc 2008, 8:29
|
|
|
bon voila le même système de programme mais avec possibilité de choisir n'importe quelle nombre de face au des avant de le lancer :
| Code | PROGRAM:DES
:Disp "PROGRAMME DE
:Disp " SIMULATION DE
:Disp "LANCER DE DES
:PAUSE
:Lbl 0
:Menu( "JEU","LANCER",1,"SORTIR",2
:Lbl1
:Disp"
:Disp"CHOISIR LE
:Disp"NOMBRE DE FACE
:Didp"DU DES .
:Input B
:Disp"SCORE:",A
:entAléat(1,B)->A
:Pause
:Goto0
:Lbl2
:Stop |
|
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Ven 12 Déc 2008, 13:45
|
|
|
Affiche le score après l'avoir calculé sinon ça ne peut pas fonctionner correctement.
|
| |
|
| |
royku
Autorisation : Membre
Nb de messages : 15
Inscrit le : Mer 10 Déc 2008, 18:43
|
Posté le : Ven 12 Déc 2008, 17:37
|
|
|
ok , voila c changé :
| Code | PROGRAM:DES
:Disp "PROGRAMME DE
:Disp " SIMULATION DE
:Disp "LANCER DE DES
:PAUSE
:Lbl 0
:Menu( "JEU","LANCER",1,"SORTIR",2,"AIDE",3
:Lbl1
:Disp"
:Disp"CHOISIR LE
:Disp"NOMBRE DE FACE
:Disp"DU DES .
:Input B
:entAléat(1,B)->A
:Disp"SCORE:",A
:Pause
:Goto0
:Lbl2
:Stop
:Lbl3
:Disp"
:Disp"EN FAISANT
:Dsip"LANCER : ON
:Disp"CHOISI LE NOMBRE
:Disp"DE FACE DU DES
:Disp" PUIS ON LE LANCE
:Pause
:Disp"
:Disp"EN FAISANT
:Disp"SORTIR : ON
:Disp"QUITTE LE PGR
:Pause
:Goto 0 |
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
royku
Autorisation : Membre
Nb de messages : 15
Inscrit le : Mer 10 Déc 2008, 18:43
|
Posté le : Ven 12 Déc 2008, 17:41
|
|
|
Si quelqu'un a une idée de programme très simple que je pourrais réalisé ( regardez par rapport aux programme que j'ai déjà fait ) , proposé le et j'essaierais de le réalisé!
|
| |
|
| |
kdj
Invité
|
Posté le : Dim 14 Déc 2008, 16:07
|
|
|
bonjour,
quelqu'un pourrait m'éclairer ?
Je voudrais inscrire "Ä" sur un programme mais j'ai beau chercher sur tout votre forum je n'ai pas trouver comment 
( je dispose d'une calculatrice TI-82 stats.fr )
merci d'avance
|
| |
|
| |
kdj
Invité
|
Posté le : Dim 14 Déc 2008, 16:19
|
|
|
désoler du double post, je voudrais savoir aussi pour "inString"
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
ToTo
Autorisation : Membre
Nb de messages : 104
Inscrit le : Ven 07 Nov 2008, 11:38
|
Posté le : Dim 14 Déc 2008, 17:14
|
|
|
Pour ton A je ne peut pas t'aidé car il correspond à un touche spécial et je ne la connais pas.
En revanche pour faire InString, fais [2nd], [0], [x²] et tu descends 7 fois.
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
kdj
Invité
|
Posté le : Dim 14 Déc 2008, 17:25
|
|
|
ok vraiment sympa, merci beaucoup.
pour ce qui est du Ä , je laisse au mebre du forum le temps de regarder mon post, je viens souvent sur ce forum donc je verais leurs réponses =)
voilà merci encore
|
| |
|
| |
