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
» Dessin 2D: largeur de trait
par papydall Hier à 23:31

» Projet de planétarium virtuel.
par Jean Claude Hier à 21:59

» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Hier à 20:32

» Animation: Feux de signalisation
par Minibug Hier à 20:28

» Quantité de mémoire utilisée par un exe
par Jack Mar 19 Juin 2018 - 16:39

» Problème avec 'file_load'.
par Pedro Alvarez Lun 18 Juin 2018 - 8:12

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018 - 14:25

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018 - 19:56

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018 - 19:14

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018 - 20:17

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018 - 20:52

» Cadre pour image
par Jean Claude Mar 12 Juin 2018 - 16:31

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018 - 14:02

» Planétarium gratuit.
par Jean Claude Sam 9 Juin 2018 - 18:50

» Comment afficher une image sans fond.
par JL35 Sam 9 Juin 2018 - 14:16

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Heure d'été et heure d'hiver

Aller en bas 
AuteurMessage
Minibug

avatar

Nombre de messages : 2969
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Heure d'été et heure d'hiver   Sam 6 Sep 2014 - 8:27

Bonjour tous le monde !

J'espère que vous profité bien de cette arrière saison, car bientôt il faudra penser a changer l'heure de vos montres !  Very Happy  Very Happy

Voici un petit (Très petit) programme qui vous permet de savoir quel jour nous changerons d'heure.

Citation :
DIM jour , an , a , b  , s
PRINT "---------------------------------------------------------------------------"
PRINT "PASSAGE A L'HEURE D'ETE ET D'HIVER"
PRINT "---------------------------------------------------------------------------"
PRINT
INPUT "Quelle année recherchez vous ? " ; an
PRINT
PRINT "---------------------------------------------------------------------------"
s = Int(a / 100) : a = an - (s * 100)
b = Int(2.6 - 0.19) + 31 + a + Int(a / 4) + Int(s / 4) - s * 2
jour  = Int((b / 7 - Int(b / 7)) * 7 + 0.1)
print "Le passage à l'heure d'été se fera le dimanche "+STR$(31-jour)+" MARS "+STR$(an)+"."
print "Nous avancerons donc d'une heure. A 2h00 du matin, il sera 3h00."
PRINT "---------------------------------------------------------------------------"
b = Int(2.6 * 8 - 0.19) + 31 + a + Int(a / 4) + Int(s / 4) - s * 2
jour  = Int((b / 7 - Int(b / 7)) * 7 + 0.1)
print "Le passage à l'heure d'hiver se fera le dimanche "+STR$(31-jour)+" OCTOBRE "+STR$(an)+"."
print "Nous reculerons donc d'une heure. A 3h00 du matin, il sera 2h00."
PRINT "---------------------------------------------------------------------------"
END
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Minibug

avatar

Nombre de messages : 2969
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Heure d'été et heure d'hiver   Mer 10 Sep 2014 - 18:11

Bon et bien je vois que le changement d'heure n'a pas beaucoup d'effet sur vous !!!

Razz Sleep Sleep drunken drunken Laughing Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Heure d'été et heure d'hiver   Mer 10 Sep 2014 - 21:00

^^ Parfois un post fait un flop quelque soit sa qualité. Jean Debord a eu autant de succès pour son très bon programme de fractales. Il ne faut pas en tirer de mauvaises conclusions, cest juste une activité très calme pour le moment et des Panoramiciens occupés dans leut vie de tout les jours, leurs boulots, leur jardin ou leurs petits enfants.
En tout cas, le non retour sur ta publication n'a rien a voir avec l’intérêt de ton programme car ce calcul est tout à fait intéressant. Ta publication permet de garder le forum actif parallèlement au travail de Klaus, alors excuse nous de ne pas être plus volubiles sur ton sujet. Mea culpa de notre part à tous.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2969
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Heure d'été et heure d'hiver   Jeu 11 Sep 2014 - 9:32

Ne t’inquiètes pas Jicehel !

C'est juste un trait d'humour... Very Happy Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Heure d'été et heure d'hiver   Jeu 11 Sep 2014 - 9:49

tant mieux Smile Cosmos a parfois souffert de l'indiférence apparente à certains projets, alors que c'est très interessant mais que les gens n'ont pas le temps de s'investir dans le sujet
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2969
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Heure d'été et heure d'hiver   Ven 12 Sep 2014 - 20:39

Ne t'inquiètes pas Jicehel ! Un jour ou l'autre, on resortira bien ce post...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
JL35



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

MessageSujet: Re: Heure d'été et heure d'hiver   Ven 12 Sep 2014 - 20:57

Salut Minibug,
Ça me rappelait bien quelque chose, et effectivement j'avais codé quelque chose comme ça l'an dernier:
http://panoramic.free-boards.net/t3119-un-petit-calendrier-a-feuilleter?highlight=Calendrier
-> voir la SUB Ete_Hiver(annee,mois)
Ça n'enlève rien à ton programme, mais on a très probablement dû avoir les mêmes sources.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Heure d'été et heure d'hiver   Ven 12 Sep 2014 - 21:00

T'inquiète pas Minibug, c'est le genre de code qui n'appelle pas à réaction, malgré les formules intéressantes qui s'y trouvent.
En le parcourant, je me suis retrouvé quelques années en arrière avec des prints et aucuns objets. Du pure Basic....

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

avatar

Nombre de messages : 2969
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Heure d'été et heure d'hiver   Sam 13 Sep 2014 - 6:50

Bonjour a tous !

@JL35 :
Effectivement, les formules ne sont pas de moi, donc c'est tout a fait possible.
En fait j'avait mis cela dans mes programmes, et l'avait oublié là.
Donc afin d'en faire profiter la communauté, je l'ai édité.  Smile

@Jean Claude :
Citation :
c'est le genre de code qui n'appelle pas à réaction
Ne t'inquiètes pas jean claude. L'intérêt du forum c'est de partager après chacun en fait ce qu'il lui plait.
En tout cas c'est mon point de vue...
Citation :
je me suis retrouvé quelques années en arrière avec des prints et aucuns objets. Du pure Basic....
Oui c'est voulu, je voulait juste partager les formules même si elles ne sont pas de moi.

Bonne journée a tous.  cheers  cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Heure d'été et heure d'hiver   Sam 13 Sep 2014 - 8:42

En plus publier des programmes intéressants mais assez simples peut peut être rassurer quelques lecteurs débutants qui n'osent pas poster par ce qu'ils pensent leurs programmes sans intérêt (souvent à tord, même si parfois il y en a qui ont raison à part pour les aider à progresser et c'est quand même aussi l'un des intérêts du forum Very Happy )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sergeauze

avatar

Nombre de messages : 391
Age : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: Re: Heure d'été et heure d'hiver   Sam 13 Sep 2014 - 15:34

Sleep Sleep Sleep Sleep Sleep
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
Minibug

avatar

Nombre de messages : 2969
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Heure d'été et heure d'hiver   Sam 13 Sep 2014 - 15:44

réveilles toi sergeauze ! Sinon tu risque de louper le changement d'heure...
Laughing Laughing Laughing Laughing Laughing Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
papydall

avatar

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

MessageSujet: Re: Heure d'été et heure d'hiver   Sam 13 Sep 2014 - 21:50

La belle trouvaille « Heure d’été / heure d’hiver » pour économiser de l’énergie nous disent les gens qui savent !
Lorsqu’on est midi (heure solaire) on est 14 heures (heure d’été) !
Ça ne m’intéresse pas cette histoire d’heure d’hiver / heure d’été  mais bon, je poste ici mon code pour …. king

Code:
rem ============================================================================
'  Heure d'été : économie d'énergie ???
'  Temps annuel d'allumage des lampes.
'  Par Papydall
rem ============================================================================
rem Ref : http://ploosfelt.free.fr/Algo/HeuredEte/HeuredEte3.html
rem ============================================================================
' Chaque jour, je me lève à 6 h 30 et je me couche à 23 h (heures lues sur mon réveil-matin !)
' Le soleil ne se lève pas et ne se couche pas en même temps que moi.
' Si je me lève avant le lever du soleil, je dois allumer les lumières.
' Si je me couche après le coucher du soleil, je dois allumer les lumières.
' Il suffit de calculer les durées d'allumage des lampes, et de cumuler sur 365 jours !
rem ============================================================================
' En vérité je m'en fous des heures du lever / coucher du soleil.
' Je me couche quand je veux, je me lève quand je veux.
' Je mène une excellente vie de retraité qui n'a même pas besoin d'un réveil-matin
' non plus d'un "réveil-soir" !!!
rem ============================================================================

' Il sera intéressant de faire tourner le programme avec les heures de décalage suivantes :
' Option 1 : Décalage Hiver = Décalage Eté = 0 (heures solaires)
' Option 2 : Décalage Hiver = 1, et Décalage Eté = 1 (sans changement été-hiver)
' Option 3 : Décalage Hiver = 1, et Décalage Eté = 2 (situation actuelle)
' Option 4 : Décalage Hiver = 2, et Décalage Eté = 2 (sans changement été-hiver)
rem ============================================================================
rem Résultats :

' Heures solaires : 1973 heures
' Heures d'hiver  : 1791 heures
' Heures d'été    : 1670 heures
' Heures mixtes   : 1670 heures également

rem ============================================================================
width 0,700 : height 0,700 : color 0,0,0,0
alpha 5 : left 5,10 : font_bold 5 : font_size 5,14 : font_color 5,255,0,255
caption 5,"Temps annuel d'allumage des lampes en tenant"+chr$(13) + "compte du décalage Heure d'été / Heure d'hiver"
list 10 : top 10, 100: left 10,10 : width 10,550 : height 10,500 : font_bold 10
color 10, 0,0,0 : font_color 10,255,255,0
alpha 20 : top 20,620 : font_color 20,0,255,255 : font_size 20,14

' Allumage(0,0) : ' heures solaires
' Allumage(1,1) : ' sans changement été-hiver
 Allumage(1,2) : ' Situation actuelle
' Allumage(2,2) : ' sans changement été-hiver

end
rem ============================================================================
Sub Allumage(DecalHiv,DecalEte)
    dim_local decal,AlluJour,AlluCumul,j,LevSol,CouSol,LevMoi,CouMoi,item$,option$
    if DecalHiv = 0 and DecalEte = 0 then option$ = "Décalage Hiver = Décalage Eté = 0 (heures solaires)"
    if DecalHiv = 1 and DecalEte = 1 then option$ = "Décalage Hiver = 1, et Décalage Eté = 1 (sans changement été-hiver)"
    if DecalHiv = 1 and DecalEte = 2 then option$ = "Décalage Hiver = 1, et Décalage Eté = 2 (situation actuelle)"
    if DecalHiv = 2 and DecalEte = 2 then option$ = "Décalage Hiver = 2, et Décalage Eté = 2 (sans changement été-hiver)"
    caption 5,caption$(5) + chr$(13) + option$
    Decal = DecalHiv : AlluCumul = 0
    item_add 10,"J  |    Lever du Soleil    |  Coucher du Soleil   |  Allumage du Jour   | Allumage Cumul"
    item_add 10,""
    For J = 1 To 365
        If J = 90 Then Decal = DecalEte
        If J = 361 Then Decal = DecalHiv
        ' calcul des heures de lever et de coucher
        ' Les formules varient selon la latittude du lieu
        ' Mais elles sont correctes pour la France et elles suffisent pour
        ' ce qu'on souhaite calculer
        LevSol = 6 + 2 * Cos(0.017214 * J)  : ' levsol = int(levsol*100+0.5)/100
        CouSol = 18 - 2 * Cos(0.017214 * J) : ' CouSol = int(CouSol*100+0.5)/100
        LevMoi = 6.5 - Decal  : ' Je me lève à 6 h 30
        CouMoi = 23 - Decal   : ' Je me couche à 23 h
        ' déterminer s'il faut allumer ; si oui, cumuler
        AlluJour = 0 : ' allumage des lampes dans la journée
        If LevMoi < LevSol Then AlluJour = LevSol - LevMoi
        If CouMoi > CouSol Then AlluJour = AlluJour + CouMoi - CouSol
        AlluCumul = AlluCumul + AlluJour
        ' affichage

        item$ = str$(j)+ " |  " + str$(LevSol)  + " |  " : ' + str$(LevMoi) + " |  "
        item$ = item$ + str$(CouSol) + " |  " : ' + str$(CouMoi) + " |  "
        item$ = item$ + str$(AlluJour) + " |  " + str$(AlluCumul)
        item_add 10,item$
    Next j
    caption 20,"Temps annuel d'allumage des lampes = " + str$(AlluCumul) + " heures"
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Heure d'été et heure d'hiver   

Revenir en haut Aller en bas
 
Heure d'été et heure d'hiver
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Heure d'hiver ... Heure d'été
» Garmin Nüvi 3790 LTM - Changement d'heure été/hiver
» Quelle heure est-il ?
» mettre à l'heure d'un autre pays
» Comment afficher toujours la bonne heure sans boucle infini?

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: