Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> black jack sur ti 82 stats

Page: 1, 2 >>

black jack sur ti 82 stats

Auteur

Message

craminou

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Dim 16 Avr 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

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Lun 17 Avr 2006, 8: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

----------------------
--- LISTE DES JEUX POUR TI ---

craminou

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Mar 18 Avr 2006, 21:18

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

ps : tu m'enerve attjour connaitre mon IP

webmaster

Autorisation : Administrateur
Nb de messages : 792
Inscrit le : Mer 18 Aoû 2004, 22:13

Posté le : Mar 18 Avr 2006, 21:26

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

@+ Le Webmaster

PS : environ une centaine

craminou

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Mar 18 Avr 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

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Mer 19 Avr 2006, 7:10

PS : environ une centaine

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

----------------------
--- LISTE DES JEUX POUR TI ---

craminou

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Mer 19 Avr 2006, 22:03

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

Google_AdSense

craminou

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Mer 19 Avr 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

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Jeu 20 Avr 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

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Jeu 20 Avr 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 :

Citer

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

Est ce que c'est plus clair??

----------------------
--- LISTE DES JEUX POUR TI ---

Google_AdSense

craminou

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Jeu 20 Avr 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

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Ven 21 Avr 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 : http://tout82.free.fr/forum/sujet.php?sujet=222
voila si vous avez un probleme contactez moi ..

craminou

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Ven 21 Avr 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

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Sam 22 Avr 2006, 17:34

Peut tu faire un .82p ?? SVP et le uploader ( http://xpprosp12.free.fr/index.php )

----------------------
--- LISTE DES JEUX POUR TI ---

craminou

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Ven 28 Avr 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
Invité

Posté le : Lun 04 Sep 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

Autorisation : Membre
Nb de messages : 25
Inscrit le : Dim 28 Mai 2006, 19:48

Posté le : Mar 05 Sep 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

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Mar 05 Sep 2006, 19:38

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

----------------------
--- LISTE DES JEUX POUR TI ---

Nobody
Invité

Posté le : Mer 06 Sep 2006, 13:34

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

Merci pour vos réponses !

Fredichou
Invité

Posté le : Sam 07 Oct 2006, 9: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

Page: 1, 2 >>

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> black jack sur ti 82 stats

Flux RSS