Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse Page: 1, ,      >>
Le programme de Divination ! [Programme Coc5 n°3]
Auteur Message
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mar 19 Jui 2007, 15:19   Citer 

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^^

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mar 19 Jui 2007, 17:51   Citer 

et ce programme sert à quoi?

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

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mar 19 Jui 2007, 18:39   Citer 

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^^)

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mar 19 Jui 2007, 19:09   Citer 

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

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mar 19 Jui 2007, 19:21   Citer 

ç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!)

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mar 19 Jui 2007, 19:23   Citer 

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

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mar 19 Jui 2007, 19:28   Citer 

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

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Mer 20 Jui 2007, 8:18   Citer 

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

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 20 Jui 2007, 21:14   Citer 

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

----------------------
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Jeu 21 Jui 2007, 18:25   Citer 

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

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Jeu 21 Jui 2007, 18:44   Citer 


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



 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 22 Jui 2007, 14:43   Citer 

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

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Ven 22 Jui 2007, 16:59   Citer 

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

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 22 Jui 2007, 17:52   Citer 

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

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Ven 22 Jui 2007, 17:52   Citer 

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

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 22 Jui 2007, 17:53   Citer 

Tu possède une 82STATS mon gros.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Ven 22 Jui 2007, 17:54   Citer 

ouias mais une ainée ma belette

 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Ven 22 Jui 2007, 21:36   Citer 

Calmez vous les frangines !!! Moi j'ai une 82 cry.gif

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Ven 22 Jui 2007, 22:16   Citer 

pas de chance mon gros nounours

 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Sam 23 Jui 2007, 14:22   Citer 

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

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1, ,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa