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 !:
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 !
Autorisation : Membre
Nb de messages : 891
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
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.
Autorisation : Membre
Nb de messages : 891
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.
Autorisation : Membre
Nb de messages : 891
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.
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
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