Black jack sur ti 82 stats (forum)

Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 8426
Réponses : 25
Type : discussion
Etat : réponses autorisées

Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Black jack sur ti 82 stats

craminou le 16/04/2006 à 21:21

comme je me faisai chier en cours ( un pe comme dabitude a vrai dire

) g u l'idée de créer black jack sur ma ti 82 stats . en principe je suis pa tres fort mé bon la g réussi

... Sa completera le jeu de scale ( machine a sous ) é je suis en train de fer 1 jeux de dé dt le but serai de faire les meme figures qu'au pocker mé bon la je chome un pa alor sa avance pa

enfin voila
je vous mé le code mé comme g q'1 ti 82 stats je garanti pas ke sa marche sur la 82 pa stats ... qqn pourrai me le dire svp ??

Code

:lbl C 

:10ù (  ) S

:14ù (  ) N

:clrhome

:ouput(5,4,"black jack!

:pause

:clrhome

:ouput(1,1,"fais ta fortune

:pause

:clrhome

:ouput(1,1,"...

:pause

:clrhome

:ouput(1,1,"ou ta ruine!

:pause

:clrhome

:menu("menu","regles",A,"jeu",B

:lblA

:ouput(1,1,"on distribue 2 cartes (1er et 2nd chiffre) dont on calcule le total (3ème chiffre)

:pause

:clrhome

:ouput(1,1,"vous pouvez alors rajouter jusqu'a 5 cartes (sachant que les chiffres sont les cartes dans l'ordre ou elles sont tiré et le dernier chiffre est le total((*****je suis pa sur ke sa rentre dc si sa rentre pa refaite 1 ouput car g improviser pr ke se soi + clair ))

:pause

:clrhome

:ouput(1,1,"le gagant est celui ki est le plus proche de 21 sans toute fois le depasser,sinon vous avez forcemen perdu!!

:pause 

:clr 

:home 

:goto C

:lbl B

:int (rand*10+1)ù (  ) A

:int (rand*10+1)ù (  ) B

:A+Bù (  ) X

:disp A

:disp B

:disp X

:pause

:clrhome

:menu("choix","rajouter",2,"s'arreter",1

:lbl 2

:int (rand*10+1)ù (  ) C

:X+Cù (  ) X

:disp A

:disp B

:disp C

:disp X

:pause

:clrhome

:if X>=21

:then 

:goto 1

:end

:menu("choix","rajouter",3,"s'arreter",1

:lbl 3

:int (rand*10+1)ù (  ) D

:X+Dù (  ) X

:disp A

:disp B

:disp C

:disp D

:disp X

:pause

:clrhome

:if X>=21

:then

:goto 1

:end 

:menu("choix","rajouter",4,"s'arreter",1

:lbl 4

:int (rand*10+1)ù (  ) E

:X+Eù (  ) X

:disp A

:disp B

:disp C

:disp D

:disp E

:disp X

:pause

:clrhome

:goto 1

:lbl 1

:int (rand*10+1)ù (  ) A

:int (rand*10+1)ù (  ) B

:A+Bù (  ) Y

:disp A

:disp B

:disp Y

:pause

:clrhome

:if Y>=N

:then

:goto E

:end

:int (rand*10+1)ù (  ) C

:Y+Cù (  ) Y

:clrhome

:disp A

:disp B

:disp C

:disp Y

:pause

:clrhome

:if Y>=N

:then

:goto E

:end

:int (rand*10+1)ù (  ) D

:Y+Dù (  ) Y

:clrhome

:disp A

:disp B

:disp C

:disp D

:disp Y

:pause

:clrhome

:if Y>=N

:then 

:goto E

:end

:int (rand*10+1)ù (  ) E

:Y+Eù (  ) Y

:clrhome

:disp A

:disp B

:disp C

:disp D

:disp E

:disp Y

:pause

:clrhome

:goto E

:lbl E

:if X>=22

:then 

:disp "perdu

:S-1ù (  ) S

:disp "somme=

:disp S

:pause

:clrhome

:end

:if X<=21 and Y>=22

:then

:disp "gagner

:S+1ù (  ) S

:disp "somme=

:disp S

:pause 

:clrhome

:end

:if X<=21 and Y<=21 and X<Y

:then

:disp "perdu

:S-1ù (  ) S

:disp "somme=

:disp S

:pause

:clrhome

:end

:if X<=21 and Y<=21 and X>Y

:then 

:disp "gagner

:S+1ù (  ) S

:disp "somme=

:disp S

:pause

:clrhome

:end

:if x<=21 and Y<=21 and X=Y

:then

:disp "egalité

:S+0ù (  ) S ((*****je cpa si cette ligne est necessaire,a vs de juger ou de metre Sù (  ) S)) 

:disp "somme=

:disp S

:pause 

:clrhome

:end

:if S=0

:then 

:disp "somme=

:disp S

:pause

:clrhome

:disp "tu est ruiné !!!

:goto C

:end 

:if S=20

:then

:ouput (1,1,"tu gagne trop!tu doit changer d'adversaire!

:pause

:clrhome

:18ù (  ) N

:end

:if S=40

:then

:ouput (1,1,"tu gagne encore?? alors tu doit rechanger d'adversaire!!

:16ù (  ) N

:end

:goto B

voila

amuzez vs bien ( je c ki a 1 bug : si on passe 20 et kon retombe a 20 ol marke la meme frase meme si en fet on vien de perdre mé en fet on change pa d'adversaire )

a ki fera 1 meilleur simulateur ke le mien ..

A par sa g commencer 1 je d'échec a 2 joueur (sans simulateur )mé il me fo + de 56 variable or g deja essayer a' , a1 , aa ... mé sa marche pa

qqn peut m'aider svp ??

ratuss le 17/04/2006 à 08:23

Utilise des listes (tu en as 6 en tout)

Code

6=>Dim L1      'Tu definis la taille de la liste



6=>L1(1)

7=>L1(3)

6=>L1(4)

8=>L1(5)

6=>L1(6)

1=>L1(7)

Disp L1

(L1) se trouve sur le pavé numérique, lorsque tu met 2nde

craminou le 18/04/2006 à 21:18

ok meci ratus ... mais tu peut mettre combien de variable par liste ????

ps : tu m'enerve attjour connaitre mon IP

webmaster le 18/04/2006 à 21:26

En fait, celà depend de la mémoire disponible...

@+ Le Webmaster

PS : environ une centaine

craminou le 18/04/2006 à 21:34

ok meci bcb webmaster .
ps : qqn peut il me dire si mon jeu marche sur d'otre calculette ke sur ma ti-82 stats svp

ratuss le 19/04/2006 à 07:10

PS : environ une centaine

Oui, sur la ti 82 en tout cas on peut en mettre maximum 99

craminou le 19/04/2006 à 22:03

ok meci mé tu pe rééxpliker mieu stp ????

craminou le 19/04/2006 à 22:08

pr continuer la séri casino g fé 1 machine a ss sympa ..
pardon a scale ki en avé déja fé 1 mé bon ..
se sra a vs de choisir
je vs le mé demin car la g pa tro le ten ..

craminou le 20/04/2006 à 22:05

chose promie chose due : le voila
j'ai ossi créé un programme de liaison : vous etes un bonhomes qui se balade dans un casino et vious pouvez jouer a se que vous voulez .. mais comme il est pas fini je vous le met pas ...

a vous d'inventer..

je le mettrai plus tard
bon voila le code

Code

{:25ù (  ) P}

:lbl 0

:menu(''mise'','' 1'',6,''2'',7,''3'',8,''4'',9,''5'',10,''quitter'',13

:lbl 6

:1ù (  ) M

:goto 11

:lbl 7

:2ù (  ) M

:goto11

:lbl 8

:3ù (  ) M

:goto 11

:lbl 9

:4ù (  ) M

:goto 11

:lbl 10

:5ù (  ) M

:goto 11

:lbl 11

:P-Mù (  ) P

:ouput(1,1,''------------

:ouput(1,14,P

:ouput( 2,1,''!               !

:ouput( 3,1,''!               !

:ouput( 4,1,''<   ><   ><   >!

:ouput( 5,1,''!               !

:ouput( 6,1,''!               !

:ouput( 7,1,''!               !

:ouput( 8,1,''----------------

:int(rand *1000)ù (  ) A

:int(rand *1000)ù (  ) B 

:int(rand *1000)ù (  ) C

:if A<600

:then 

1ù (  ) A

:goto   1

:end

:if A<900

:then  

:2ù (  ) A

:goto   1

:end

:if A<=1000

:then 

:3ù (  ) A

:goto   1

:lbl  1

:if B<600

:then 

:1ù (  ) B

:goto   2

:end

:if B<900

:then 

:2ù (  ) B

:goto   2

:end

:if B<=1000

:then 

:3ù (  ) B

:goto   2

:lbl 2

:if C<600

:then 

:1ù (  ) C

:goto  3

:end

: if C<900

:then 

2ù (  ) C

:goto  3

:end

: if C<=1000

:then 

:5ù (  ) C

:goto   3

:end

:lbl  3

:if A=1

:then 

:ouput( 4,2,''lem

:end

:if A=2

:then 

:ouput( 4,2,''bar

:end

:if A=3

:then 

:ouput(4,1,''*7*

:end

:if B=1

:then 

:ouput( 4,7,''lem

:end

:if B=2

:then 

:ouput( 4,7,''bar

:end

:if B=3

:then 

:ouput( 4,7,''*7*

:end 

:if C=1

:then 

:ouput( 4,12,''lem

:end

:if C=2

:then 

:ouput( 4,12,''bar

:end

:if C=3

:then 

:ouput( 4,12,''*7*

:end

:pause

:clrhome

:if A=1 and B=1 and C=1

:then 

:P+10*Mù (  ) P

:disp ''lemon   ()

:disp ''gagner:'',10*M

:disp ''somme='',P

:end 

:if A=2 and B=2 and C=2

:then 

:P+25*Mù (  ) P

:disp ''bar!

:disp ''gagner:'',25*M

:disp ''somme='',P

:end

:if A=3 and B=3 and C=3

:then 

:P+100Mù (  ) P 

:disp ''7!!!

:disp ''gagner:'',100*M

:disp ''somme='',P

:end

:if P=0

:then 

:disp ''perdu!

:stop

:end

:pause

:clrhome

:goto   0

:lbl  13

:return

ps : comme je l'ai taper sur star office , '' veut dire : " bien sur!!

ratuss le 20/04/2006 à 22:12

Tout a été dit

,

Tu peux utiliser ta liste comme une variable,
1->A
2->C
tu peux remplacer et mettre
1->L6(1)
1->L6(2)

Attention il faut avant que tu definissent la taille de ta liste avant grace à dim (ici 2):
2->dim L6

Mais en general, c'est plutot utilisé pour des boucles et pour eviter de repeter 3000 fois la meme commande

Exemple :

Citation

10-> Dim L6
For (A,1,10)
Input L1(A)
end
Disp L6

Est ce que c'est plus clair??

craminou le 20/04/2006 à 22:20

euh... en faite pas trop : je maitrise pas trop " for " donc je compren pas trop le code ..

mais bon les liste sa te ra joute que 6 variable ( 6 liste ) en faite c'est comme une lettre non?

craminou le 21/04/2006 à 21:47

chose repromie chose redue ...
voila le programme de liaison .
j'ai changer les otre programes . les ligne entre parenthese sont a ajouter pour que sa marche avec ce programes . et les ligne entre {} sont a suprimer ...

Code

:clrhome

:1ù (  ) A

:1ù (  ) B

:25ù (  ) p

:ouput( A,B, »0

:lbl  0

:ouput( 1,16, »>

:ouput( 3,6, »  OOOOO

:ouput( 4,6, » +-----+

:ouput( 5,6, » !¤¤¤¤¤!O

:ouput( 6,6, »O!¤¤¤¤¤!O

:ouput( 7,6, » +-----+

:ouput( 8,6, »  OOOOO

:ouput( 8,1,P

:0ù (  ) C

:getkey ù (  ) C

:if C=24

:B-1ù (  ) B

:if C=25

:A-1ù (  ) A

:if C=25

:A-1ù (  ) A

:if C=34

:A+1ù (  ) A

:if B=16 and A=1

:then 

:goto   1

:end

:if A=5 and B=6

:then  

:goto   2

:end

:if A=0

:1ù (  ) A

:if B=0

:1ù (  ) B

:if B=17

:16ù (  ) B

:if a=3 and B=8 or B=9 or B=10 or B=11 or B=12

:2ù (  ) A

:clrhome

:ouput( A,B, »0

:goto   0

:lbl  2

:prgmBLACKJAK

:5ù (  ) A

:5ù (  ) B

:goto   0

:lbl  1

:1ù (  ) A

:2ù (  ) B

:lbl 3

:ouput( 1,1, »<

:ouput( 1,11, » /   /

:ouput( 2,11, »+---+

:ouput( 3,11, »!¤¤¤!

:ouput( 4,11, »!   !

:ouput( 5,11, »!   !

:ouput( 6,11, »+---+

:ouput( 8,3, »=

:ouput( 8,10,P

:getkey ù (  ) C

:if C=24

:B-1ù (  ) B

:if C=25

:A-1ù (  ) A

:if C=26

:B+1ù (  ) B

:if C=34

:A+1ù (  ) A

:if B=13 and C=7

:then 

:goto   4

:end

:if A=1 and B=1

:then  

:1ù (  ) A 

:15ù (  ) B 

:goto   0

:end

:if A=8 and B=3

:then 

:goto   5

:end

:if A=0

:1ù (  ) A

:if A=9

:8ù (  ) A

:if B=0

:1ù (  ) B

:if B=17

:16ù (  ) B

:clrhome

:ouput( A,B, »0

:goto   3

:lbl  4

:prgmMACHASOU

:8ù (  ) A

:13ù (  ) B

:goto   3

:lbl  5

:1ù (  ) A

:3ù (  ) B

:lbl  6

:ouput( 1,2, »=

:ouput( 2,10, »/-----

:ouput(3,10, »!TOTO

:ouput( 4,10, »+-----

:ouput( 6,10, »/-----

:ouput( 7,10, »!JEUX

:ouput( 8,10, »+-----

:ouput( 8,1,P

:getkey ù (  ) C

:if C=24

:B-1ù (  ) B

:if C=25

:A-1ù (  ) A

:if C=26

:B+1ù (  ) B

:if C=34

:A+1ù (  ) A

:if A=0

:1ù (  ) A

:if A=9

:8ù (  ) A

:if B=0

:1ù (  ) B

:if B=17

:16ù (  ) B

:if A=1 and B=2

:then 

:goto   3

:end 

:if A=3 and B=9

:then 

:goto7

:if A=3 and B=9 

:then 

:goto   8

:end

:clrhome

:ouput( A,B «  0

:goto   6

:lbl  7

:prgmTOTO

:3ù (  ) A

:8ù (  ) B

:goto   6

:lbl  8

:prgmVIESNAKE 

:7ù (  ) A

:8ù (  ) B

:goto   6

pour le programmes vieu snake je vous revoi a la page : https://tout82.pages-perso.fre[...]t.php?sujet=222
voila si vous avez un probleme contactez moi ..

craminou le 21/04/2006 à 22:09

enfin voila toto

Code

:0ù (  ) C

:int(rand *100000)ù (  ) X

:lbl  0

:input A

:if A>X

:then 

:disp « -

:C+1ù (  ) C

(:P-1ù (  ) P)

:goto   0

:else

:if A<X

:then 

:disp « +

:C+1ù (  ) C

(:P-1ù (  ) P)

:goto   0

:else

:if A=X

:then 

:disp »bravo

:disp « nombre de coup »,C

:if C>=R

:then 

:disp « record »,R

:end

:if C<R

:then 

:Cù (  ) R

:disp « nouveau record »,R

:pause

:clrhome

(:P+20ù (  ) P)

(:disp « somme= »,P)

par contre avant de le lancer, donnez une variable a R (ex:30ùR) 30 est un bon début !!
encore une fois si vous avez des problemes contactez moi ..

ratuss le 22/04/2006 à 17:34

Peut tu faire un .82p ?? SVP et le uploader ( http://web.archive.org/web/200[...]fr:80/index.php )

craminou le 28/04/2006 à 23:19

recoucou!!
tu dira sans doute que je suis touijours aussi nul mais ...
je croi qu'il me faut ton adress!!
otremen explique moi commen sa marche

Nobody le 04/09/2006 à 18:50

je viens d'avoir une ti 82 stats, sans le cable et je veux recopier un jeu ou programme, le probleme c'est que quand je veux taper les "balises" qu'il me présente ne sont pas par exemple Clrdraw mais Effdessin !

Je voudrais savoir si il y a un moyen de convertir ce langage de programmation francisé en anglais dans la calculmatrice ou inversement de passer le jeu vers un langage "francisé"

Merci d'avance !

xeros le 05/09/2006 à 19:15

tu a une TI 82 stats en francais !!??

le PB c'est qu'elle n'ont pas de fonction pour changé le langage
vla
mintenant pour les jeu il faudra voir avec ceux qui les composent
moi personnellement je n'ai plu le temp

ciao

ratuss le 05/09/2006 à 19:38

Si si, avec ti graph link y doit y avoir moyen....

Nobody le 06/09/2006 à 13:34

ben j'ai cherché, sans trouver snif, a bas les nouveautés MDR

Merci pour vos réponses !

Fredichou le 07/10/2006 à 09:04

J'ai le meme problème, j'ai trouver quelque chose mais c'est un peu chian, le truc c'est que avec TI graff link tu crée un nouveau programme et tu imprime celui qui t'interesse, puis sur le clavier de calculatrice de TI graff link tu essaye de trouver quelles touches corespondent aux code et tu tape sur ces touches sur ta vraie calulette pour écrire ton programme.
Mais si quelqun trouve un logitiel pour faire ca ca serait mieux

Sangohan38 le 07/10/2006 à 11:05

Va dans le forum sur les émulateurs et va chercher le ;lien que j'ai donner, tu trouvera ti graph link 83 français donc ça te traduira directement les fonctions.

craminou le 09/10/2006 à 22:16

sinon quelles touches t posent problème ?? (excuse pour le temps de réponse )

Jean le 05/11/2006 à 19:42

Bonjour, je voulais vous demander si c'est possible de "transferer" un programme taper au PC sur ma TI 82 Stats?

ratuss le 08/11/2006 à 06:51

Salut, t'as le cable ?

Jean le 11/11/2006 à 16:17

Oui

Sangohan38 le 11/11/2006 à 17:03

Alor télécharge ti-connect, configue pour 83, créer un programme en 82p (avec ti-graph link) ou en 83 et utilise le logiciel ti-graph link.

Sangohan38

ratuss le 12/11/2006 à 08:49

C'est pour transferer un jeu ?

Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Forum

Black jack sur ti 82 stats

Flux RSS

Abonnement à la newsletter