Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Le programme de Divination ! [Programme Coc5 n°3]

Le programme de Divination ! [Programme Coc5 n°3]

Auteur

Message

coc5

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37

Posté le : Mar 19 Jui 2007, 15:19

Et voici un programme pour impressionner les crédules (ou pas). Si il y en qui connaissent le site de Peter Answer, ils comprendront mieux^^

Code

0ü

P
ClrDraw
For(J,1,10
69!
If J=3:Text(30,32,"J
If J=9:Text(30,36,"E
If J=4:Text(30,42,"S
If J=7:Text(30,46,"A
If J=6:Text(30,50,"I
If J=8:Text(30,54,"S
If J=2:Text(30,60,"T
If J=10:Text(30,64,"O
If J=1:Text(30,68,"U
If J=5:Text(30,72,"T
69!
End
0ü

M
Text(38,40,"PAR COC5"
Pause
ClrDraw
Text(5,1,"VOUS ALLEZ ETRE TEMOIN D'UN
Text(13,1,"EVENEMENT PARAPSY, ET NE
Text(21,1,"DEVEZ DONC PAS CHERCHER
Text(29,1,"QUELCONQUE ENTOURLOUPE SUR
Text(37,1,"L'ECRAN. IL N'Y EN A PAS."
Pause
ClrHome:ClrDraw
Disp "ESTú

CE BIEN TOI "," O CREATEUR ?"
ú

1ü

I:ú

1ü

Q:0ü

M
Lbl 0
getKeyü

K
If K=94:ú

Iü

I
If Kø0:Then
P+1ü

P
If P=1:Output(3,1,"J
If P=2:Output(3,P,"E
If P=3:Output(3,3,"
If P=4:Output(3,4,"T
If P=5:Output(3,5,"E
If P=6:Output(3,6,"
If P=7:Output(3,7,"L
If P=8:Output(3,8,"E
If P=9:Output(3,9,"
If P=10:Output(3,10,"C
If P=11:Output(3,11,"E
If P=12:Output(3,12,"R
If P=13:Output(3,13,"T
If P=14:Output(3,14,"I
If P=15:Output(3,15,"F
If P=16:Output(3,16,"I
End
If I=1 and Kø0:Then
M+1ü

M
Kü

L`(M)
End
If Pø16:Goto 0
ClrHome
Disp "QUESTION:
1ü

I
1ü

Y
0ü

R
Lbl 8
Y+2ü

Y
If Iø1:For(R,1,M
Lbl 13
If I=1:Then
getKeyü

K
If Kø0:R+1ü

R
End
If R>16:Then:1ü

R:Y+1ü

Y:End
If Iø1:L`(R)ü

K
If K=41:Output(Y,R,"A
If K=42:Output(Y,R,"B
If K=43:Output(Y,R,"C
If K=51:Output(Y,R,"D
If K=52:Output(Y,R,"E
If K=53:Output(Y,R,"F
If K=54:Output(Y,R,"G
If K=55:Output(Y,R,"H
If K=61:Output(Y,R,"I
If K=62:Output(Y,R,"J
If K=63:Output(Y,R,"K
If K=64:Output(Y,R,"L
If K=65:Output(Y,R,"M
If K=71:Output(Y,R,"N
If K=72:Output(Y,R,"O
If K=73:Output(Y,R,"P
If K=74:Output(Y,R,"Q
If K=75:Output(Y,R,"R
If K=81:Output(Y,R,"S
If K=82:Output(Y,R,"T
If K=83:Output(Y,R,"U
If K=84:Output(Y,R,"V
If K=85:Output(Y,R,"W
If K=91:Output(Y,R,"X
If K=92:Output(Y,R,"Y
If K=93:Output(Y,R,"Z
If K=102:Output(Y,R,"
If K=95:Output(Y,R,"'
If K=104:Output(Y,R,"?
If Kø104 and I=1:Goto 13
If Iø1:End
If I=1:Then:0ü

I:Goto 8:End

Il faut un peu d'entraînement pour ne pas se faire griller. La touche pour activer le mode "réponse est Thêta.

Je vous laisse deviner le truc^^
Je donnerais toutes les clefs dans quelques jours.

Personnellement, j'ai réussi a en avoir pas mal^^

Stupid

Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Mar 19 Jui 2007, 17:51

et ce programme sert à quoi?

tout ce que j'ai vuq cest que si tu tapes sur les toucehs ça affiche les lettres

coc5

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37

Posté le : Mar 19 Jui 2007, 18:39

Mystère...

...

Essaye ça :
Tu appuies sur la touche Thêta, puis tu tape ce que tu veux avant de retaper sur la touche thêta si tu as finis ta phrase. Ensuite tu marque la question qui correspond à la réponse mise préalablement et ...

^^

(Si tu comprenais la programmation tu aurais compris ce programme^^)

Stupid

Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Mar 19 Jui 2007, 19:09

j'ai compris que d'abord tu tapes ta question ça la fout dans une liste, et qu'apres en fonction des valeurs de cette liste ça te retape les lettres mais apres le truc exceptionel je vois pas

coc5

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37

Posté le : Mar 19 Jui 2007, 19:21

ça se voit que tu as pas des copains (voir connaissances) un peu crédules.
A la fin ils croyaient qu'il y avait un détecteur dans ma calculatrice et que j'avais fais un programme presque magique (faut dire qu'ils y connaissent rien^^)

Par exemple tu leur montre et ils te demandent de poser la question "de quel couleur est ma chemise" ou "qui suis-je" ou encore "quel est le dernier cours qu'on a eu" voir même "qui est le plus c** des français". Tu marque la réponse dans la première phrase sans qu'ils s'en aperçoive (avec un peu d'entraînement ça passe bien).

Ensuite tu mets la question demandée et la bonne réponse s'affiche comme par magie !

(bon ben j'ai donné les clefs plus tôt que prévue hein!)

Google_AdSense

Stupid

Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Mar 19 Jui 2007, 19:23

je l'ai aps recopié le prog mais j'essayais de comprendre ne lisant...

ah ok en fait quand il a appuyé sur theta tu redonnes un nouveau codetouche dans uen liste en douce et tu reappuyes sur theta

coc5

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37

Posté le : Mar 19 Jui 2007, 19:28

Oui et tout le monde te prend pour quelqu'un de bizarre mais de super fort^^

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Mer 20 Jui 2007, 8:18

ah génial sa c'est bien comme prog je le prends

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mer 20 Jui 2007, 21:14

Par contre ce que je trouve dommage c'est le label du début pour afficher "je sais tout".
Un seul output prend :moins de place.

Sangohan38

coc5

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37

Posté le : Jeu 21 Jui 2007, 18:25

Oui mais c'est moins bien et ça fait plus bon programme pour ceux qui s'y connaissent pas^^

Stupid

Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Jeu 21 Jui 2007, 18:44

Code

getKeyü

K
If K=94:ú

Iü

I
If Kø0:Then
P+1ü

M
Kü

L`(M)
End
If Pø16:Goto 0

DEVIENT

"JE TE LE CERTIFIE[sto]Str1
For(P,1,length(Str1
getKeyü

K
If K=94:ú

Iü

I
If Kø0:Then
Output(3,P,sub(Str1,P,1 (j'ai peut etre invérsé P et 1)
End
If I=1 and Kø0:Then
M+1ü

M
Kü

L`(M)
End
End

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 22 Jui 2007, 14:43

Ca vous arrive de penser un peut aux pauvre 82 qui n'ont pas les chaines?

Sangohan38

Stupid

Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Ven 22 Jui 2007, 16:59

non je les emmerde ils avaient qu'à naitre plsu tard et pas avoir d'ainés

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 22 Jui 2007, 17:52

Post injuriex envers eux.
Et j'en possède une alors tu va vite supprimer ce message.

Sangohan38

Stupid

Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Ven 22 Jui 2007, 17:52

mais je déconne oh calme toi mon choupinet^^
(moi aussi)

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 22 Jui 2007, 17:53

Tu possède une 82STATS mon gros.

Sangohan38

Stupid

Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Ven 22 Jui 2007, 17:54

ouias mais une ainée ma belette

vibra

Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29

Posté le : Ven 22 Jui 2007, 21:36

Calmez vous les frangines !!! Moi j'ai une 82

----------------------
Vive la programmation et vive le vibraphone !!!

Stupid

Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Ven 22 Jui 2007, 22:16

pas de chance mon gros nounours

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Sam 23 Jui 2007, 14:22

oui bon la progs c'est adapte de plus en plus au 82 stats je vois de moins en moins de jeu 82

Stupid

Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Sam 23 Jui 2007, 14:24

en plus les chaines ça déchire sa grand mere (la ti-72?) on peut faire des pendus grace à ça ou des best scores

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Sam 23 Jui 2007, 14:27

ben oui les chaines c'est pratiques pour le sukoban par exemple
la faut que je me tait

ratuss

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

Posté le : Sam 23 Jui 2007, 15:24

oui étant donné que le programme doit être compatible avec les 82

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

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Sam 23 Jui 2007, 16:12

koiiiiiii on m'a pas prevenu!!a recomencer

Stupid

Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Sam 23 Jui 2007, 17:27

non sinon t'utlisais les sous-chaines

Google_AdSense

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Lun 25 Jui 2007, 8:11

c'est pas grave le sukoban a des options qui dechires et en plus il est posté.

mlk23

Autorisation : Membre
Nb de messages : 21
Inscrit le : Dim 09 Nov 2008, 16:35

Posté le : Dim 09 Nov 2008, 17:55

Ca m'afiche: ERREUR DOMAINE

Citer

If J=1:Text(30,68,"U

(après le U)

C'est quoi comme erreure que j'ai pu faire ???

coc5

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37

Posté le : Dim 09 Nov 2008, 19:38

C'est impossible Oo Vraiment c'est bizarre...

Sinon efface tout les textes ils ne sont pas nécessaires.

mlk23

Autorisation : Membre
Nb de messages : 21
Inscrit le : Dim 09 Nov 2008, 16:35

Posté le : Lun 10 Nov 2008, 16:17

Comment ça ??

Pour ça par exemple:

Citer

If J=3:Text(30,32,"J

ça donnera:

Citer

If J=3

C'est ça ???

Et pour:

Citer

Text(5,1,"VOUS ALLEZ ETRE TEMOIN D'UN

ça donnera:

Citer

(rien du tout donc... )

C'est bien ça?

coc5

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37

Posté le : Lun 10 Nov 2008, 18:26

Oui, enlève même les J=3 qui sont à coté.

mlk23

Autorisation : Membre
Nb de messages : 21
Inscrit le : Dim 09 Nov 2008, 16:35

Posté le : Mar 11 Nov 2008, 10:41

ok donc ça donnerai:

Citer

0üP
ClrDraw
For(J,1,10
69!
If
If
If
If
If
If
If
If
If
If
69!
End
0üM
Pause
ClrDraw
Pause
ClrHome:ClrDraw
Disp "ESTúCE BIEN TOI "," O CREATEUR ?"
ú1üI:ú1üQ:0üM
Lbl 0
getKeyüK
If K=94:úIüI
If Kø0:Then
P+1üP
If P=1:Output(3,1,"J
If P=2:Output(3,P,"E
If P=3:Output(3,3,"
If P=4:Output(3,4,"T
If P=5:Output(3,5,"E
If P=6:Output(3,6,"
If P=7:Output(3,7,"L
If P=8:Output(3,8,"E
If P=9:Output(3,9,"
If P=10:Output(3,10,"C
If P=11:Output(3,11,"E
If P=12:Output(3,12,"R
If P=13:Output(3,13,"T
If P=14:Output(3,14,"I
If P=15:Output(3,15,"F
If P=16:Output(3,16,"I
End
If I=1 and Kø0:Then
M+1üM
KüL`(M)
End
If Pø16:Goto 0
ClrHome
Disp "QUESTION:
1üI
1üY
0üR
Lbl 8
Y+2üY
If Iø1:For(R,1,M
Lbl 13
If I=1:Then
getKeyüK
If Kø0:R+1üR
End
If R>16:Then:1üR:Y+1üY:End
If Iø1:L`(R)üK
If K=41:Output(Y,R,"A
If K=42:Output(Y,R,"B
If K=43:Output(Y,R,"C
If K=51:Output(Y,R,"D
If K=52:Output(Y,R,"E
If K=53:Output(Y,R,"F
If K=54:Output(Y,R,"G
If K=55:Output(Y,R,"H
If K=61:Output(Y,R,"I
If K=62:Output(Y,R,"J
If K=63:Output(Y,R,"K
If K=64:Output(Y,R,"L
If K=65:Output(Y,R,"M
If K=71:Output(Y,R,"N
If K=72:Output(Y,R,"O
If K=73:Output(Y,R,"P
If K=74:Output(Y,R,"Q
If K=75:Output(Y,R,"R
If K=81:Output(Y,R,"S
If K=82:Output(Y,R,"T
If K=83:Output(Y,R,"U
If K=84:Output(Y,R,"V
If K=85:Output(Y,R,"W
If K=91:Output(Y,R,"X
If K=92:Output(Y,R,"Y
If K=93:Output(Y,R,"Z
If K=102:Output(Y,R,"
If K=95:Output(Y,R,"'
If K=104:Output(Y,R,"?
If Kø104 and I=1:Goto 13
If Iø1:End
If I=1:Then:0üI:Goto 8:End

???

Par contre le If tout seul, j'en fais quoi ?

ToTo

Autorisation : Membre
Nb de messages : 104
Inscrit le : Ven 07 Nov 2008, 11:38

Posté le : Mar 11 Nov 2008, 10:55

Hot le programme !
Je pense que les If ne servent plus.^^

Google_AdSense

coc5

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37

Posté le : Mar 11 Nov 2008, 10:56

C'est là que je m'apperçoie que je suis pas clair envers les gens non programmeurs >_<

En fait à la base je voulais dire enlever tout ce qui est lié au texte, car si on enlève le texte, les conditions pour l'afficher ne servent à rien

Donc oui enlève aussi les If de cette partie.

Au passage, si tu as une Ti82stats, je peux te refaire le programme en plus court et plus fonctionnel !

mlk23

Autorisation : Membre
Nb de messages : 21
Inscrit le : Dim 09 Nov 2008, 16:35

Posté le : Mar 11 Nov 2008, 16:18

coc5 >>> je dis pas non!

en tout cas merci de ton aide!

mlk23

Autorisation : Membre
Nb de messages : 21
Inscrit le : Dim 09 Nov 2008, 16:35

Posté le : Ven 14 Nov 2008, 19:51

Citer

Au passage, si tu as une Ti82stats, je peux te refaire le programme en plus court et plus fonctionnel !

Je sais que tu n'as pas que ça à faire, mais si tu te trouves le temps un jour (ça peut attendre, ne t'inquiète pas

) ce serait cool si tu pourrais me le refaire !

Donc si c'est toujours valable... j'aimerai bien, oui !

coc5

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37

Posté le : Ven 14 Nov 2008, 22:49

Euh oui, excusez-moi mais je suis surchargé en ce moment. Peut-être pendant les vacances de noël voir avant si j'ai un moment perdu.

mlk23

Autorisation : Membre
Nb de messages : 21
Inscrit le : Dim 09 Nov 2008, 16:35

Posté le : Sam 15 Nov 2008, 8:47

D'accord, merci beaucoup !

Utilisateur
Invité

Posté le : Sam 30 Jan 2010, 14:20

Pouvez-vous me mettre de programme en version Ti-82 Stats.fr svp ?
ET quelle est la signification du O barré et du ù ?

sypotu

Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Sam 30 Jan 2010, 16:50

utilise le sujet de traduction (lien dans ma signature)
ú c'est la touche [( - )]
ø c'est le signe différent de

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

Utilisateur
Invité

Posté le : Sam 30 Jan 2010, 19:53

Quand j'appuie sur Theta ça ne fait rien. Faut que je continue à taper du texte jusqu'à ce que la case soit remplie et ça me met erreur.
Pourquoi ?

Utilisateur
Invité

Posté le : Sam 30 Jan 2010, 20:06

Ca me met "Erreur Domaine" et quand je mets sur voir, ça m'emmène sur les lettres A,B,C ... de If K=52 ou 53 enfin les trucs dans ce genre là.

Utilisateur
Invité

Posté le : Dim 31 Jan 2010, 8:13

Alors, vous savez comment y remédier ?

coc5

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37

Posté le : Dim 31 Jan 2010, 14:49

C'est que la variable Y qui pointe sur la case (hauteur) où doit être affichée le texte a un problème.

Regarde aux endroits où tu a cette variable pour trouver la ligne que tu as mal tapé.

Google_AdSense

Utilisateur
Invité

Posté le : Dim 31 Jan 2010, 17:22

Pendant que ça tape "Je le certifie", quand j'appuie sur Theta sa me met erreur sur une apostrophe.
Pourquoi ?

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Le programme de Divination ! [Programme Coc5 n°3]

Page générée en 6 requêtes

Flux RSS