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 compilateur.
par Pedro Alvarez Hier à 20:01

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par Pedro Alvarez Hier à 19:54

» Pb 17 (en analyse): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» Compilateur FBPano
par Mike Jeu 17 Aoû 2017 - 13:52

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Mer 16 Aoû 2017 - 19:58

» 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

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 | 
 

 Compte à rebours

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

avatar

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

MessageSujet: Compte à rebours   Ven 6 Nov 2015 - 7:23

Code:

rem ============================================================================
rem           Compte à rebours
rem              Par Papydall
rem ============================================================================

label compte_a_rebours
dim dat1,dat2,sec,j,h,mn,n
dim result,dif,temp,t$,ville$
dim heure,minute,seconde,jour,mois,annee
dim heure2,minute2,seconde2,jour2,mois2,annee2

top 0,50 : left 0,screen_x-500 : width 0,480 : height 0,100
color 0,220,150,50 : font_color 0,0,0,255 : font_bold 0: font_size 0,14
caption 0,"Compte à rebours : Noël 2015"
alpha 10 : top 10,20 : left 10,10
timer 20 : on_timer 20, compte_a_rebours
n = 24*3600 : ' nombre de secondes dans une journée
rem ============================================================================
'  Indiquer ici la date et l'heure du compte à rebours
rem ============================================================================
' jour2 = 01 : mois2 = 01 : annee2 = 2016  : t$ =  "Nouvel an 2016," : ' Nouvel an
jour2 = 25 : mois2 = 12 : annee2 = 2015  : t$ =  "Noël 2015, " : ' Noël
heure2 = 00 : minute2 = 00 : seconde2 = 00
rem ============================================================================
Jour_Julien(jour2,mois2,annee2)    : dat2 = result
Frac_Jour(heure2,minute2,seconde2) : dat2 = dat2 + result
end
rem ============================================================================
compte_a_rebours:
  Get_Date_heure()
  Jour_Julien(jour,mois,annee)    : dat1 = result
  Frac_Jour(heure,minute,seconde) : dat1 = dat1 + result
  dif = (dat2-dat1) * n

  if dif > 0
      j = int(dif/n) : temp = dif - j*n
      h = int(temp/3600) : temp = temp -h*3600
      mn = int(temp/60) : temp = temp - mn*60
      sec = int(temp)
      caption 10, t$ + " c'est dans : " + str$(j) +" j "+str$(h)+" h "+str$(mn)+" mn " +str$(sec)+" s"
  else
      timer_off 20
      caption 10, "L'heure de " + t$ + " est déjà dépassée !"
  end_if
return

rem ============================================================================
' Déterminer le Jour Julien à partir d'une date
SUB Jour_Julien(jour,mois,annee)
    dim_local a,b,d,m,y
    d = jour : m = mois : y = annee
    if m < 3 then y = y - 1 : m = m + 12
    a = int(y/100) : b = 2 - a + int(a/4)
    result = int(365.25*(y+4716)) + int(30.6001*(m+1)) + d + b - 1524.5
END_SUB
rem ============================================================================
' Lire la date et l'heuree système
SUB Get_Date_heure()
    heure = val(mid$(time$,1,2)) : minute  = val(mid$(time$,4,2)) : seconde = val(mid$(time$,7,4))
    jour  = val(mid$(date$,1,2)) : mois    = val(mid$(date$,4,2)) : annee   = val(mid$(date$,7,4))
END_SUB
rem ============================================================================
SUB Frac_Jour(heure,minute,seconde)
    result = (seconde + minute*60 + heure*3600)/n
END_SUB
rem ============================================================================



sunny sunny sunny


Dernière édition par papydall le Ven 6 Nov 2015 - 15:18, édité 2 fois (Raison : Jean Claude m'a eu, alors j'ai revu ma copie avant que le Père NOËL ne se fâche contre moi !)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

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

MessageSujet: Re: Compte à rebours   Ven 6 Nov 2015 - 9:25

Certains pourrons s'en servir pour compter les jours avant leur départ à la retraite. Very Happy

Au fait Papydall, j'avais dit, il y a déjà un certain temps "Un jour, je l'aurais ....". Hé bien, ce jour est arrivé Very Happy
Noêl => Noël.

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

avatar

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

MessageSujet: Re: Compte à rebours   Ven 6 Nov 2015 - 15:32

Jean Claude a écrit:
Certains pourrons s'en servir pour compter les jours avant leur départ à la retraite. Very Happy  
Au fait Papydall, j'avais dit, il y a déjà un certain temps "Un jour, je l'aurais ....". Hé bien, ce jour est arrivé  Very Happy  
Noêl => Noël.

A+

Je dirais même plus : Certains pourront rigoler à pleines dents!

king  sunny Merci Jean Claude, tu m'as permis de me  concilier avec NOËL et aussi avec Noëlle !  sunny king
C'est chose faite avec la dernière en attendant Noël.

A la prochaine! tongue
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

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

MessageSujet: Re: Compte à rebours   Ven 6 Nov 2015 - 16:19

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

avatar

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

MessageSujet: Re: Compte à rebours   Ven 6 Nov 2015 - 16:25

Ne t’en fais pas Jean Claude.
Je trébucherai sans doute.  No
Rira bien qui rira le dernier !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



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

MessageSujet: Re: Compte à rebours   Ven 6 Nov 2015 - 16:56

Eh, vous en avez oublié une:
Citation :
Un jour je l'aurais...
Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Compte à rebours   Ven 6 Nov 2015 - 17:27

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 50
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Compte à rebours   Ven 6 Nov 2015 - 18:29

Citation :
Eh, vous en avez oublié une:
Citation :
Un jour je l'aurais...
Smile

Je ne crois pas.
C'est du conditionnel présent non ?! scratch . drunken
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Compte à rebours   Ven 6 Nov 2015 - 18:54

'Un jour je l'aurai', pour moi dans cette expression c'est du futur tout simple et non pas du conditionnel.
D'ailleurs Jean Claude lui-même ne s'y est pas trompé.

C'est une faute très répandue ici, le conditionnel à la place du futur:
'En rentrant ce soir je testerais ton programme...'
(à moins qu'on veuille sous-entendre: si je n'avais que ça à faire  Very Happy )


Dernière édition par JL35 le Ven 6 Nov 2015 - 18:57, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 50
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Compte à rebours   Ven 6 Nov 2015 - 18:56

j'aurais mieux fait de me taire, alors...

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

avatar

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

MessageSujet: Re: Compte à rebours   Ven 6 Nov 2015 - 21:31

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

avatar

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

MessageSujet: Re: Compte à rebours   Ven 6 Nov 2015 - 23:43

Bon, ma colère est retombée.

Cette colère, était dirigée contre moi-même. J'étais trop content d'avoir piégé Papydall...
Et je n'est même pas été foutu de ne pas faire de FÔTE ...

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



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

MessageSujet: Re: Compte à rebours   Ven 6 Nov 2015 - 23:53

Mon cher ami Jean Claude, je comprends fort bien ta frustration, mais ce n'est quand même pas une raison pour confondre le verbe être et le verbe avoir Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Compte à rebours   Sam 7 Nov 2015 - 0:00

Ah comme elle est bien bonne et même belle celle-là !
Citation :
Je n'est même pas été foutu

A la prochaine !

EDIT

JL35, tu peux continuer à enfoncer le clou : il y a encore de la marge.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

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

MessageSujet: Re: Compte à rebours   Sam 7 Nov 2015 - 11:09

Ce compte à rebours est ma malédiction !

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

avatar

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

MessageSujet: Re: Compte à rebours   Sam 7 Nov 2015 - 12:19

Mais non Jean-Claude, c'est juste te fête ...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Compte à rebours   Sam 7 Nov 2015 - 13:49

Jicehel a écrit:
Mais non Jean-Claude, c'est juste te fête ...

Merci Jicehel, de reprendre  le flambeau, à deux on est plus forts.
lol!


Dernière édition par Jean Claude le Sam 7 Nov 2015 - 13:51, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: Compte à rebours   Sam 7 Nov 2015 - 13:49

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

avatar

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

MessageSujet: Re: Compte à rebours   Sam 7 Nov 2015 - 15:06

ça ressemble à cette histoire:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

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

MessageSujet: Re: Compte à rebours   Sam 7 Nov 2015 - 15:26

Jean Claude a écrit:
Ce compte à rebours est ma malédiction !

Mais non, mais non.
C’était simplement un compte à rebours qui a dérapé en un conte à humour.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

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

MessageSujet: Re: Compte à rebours   Sam 7 Nov 2015 - 16:01

Hé oui Papydall, c'est l’arroseur qui s'est fait arroser.
lol!

Une histoire qui se termine par une morale.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Compte à rebours   Sam 7 Nov 2015 - 16:34

Citation :
Une histoire qui se termine par une morale.

La morale de cette histoire : la moitié des  Panoramiciens s’intéressent à l’humour plutôt qu’aux codes de Papydall.
L’autre moitié s’en foutent éperdument et de l’humour et des codes de Papydall.
Le bilan est positif : c’est réassurant.

A+++
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



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

MessageSujet: Re: Compte à rebours   Sam 7 Nov 2015 - 17:16

Citation :
...c’est réassurant.
tu étais déjà assuré ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Compte à rebours   

Revenir en haut Aller en bas
 
Compte à rebours
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [RESOLU] Une sorte de compte à rebours
» Un script pour générer un compte a rebours sur image
» compte-à-rebours avant la sortie d'un film
» Je ne peux pas compte à rebours dans la tête de mon forum
» RECHERCHE D'un compte à Rebours

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 :: Vos sources, vos utilitaires à partager-
Sauter vers: