Autorisation : Membre
Nb de messages : 891
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.
Autorisation : Membre
Nb de messages : 891
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^^)
Autorisation : Membre
Nb de messages : 768
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
Autorisation : Membre
Nb de messages : 891
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!)
Autorisation : Membre
Nb de messages : 768
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ü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