FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par pascal10000 Aujourd'hui à 17:49

» Cartes de voeux, menus, etc.
par JL35 Aujourd'hui à 17:48

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:48

» a l'aide klaus
par Minibug Aujourd'hui à 11:42

» KGF_dll - nouvelles versions
par Minibug Aujourd'hui à 1:48

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Aujourd'hui à 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» API Windows
par Klaus Jeu 7 Déc 2017 - 21:03

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

» j'ai un petit problème
par JL35 Mer 6 Déc 2017 - 21:58

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Télépathie

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Télépathie   Mer 9 Mar 2016 - 18:14

Code:

rem ============================================================================
rem        Télépathie
' Panoramic_Editor V 0.9.27i5
rem ============================================================================

label clic
dim i,j,n,w,s,c$,t$
width 0,900 : height 0,700
w = 50 : s = 20
font_size 0,s : font_name 0,"arial black"
print_locate 100,100 : print "Veuillez patienter, je m'installe confortablement !"
create_hide
rem ============================================================================
for j = 1 to 9
    for i = 1 to 11
        n = i+(j-1)*11
        alpha n : top n,50*j-25 : left n,w*i : width n,w : height n,w : font_name n,"arial"
        font_size n,s : font_bold n : font_color n,0,0,255 : caption n,str$(n)
    next i
next j
rem ============================================================================
for j = 1 to 9
    for i = 1 to 11
        n = i +(j-1)*11+100
        alpha n : top n,50*j : left n,w*i : width n,w : height n,w : font_name n,"Wingdings"
        font_size n,s : font_bold n : font_color n,255,0,0
    next i
next j
cls
rem ============================================================================
button 995 : font_bold 995 : font_name 995,"tahoma" : top 995,500 : left 995,600
width 995,200 : font_size 995,18 : caption 995,"Quitter"
on_click 995,clic
rem ============================================================================
button 996 : font_bold 996 : font_name 996,"tahoma" : top 996,600 : left 996,600
width 996,200 : font_size 996,18 : caption 996,"Recommencer" : inactive 996
on_click 996,clic
rem ============================================================================
alpha 997 : font_bold 997 : font_name 997,"Wingdings" : top 997,300 : left 997,600
font_color 997,255,0,0
rem ============================================================================
alpha 999 : font_bold 999 : font_name 999,"arial" : top 999,500 : left 999,100
font_size 999,12
t$ = "Choisis un nombre de deux chiffres puis" +chr$(13)
t$ = t$ + "soustrais la somme de ses chiffres à ce nombre"+chr$(13)
t$ = t$ + "Par exemple : avec 49 on obtiens : 49-(4+9) = 36" + chr$(13)
t$ = t$ + "Alors note bien le symbole correspondant" + chr$(13)
t$ = t$ + "et concentre-toi très très fort." + chr$(13)
t$ = t$ + "JE TROUVERAI CE SYMBOLE ! PAROLE DE PAPYDALL !" + chr$(13)
t$ = t$ + "Quand tu es prêt clique sur la boule."
caption 999,t$
rem ============================================================================
picture 998 : width 998,100 : height 998,100 : 2d_target_is 998
top 998,100 : left 998, 700 : color 998,240,240,240 : 2d_pen_width 2
on_click 998,clic
For n = 1 to  200
    2d_pen_color 200-n,250-n,abs(n-250) : 2d_circle 50,50,50-n/4
next n
rem ============================================================================
show_all
nouveau()
end
rem ============================================================================
Clic:
   select number_click
       case 995 : Quitter()
       case 996 : caption 997,"" : Nouveau()
       case 998 : Telepathie()
   end_select
return
rem ============================================================================
SUB Telepathie()
    for i = 12 to 100
        font_size 997,i : caption 997,caption$(109) : pause 20
    next i
    active 996
END_SUB
rem ============================================================================
SUB Nouveau()
    dim_local i
    for i = 101 to 199
        caption i,chr$(int(rnd(26)+65))
    next i
    c$ = chr$(int(rnd(26)+65)) : for i = 9 to 81 step 9 : caption 100+i,c$ : next i
END_SUB
rem ============================================================================
SUB Quitter()
    dim_local gw,gh,i
    gw = Width(0) : gh = Height(0)
    font_size 0,30 : font_name 0,"arial black" : font_color 0,255,0,0
    color 0,0,0,0 : print_target_is 0 : 2d_target_is 0 : hide_all
    repeat
        For i = 1 To 100
           2d_pen_color rnd(255),rnd(255),rnd(255) :2d_point rnd(gw),rnd(gh)
        next i
        print_locate 150,20 : print " C'est fini. "
        print_locate 20,100 : print " <ESC> pour QUITTER "
    until scancode = 27
    for i = gh to 10 step -10 : height 0,i : pause 100 : next i
    terminate
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 9 Mar 2016 - 18:46

On va devoir changer ton pseudo...
lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Télépathie   Mer 9 Mar 2016 - 19:01

Papypathe, ça peut convenir ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

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

MessageSujet: +++   Mer 9 Mar 2016 - 19:42

Joli ! Bluffant ! On s'y croirait !!!
silent silent silent alien silent silent silent
Euh, Papypathe, ça fait un peu psychopathe, quand même...
Plutôt Papyrma, qu'en dites-vous ?
cyclops alien cyclops
lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Télépathie   Mer 9 Mar 2016 - 21:57

Mathématiquement simple et efficace et le programme et parfaitement écrit, comme à ton habitude
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Télépathie   Jeu 10 Mar 2016 - 2:37

Salut tout le monde.
D’après Wikipédia
« La télépathie (du grec τηλε, tele (distance, loin) et πάθεια, patheia (sentiment : πάθoς, ce que l'on éprouve) désigne un hypothétique échange d’informations entre deux personnes n’impliquant aucune interaction sensorielle ou énergétique connue. »

D’après Papydall
La papypathie désigne la faculté que possède Papydall pour lire dans les pensées d’un Martien.
Je parie que jjn4 a essayé plusieurs fois dans l’espoir de mettre le PapyCode à défaut sans y parvenir.

Pour Jicehel qui trouve que le Papycode est « mathématiquement simple et efficace »
Oui il est efficace parce qu’il est simple.
Mais dis, combien de fois tu as cliqué sur le bouton Recommencer histoire de voir s’il est possible que le PapyCode se trompe ?

Pour terminer :
Merci à tous ceux qui ont testé le code.

A+ pour un nouveau PapyCode. king
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Télépathie   Jeu 10 Mar 2016 - 8:50

Non, le truc, c'est que l'on se rend assez vite compte que c'est le même caractère qui revient toujours, ce qui ne retire rien à l'efficacité des premiers essais Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Télépathie   Jeu 10 Mar 2016 - 14:14

Comment «  c'est le même caractère qui revient toujours » ?
La réalité, c’est toujours un caractère aléatoire mais qui occupe toujours la même position.

Bon, je vous dévoile le secret :
Lorsqu’on soustrait la somme des chiffres d’un nombre à ce nombre, on obtient toujours un multiple de 9.
Maintenant vous connaissez le truc et je n’ai plus de pouvoir de lire dans les pensées même d’un homme vert. alien

Mon but essentiel était de pouvoir coder ça pour entretenir les rouages de mon système de neurones.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Télépathie   Jeu 10 Mar 2016 - 14:21

Et c'est très bien fait d'un point de vue intellectuel et d'un point de vue codage.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Télépathie   Jeu 10 Mar 2016 - 14:25

Voilà un bon connaisseur !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Parpaiun

avatar

Nombre de messages : 192
Age : 78
Localisation : HERAULT
Date d'inscription : 15/04/2015

MessageSujet: Revue du sujet   Dim 8 Mai 2016 - 9:40

Alors, après tout ce boulot, comment vont tes neurones, Papydall ? scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5086
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Télépathie   Dim 8 Mai 2016 - 10:59

Et voici le PapyChien.



lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re: Télépathie   Dim 8 Mai 2016 - 11:34

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Télépathie   Dim 8 Mai 2016 - 15:31

Parpaiun a écrit:
Alors, après tout ce boulot, comment vont tes neurones, Papydall ?  scratch

Parfaitement bien, je te rassures.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Télépathie   

Revenir en haut Aller en bas
 
Télépathie
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: