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
» Traceur de courbes représentatives des fonctions y = f(x)
par Ouf_ca_passe Aujourd'hui à 20:51

» Problème de syntaxe
par Klaus Aujourd'hui à 12:40

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 12:36

» Compilateur FBPano
par jean_debord Aujourd'hui à 12:31

» Toolbar en Panoramic
par ygeronimi Hier à 23:56

» Documentation des évènements
par Klaus Hier à 16:46

» Klaus est de retour!
par jjn4 Hier à 16:31

» Texte sur image
par Jicehel Hier à 12:23

» MIN - MAX avec SPIN
par ygeronimi Sam 21 Jan 2017 - 10:02

» HEIGHT_CLIENT(N)
par ygeronimi Ven 20 Jan 2017 - 16:41

» Non demande de commande
par ygeronimi Jeu 19 Jan 2017 - 11:50

» Bataille navale sous-marine
par papydall Jeu 19 Jan 2017 - 2:19

» Version instantanée du 16/01/2017 : PANORAMIC V 0.9.27i10
par mindstorm Mer 18 Jan 2017 - 21:05

» PLM N34
par Froggy One Mer 18 Jan 2017 - 17:32

» saving 1.png [RÉSOLU]
par Froggy One Mar 17 Jan 2017 - 19:44

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 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



Nombre de messages : 4538
Age : 62
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



Nombre de messages : 5109
Age : 66
Localisation : Moknine (Tunisie)
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



Nombre de messages : 4538
Age : 62
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



Nombre de messages : 5109
Age : 66
Localisation : Moknine (Tunisie)
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



Nombre de messages : 9436
Age : 67
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



Nombre de messages : 9436
Age : 67
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



Nombre de messages : 5109
Age : 66
Localisation : Moknine (Tunisie)
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



Nombre de messages : 2294
Age : 48
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



Nombre de messages : 5109
Age : 66
Localisation : Moknine (Tunisie)
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



Nombre de messages : 2294
Age : 48
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



Nombre de messages : 5109
Age : 66
Localisation : Moknine (Tunisie)
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/
ygeronimi



Nombre de messages : 7009
Age : 45
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



Nombre de messages : 4538
Age : 62
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



Nombre de messages : 5109
Age : 66
Localisation : Moknine (Tunisie)
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



Nombre de messages : 4538
Age : 62
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



Nombre de messages : 1472
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 : 5710
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



Nombre de messages : 2294
Age : 48
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   Aujourd'hui à 23:51

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 32 bits :: Présentation et bavardage-
Sauter vers: