Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 6126
Réponses : 43
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

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

coc5 le 19/06/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 le 19/06/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 le 19/06/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 le 19/06/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 le 19/06/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!)
Stupid le 19/06/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 le 19/06/2007 à 19:28
Oui et tout le monde te prend pour quelqu'un de bizarre mais de super fort^^
mad67 le 20/06/2007 à 08:18
ah génial sa c'est bien comme prog je le prends
Sangohan38 le 20/06/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 le 21/06/2007 à 18:25
Oui mais c'est moins bien et ça fait plus bon programme pour ceux qui s'y connaissent pas^^
Stupid le 21/06/2007 à 18:44
Code
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



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 le 22/06/2007 à 14:43
Ca vous arrive de penser un peut aux pauvre 82 qui n'ont pas les chaines?

Sangohan38
Stupid le 22/06/2007 à 16:59
non je les emmerde ils avaient qu'à naitre plsu tard et pas avoir d'ainés
Sangohan38 le 22/06/2007 à 17:52
Post injuriex envers eux.
Et j'en possède une alors tu va vite supprimer ce message.

Sangohan38
Stupid le 22/06/2007 à 17:52
mais je déconne oh calme toi mon choupinet^^
(moi aussi)
Sangohan38 le 22/06/2007 à 17:53
Tu possède une 82STATS mon gros.

Sangohan38
Stupid le 22/06/2007 à 17:54
ouias mais une ainée ma belette
vibra le 22/06/2007 à 21:36
Calmez vous les frangines !!! Moi j'ai une 82 cry.gif
Stupid le 22/06/2007 à 22:16
pas de chance mon gros nounours
mad67 le 23/06/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 le 23/06/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 le 23/06/2007 à 14:27
ben oui les chaines c'est pratiques pour le sukoban par exemple
la faut que je me tait
ratuss le 23/06/2007 à 15:24
oui étant donné que le programme doit être compatible avec les 82
mad67 le 23/06/2007 à 16:12
koiiiiiii on m'a pas prevenu!!a recomencer
Stupid le 23/06/2007 à 17:27
non sinon t'utlisais les sous-chaines
mad67 le 25/06/2007 à 08:11
c'est pas grave le sukoban a des options qui dechires et en plus il est posté.
mlk23 le 09/11/2008 à 17:55
Ca m'afiche: ERREUR DOMAINE

Citation
If J=1:Text(30,68,"U
(après le U)


C'est quoi comme erreure que j'ai pu faire ??? eyeonly.gif frozen.gif godgrace.gif
coc5 le 09/11/2008 à 19:38
C'est impossible Oo Vraiment c'est bizarre...

Sinon efface tout les textes ils ne sont pas nécessaires.
mlk23 le 10/11/2008 à 16:17
Comment ça ?? crazy.gif

Pour ça par exemple:

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


ça donnera:
Citation
If J=3



C'est ça ???


Et pour:

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


ça donnera:
Citation
(rien du tout donc... )


C'est bien ça? godgrace.gif
coc5 le 10/11/2008 à 18:26
Oui, enlève même les J=3 qui sont à coté.
mlk23 le 11/11/2008 à 10:41
ok donc ça donnerai:

Citation
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


??? ahh.gif

Par contre le If tout seul, j'en fais quoi ? godgrace.gif
ToTo le 11/11/2008 à 10:55
Hot le programme !
Je pense que les If ne servent plus.^^
coc5 le 11/11/2008 à 10:56
minied.gif

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 eyeonly.gif

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 le 11/11/2008 à 16:18
coc5 >>> je dis pas non! minied.gif en tout cas merci de ton aide! glasses.gif godgrace.gif
mlk23 le 14/11/2008 à 19:51
Citation
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 godgrace.gif ) ce serait cool si tu pourrais me le refaire ! godgrace.gif

Donc si c'est toujours valable... j'aimerai bien, oui ! godgrace.gif
coc5 le 14/11/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 le 15/11/2008 à 08:47
D'accord, merci beaucoup ! bigmouth.gif
Utilisateur le 30/01/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 le 30/01/2010 à 16:50
utilise le sujet de traduction (lien dans ma signature)
ú c'est la touche [( - )]
ø c'est le signe différent de
Utilisateur le 30/01/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 le 30/01/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 le 31/01/2010 à 08:13
Alors, vous savez comment y remédier ?
coc5 le 31/01/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é.
Utilisateur le 31/01/2010 à 17:22
Pendant que ça tape "Je le certifie", quand j'appuie sur Theta sa me met erreur sur une apostrophe.
Pourquoi ?
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.