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
» un nouveau editeur panobasic
par pascal10000 Hier à 21:52

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Jack Hier à 20:23

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Hier à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Hier à 19:58

» Compilateur FBPano
par jean_debord Hier à 8:49

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

» Problème avec les chaines de caractères
par bignono Dim 6 Aoû 2017 - 9:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Télépathie

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

avatar

Nombre de messages : 5501
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 : 7961
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 : 5501
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 : 1594
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 : 5849
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 : 5501
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 : 5849
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 : 5501
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 : 5849
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 : 5501
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 : 4988
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 : 7961
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 : 5501
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 32 bits :: Les inutilitaires-
Sauter vers: