Télépathie... Histore de sourire un peu

Exécutez simplement ce petit programme sans chercher à analyser le code - gardez cela pour après, sinon, l'effet serait gâché. Laissez-vous surprendre par ce petit code étonnamment simple:

Code:: ' Telepathie.bas

data "8",">",":","N","9","L", "M","?","=","<",";",";"

dim i%, j%, n%, k%, cartab1$(6), cartab2$(6), c$, out%(5)

for i%=1 to 6
read cartab1$(i%)
read cartab2$(i%)
next i%

alpha 10 : top 10,100 : left 10,10 : font_size 10,12 : font_color 10,255,0,0 : font_bold 10
caption 10,"Aujourd'hui, tu seras témoin d'une illusion incroyable !"
wait 3000
caption 10,"Regarde bien les symboles qui vont s'afficher."
wait 3000
caption 10,"Mémorise un des symboles affichés - ne clique pas sur ce symbole !"
wait 3000
for i%=1 to 6
alpha i% : top i%,200 : left i%,i%*60 : font_name i%,"Wingdings 3" : font_size i%,16
caption i%,cartab1$(i%)
next i%
wait 4000
for i%=1 to 6
caption i%,""
next i%
caption 10,"Maintenant, pense fortement à ce symbole..."
wait 3000
caption 10,"Tu verras que le le trouverai dans tes penseés !"
wait 3000
caption 10," Le symbole que tu as choisi, a disparu, n'est-ce pas ?"
for i%=1 to 5
left i%,30+i%*60 : caption i%,cartab2$(i%)
next i%
wait 4000
for i%=1 to 5
caption i%,""
next i%
end

J'ai relevé ce principe dans une présentation powerpoint très bien faite, sur le net, et c'était bluffant. Imaginez, à la place des symboles, les graphismes de cartes de jeux choisissant valets, dames et rois, de couleurs variées. Et là, ce n'est pas évident de percer le mécanisme sous-jacent. Comme je ne voulais pas uploader 12 images, je les ai remplacées pas des symboles, mais vous pourrez facilement remplacer les alpha 1 à alpha 6 par des picture 1 à picture 6 et charger des images dedans par file_load. si vous n'avez pas d'images de cartes, n'importe quelle série d'images similaires fera l'affaire.

C'est marrant. il est clair qu'il faut soigneusement choisir les images pour une parfaite illusion.

Si on remplace la police (font_name i%,"Wingdings 3") par (font_name i%,"Wingdings 2") le charme est rompu.

Sympa, comme petit tour de magie

A+

Oui, je sais, pour la police. Ce qu'il faut, c'est de choisir des symboles graphiquement proches, comme c'était le cas dans la présentation Powerpoint d'origine, avec les images des têtes d'un jeu de cartes. Mais n'importe quel ensemble d'images similaires ferait l'affaire. Voici le code adapté pour un jeu d'images personnelles:

Code:: ' Telepathie images.bas

dim i%, j%, n%, k%, tab1$(6), tab2$(6), c$, out%(5)

for i%=1 to 6
tab1$(i%) = "Image_telepathie_"+str$(i%)+".bmp"
tab2$(i%) = "Image_telepathie_"+str$(i%+6)+".bmp"
next i%

alpha 10 : top 10,100 : left 10,10 : font_size 10,12 : font_color 10,255,0,0 : font_bold 10
caption 10,"Aujourd'hui, tu seras témoin d'une illusion incroyable !"
wait 3000
caption 10,"Regarde bien les symboles qui vont s'afficher."
wait 3000
caption 10,"Mémorise un des symboles affichés - ne clique pas sur ce symbole !"
wait 3000
for i%=1 to 6
picture i% : top i%,200 : left i%,i%*100 : width i%,100 : height i%,100
file_load i%,tab1$(i%)
next i%
wait 4000
for i%=1 to 6
hide i%
next i%
caption 10,"Maintenant, pense fortement à ce symbole..."
wait 3000
caption 10,"Tu verras que le le trouverai dans tes penseés !"
wait 3000
caption 10," Le symbole que tu as choisi, a disparu, n'est-ce pas ?"
for i%=1 to 5
left i%,30+i%*60 : file_load i%,tab2$(i%) : show i%
next i%
wait 4000
for i%=1 to 5
hide i%
next i%
end

Invité

En voyant la réponse de Jean Claude, je comprends mieux pourquoi je ne voyais pas où il faut en venir (sans avoir regardé le programme).
La fonte Winding 3, ainsi que la 2 je ne l'ai pas.
Les liens que j'ai trouvé apportent une réponse payante.

Salutation

Regarde sur mon site: je viens de mettre une version en ligne qui fonctionne avec les images des têtes d'un jeu de cartes. Là, l'effet visuel est garanti ! C'est dans la rubrique "Panoramic".

Bien sûr, en regardant le source, l'explication est simple. Mais montre ce programme à quelqu'un qui ne connaît pas le "truc" qui est derrière, et il sera bluffé !

Invité

Oui, j'ai compris.
J'ai joué le jeu jusqu'au bout, je n'ai pas regardé le code.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Super, voilà Klaus qui devient maître en prestidigitation !
cheers

et Jean Claude qui devient le Père Noël !
Eh, Père Jean-Noël, je mets mes souliers où,
et je t'envoie ma (longue) liste à quelle adresse ?
Laughing

LOl jjn4

Maitre klaus, ton clavier te fait toujours défaut, c'est un michant clavier.

Citation :: Laissez-cous surprendre par ce petit code étonnamment simple:

Cosmos :
Pour les font il y a le site dafont :
http://www.dafont.com/fr/

Merci, Dragonno, la faute de frappe est corrigée !

Puisque j'y suis: télécharge la nouvelle version disponible sur mon site: elle fait le truc avec les images des cartes tel que je l'avais suggéré - c'est plus impressionnant !

Invité

@Dragonno
Je connais le site, et c'est marqué 20€. Si je devais dépenser des sous, je préfèrerais les donner à Jack. Je ne vais pas mettre 20€ pour une fonte, déjà que pour Noël...

@Cosmos70:
Tu n'as plus besoin de la fonte, car sur mon site, tu as la version avec les cartes à jouer - beaucoup plus joli !

Invité

Merci Klaus, j'ai fais l'essai ce matin et je t'ai répondu.
Je veux seulement dire que 20 € pour une fonte, faudra pas compter sur moi pour la télécharger.
merci

Citation :: Je connais le site, et c'est marqué 20€.

Bizarre, moi j'y suis souvent allé pour télécharger de nombreuses fontes gratuitement.
Eh oui vive la version avec cartes sinon Wink

» Un petit sourire...
» Le jeu "Télépathie"
» Télépathie