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
» Problème de math
par papydall Aujourd'hui à 1:53

» A propos des attributs de fichier
par papydall Hier à 14:33

» Problème de math
par Marc37 Sam 21 Oct 2017 - 23:04

» I Love You
par papydall Sam 21 Oct 2017 - 19:22

» Un petit "coucou" à tous les Panoramiciens !
par mindstorm Sam 21 Oct 2017 - 17:06

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 La fin du monde n'aura pas lieu

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

avatar

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

MessageSujet: La fin du monde n'aura pas lieu   Jeu 20 Déc 2012 - 23:18

j'avais commencé d'aménager ma cave (en premier: l'ordi avec Panoramic dedans) pour me planquer et résister. Sad

Quand Soudain la lumière m'est venue. cheers

Le calendrier Maya est FAUX, c'est le calendrier de JJN4 qui est le bon. cheers

Voici la preuve: (tapez l'année 2012 et regardez au 21/12/2012) Vous avez un bouton pour le calendrier Maya et un autre pour celui de JJN4 alien alien alien alien alien lol!


Code:
rem ' ***** Fabricateur de calendriers perpétuels ***** Fabric-Calendrier-perpet
dim ex , ie, j1 , j2 , j3 , m1 , m2 , m3 , tt , c$ , e$ , o$ , t$
dim a , b , c , d , e , f , g , h , i , j , k , m , n , p , q , r
dim  s , t , u , v , x , y , w , z , j$(7) , m$(12)
data "Dim." , "Lun." , "Mar." , "Mer." , "Jeu.." , "Ven." , "Sam"
data "JAN" , "FEV" , "MAR" , "AVR" , "MAI" , "JUIN" , "JUIL"
data "AOU" , "SEP" , "OCT" , "NOV" , "DEC"
label calcul , fin , ecran , choix , excel , aide , egal , fini , JJN4
c$="Auteur de ce programme :  jjn4"

dim findumonde$:findumonde$="O"

for i=0 to 6
 read j$(i)
next i
for i=1 to 12
 read m$(i)
next i

width 0,450 : height 0,250 : caption 0,"Fabricateur de calendriers"

alpha 1:left 1,60 : top 1,40:font_bold 1 :font_size 1,14
caption 1,"CALENDRIER PERPÉTUEL"

alpha 2:left 2,100 : top 2,85
caption 2,"Quelle année"

edit 3:left 3,180 : top 3,80 : width 3,60 : height 3,21
on_change 3,egal:set_focus 3

button 4:left 4,250 : top 4,125 : width 4,60 : height 4,21
caption 4,"MAYA"
on_click 4,ecran


alpha 5:left 5,10 : top 5,170
caption 5,c$

spin 7:left 7,160 : top 7,2 : width 7,53
on_change 7,choix:hide 7

button 9:left 9,287 : top 9,2 : width 9,60 : height 9,21
caption 9,"Imprimer"
on_click 9,excel:hide 9

button 10:left 10,253 : top 10,2 : width 10,40 : height 10,21
caption 10,"Aide"
on_click 10,aide:hide 10

form 11:left 11,200 : top 11,100 : width 11,450 : height 11,405
caption 11,"Aide au fabricateur de calendrier perpétuel par JJN4 et rectifié par JEAN CLAUDE":hide 11

alpha 12:parent 12,11:left 12,10 : top 12,8
caption 12,a$

button 13:left 13,340 : top 13,125 : width 13,60 : height 13,21
caption 13,"JJN4 et JC"
on_click 13,JJN4

end
' ==============================================================================
JJN4:
findumonde$="NIET":gosub ecran
return

egal:
if text$(3)<>"" then position 7,text$(3)
return

ecran:
if findumonde$="O" then inactive 3:inactive 4:inactive 7:inactive 9:inactive 10
caption 4,"Calculer"
caption 5,"ATTENDEZ" : wait 1
if ie=0
 width 0,1200 : height 0,650
 left 2,20 : top 2,4
 left 3,95 : top 3,2
 tt=0 : if text$(3)<>"" then tt=val(text$(3))
 show 7 : position 7,tt
 left 1,500 : top 1,1
 caption 1,"CALENDRIER  "+text$(3)
 left 5,850 : top 5,4
 left 4,220 : top 4,2
 hide 13
 picture 8 : left 8,0 : top 8,25 : width 8,1011 : height 8,578
 color 8,192,192,192 : show 9 : left 10,353 : show 10
 for i=9 to 20
  for j=1 to 32
  alpha (i-8)*32+j :              alpha (i-8)*32+j+400
  left (i-8)*32+j,(i-9)*84+2 :    left (i-8)*32+j+400,(i-9)*84+2
  top (i-8)*32+j,j*18+8 :        top (i-8)*32+j+400,j*18+8
  width (i-8)*32+j,83 :          width (i-8)*32+j+400,83
  color (i-8)*32+j,255,255,255 :  color (i-8)*32+j+400,255,255,255
  next j
  color (i-8)*32+1,180,255,255
 next i
else
 for i=9 to 20
  for j=1 to 32
  caption (i-8)*32+j+400,""
  color (i-8)*32+j,255,255,255
  color (i-8)*32+j+400,255,255,255
  next j
  color (i-8)*32+1,180,255,255
 next i
 caption 1,"CALENDRIER  "+text$(3)
end_if
ie=1
gosub calcul
return

choix:
text 3,position(7)
return

excel:
message "En passant à EXCEL, vous fermez le calendrier"
ex=1 : gosub calcul
return

aide:
execute "Fabric-Cal-Aide.exe"
return

calcul:
t$=text$(3) : if t$="" then return
if val(t$)<1583 or val(t$)>4581 then beep : caption 5,"Non, pas possible (1583 à 4581)" : return
tt=val(t$)
' Calcul du lundi de Pâques - Algorithme de Oudin
g=tt-int(tt/19)*19
w=int(tt/100)
d=int(w/4)
e=int((8*w+13)/25)
h=19*g+w-d-e+15-int((19*g+w-d-e+15)/30)*30
k=int(h/28)
u=int(29/(h+1))
q=int((21-g)/11)
v=(k*u*q-1)*k+h
z=int(tt/4)+tt
n=z+v+2+d-w
f=n-int(n/7)*7
r=28+v-f
if h=29 and r=50 then r=57
if h=28 and g>10 and r=49 then r=56
if r>30
 j1=r-30 : m1=4
else
 j1=r+1 : m1=3
end_if
' Calcul du jeudi de l'Ascension
y=r+39
if y>92
 j3=y-92 : m3=6
else
 j3=y-61 : m3=5
end_if
' Calcul du lundi de Pentecôte
x=r+50
if x>92
 j2=x-92 : m2=6
else
 j2=x-61 : m2=5
end_if
' Calcul du jour de la semaine et affichage
c=val(left$(t$,2))
a=val(right$(t$,2))
if ex=1 then excel_start : excel_file_new 1
for m=1 to 12
 for j=1 to 31
  select m
  case 1 : t=0
  case 2 : t=3
  case 3 : t=3
  case 4 : t=6
  case 5 : t=1
  case 6 : t=4
  case 7 : t=6
  case 8 : t=2
  case 9 : t=5
  case 10 : t=0
  case 11 : t=3
  case 12 : t=5
  end_select
  if a=0 and m<3
  p=(20-c)*2+int((c-1)/4)-5
  else
  p=(19-c)*2+int(c/4)-4
  end_if
  b=int(a/4)
  if a/4=int(a/4) and m<3 then b=b-1
  s=(j+t+a+b+p)-7*int((j+t+a+b+p)/7) : s=s-int(s/7)*7
  if j=31 and (m=2 or m=4 or m=6 or m=9 or m=11) then goto fin
  if (m=2 and j>29) or (m=2 and a/4<>int(a/4) and j>28) then goto fin
  if a=0 and c/4<>int(c/4) and m=2 and j=29 then goto fin
  e$="" : if s=0 then e$="***"
  if j=1 and m=5 and tt>1946 then e$="***"
  if j=8 and m=5 and tt>1952 and tt<1960 then e$="***"
  if j=8 and m=5 and tt>1981 then e$="***"
  if j=14 and m=7 and tt>1879 then e$="***"
  if (j=15 and m=8) or (j=1 and m=11) then e$="***"
  if j=11 and m=11 and tt>1921 then e$="***"
  if j=21 and m=12 and tt=2012 then e$=" Fin du monde annulée par JJN4 et JC ":j$(s)="fin."
  if (j=25 and m=12) or (j=1 and m=1) then e$="***"
  if (j=j1 and m=m1) or (j=j2 and m=m2) or (j=j3 and m=m3) then e$="***"
  o$="" : if j<10 then o$="0"
  if j$(s)="fin."
    j$(s)="Ven.."
    color m*32+j+1,0,0,0 : color m*32+j+401,255,200,200
  if findumonde$="O" then j$(s)="fin." :wait 6000:terminate
  end_if
  if ex=0 then caption m*32+j+401,j$(s)+"."+o$+str$(j)+e$
  if e$="***" and ex=0
  if j$(s)="Dim."
    color m*32+j+1,255,255,0 : color m*32+j+401,255,255,0
  else
    color m*32+j+1,255,204,153 : color m*32+j+401,255,204,153
  end_if
  end_if
  if ex=1 then excel_write chr$(64+m*2-1)+str$(j+2),j$(s)+"."+o$+str$(j)+e$
fin:
 next j
 if ex=0
  caption m*32+401," "+m$(m)+".."+t$ : color m*32+401,180,255,255
  font_size m*32+401,10 : font_bold m*32+401
 end_if
 if ex=1 then excel_write chr$(64+m*2-1)+"2",m$(m)+".."+t$
next m
for j=1 to 19 step 6
 if ex=1 then excel_write chr$(64+j)+"1","CALENDRIER "+t$
next j
caption 5,c$
if ex=1 then goto fini
ex=0
return

fini:
terminate


A SAMEDI lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: La fin du monde n'aura pas lieu   Jeu 20 Déc 2012 - 23:36

A propos, le JJN4 ne s’est pas manifesté depuis le 29 Aout 2012.

JJN4, si tu n’es pas chez les Maya, fais-nous un coucou, genre signe de vie.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

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

MessageSujet: Re: La fin du monde n'aura pas lieu   Jeu 20 Déc 2012 - 23:38

Il s'est surement planqué sur sa planète.

C'est vrai qu'on aimerait qu'il se manifeste. flower alien alien

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

avatar

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

MessageSujet: Re: La fin du monde n'aura pas lieu   Ven 21 Déc 2012 - 2:07

Bizarre ! On est bien le 21/12/2012 et je ne vous poste pas de l’au-delà mais d'ici-bas!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 10075
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: La fin du monde n'aura pas lieu   Ven 21 Déc 2012 - 2:09

Patience... La journée est encore longue !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Invité
Invité



MessageSujet: Re: La fin du monde n'aura pas lieu   Ven 21 Déc 2012 - 2:13

Peut-être est-il encore temps de se suicider avant qu'elle n'arrive? Very Happy
Heu! c'est une idée comme une autre, mais ne le faites pas quant-même! affraid
Revenir en haut Aller en bas
Klaus

avatar

Nombre de messages : 10075
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: La fin du monde n'aura pas lieu   Ven 21 Déc 2012 - 2:21

Pour ma part, je dirais avec Coluche:
Citation :
J'aimerais bien mourir de mon vivant !

Philosophe, ce Coluche. Il manque aujourd'hui.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
papydall

avatar

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

MessageSujet: Re: La fin du monde n'aura pas lieu   Ven 21 Déc 2012 - 3:28

La mort ?
Je n’y pense même pas.
Quand elle viendra, elle me trouvera fin prêt !

On mourra certainement de son vivant!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: La fin du monde n'aura pas lieu   Sam 22 Déc 2012 - 3:22

Bon ben c'est loupé...
On remet ça dans 24 ans ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
papydall

avatar

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

MessageSujet: Re: La fin du monde n'aura pas lieu   Sam 22 Déc 2012 - 3:49

Tu es sûr qu'on est encore de ce monde (aujourd'hui un jour après la fin du monde) ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: La fin du monde n'aura pas lieu   Sam 22 Déc 2012 - 4:00

Oui Maya l'abeille m'a confirmé que tout ce shbinz c'est passé à l'insu de son plein grès... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
papydall

avatar

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

MessageSujet: Re: La fin du monde n'aura pas lieu   Sam 22 Déc 2012 - 4:07

Tu me rassures Nardo26 : Nous sommes encore de ce monde.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

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

MessageSujet: re   Sam 22 Déc 2012 - 11:58

@ Cosmos 70,

" Mourir pour des idées d'accord, mais de mort lente !" G Brassens
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: La fin du monde n'aura pas lieu   Sam 22 Déc 2012 - 13:22

Pourtant ce fut une proposition pour certain à faire à sa femme, ou à sa belle-mère, pour ne pas voir l'horreur de cette fin! Very Happy Oh! le vilain. Mad
Revenir en haut Aller en bas
Jean Claude

avatar

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

MessageSujet: Re: La fin du monde n'aura pas lieu   Sam 22 Déc 2012 - 15:17

Je suis épuisé, j'ai tout remonté de la cave, un coup pour rien... lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: La fin du monde n'aura pas lieu   Sam 22 Déc 2012 - 18:41

Jean Claude, as-tu cru que dans la cave, la fin du monde n’y accède pas !

A croire qu’il y a quelqu’un qui l’eût cru !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

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

MessageSujet: Re: La fin du monde n'aura pas lieu   Sam 22 Déc 2012 - 22:28

Je lu crue, heu... je voeux dire si j'l'avais palu j'l'u pa cru........ lol!

End_Off_The_World............................ End_Off_The_Sujet

Rendez-vous en 2036
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: +++   Mer 26 Déc 2012 - 18:38

Coucou, me voili !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Je reviens tout juste de ma planète
et il m'a semblé entendre comme des sifflements
alors je me suis dis qu'on parlait de moi.
Mais pour m'appeler, le mieux c'est de faire comme
dans "La soupe aux choux"................ Ooooh !!!
Laughing Laughing Laughing
Salut à tout le monde !
et bonnes fêtes !!!
Depuis mon déménagement, je suis occupé à des foules de choses.
Mais je reviendrai un jour à faire des programmes !
A bientôt !!!
santa alien santa
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
JL35



Nombre de messages : 5953
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: La fin du monde n'aura pas lieu   Mer 26 Déc 2012 - 20:03

C'était bien la peine de déménager sur la planète Zorglub pour rien... évidemment, si tu dois redéménager dans l'autre sens une fois l'alerte passée, tu n'es pas prêt de te remettre à programmer !
Jean Claude
Citation :
Je lu crue, heu... je voeux dire si j'l'avais palu j'l'u pa cru........
Et si tu l'avais lu, l'eusses-tu cru ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: La fin du monde n'aura pas lieu   Jeu 27 Déc 2012 - 18:47

Ça fait plaisir d'avoir de tes nouvelles alien ! Very Happy
Reviens vite !!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
Contenu sponsorisé




MessageSujet: Re: La fin du monde n'aura pas lieu   

Revenir en haut Aller en bas
 
La fin du monde n'aura pas lieu
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» sondage région du monde !
» Savoir sur quel objet un évènement a eu lieu
» editeur de monde 3d
» le monde d'Edenay
» [MEGAUPLOAD][DVDRiP]Tant qu'il y aura des hommes

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