Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 5339
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] - Page 1 / 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
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.