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
» Immortaliser les photos de famille
par Jean Claude Hier à 21:24

» Concours de Morpions
par jjn4 Hier à 16:34

» Tout est tranquille
par Jean Claude Ven 22 Sep 2017 - 21:41

» Texte en gif animé
par JL35 Ven 22 Sep 2017 - 13:29

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

» Compilateur FBPano
par jean_debord Ven 15 Sep 2017 - 9:59

» 1 (en analyse): 3D_TARGET_IS ne fonctionne pas sur 3D_TEXT
par Jack Jeu 14 Sep 2017 - 19:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

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

Partagez | 
 

 Heure d'été et heure d'hiver

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Laurent (Minibug)

avatar

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

MessageSujet: Heure d'été et heure d'hiver   Sam 6 Sep 2014 - 9: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
Laurent (Minibug)

avatar

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

MessageSujet: Re: Heure d'été et heure d'hiver   Mer 10 Sep 2014 - 19: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
Jicehel

avatar

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

MessageSujet: Re: Heure d'été et heure d'hiver   Mer 10 Sep 2014 - 22: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
Laurent (Minibug)

avatar

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

MessageSujet: Re: Heure d'été et heure d'hiver   Jeu 11 Sep 2014 - 10: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
Jicehel

avatar

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

MessageSujet: Re: Heure d'été et heure d'hiver   Jeu 11 Sep 2014 - 10: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
Laurent (Minibug)

avatar

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

MessageSujet: Re: Heure d'été et heure d'hiver   Ven 12 Sep 2014 - 21: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
JL35



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

MessageSujet: Re: Heure d'été et heure d'hiver   Ven 12 Sep 2014 - 21: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 : 5019
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Heure d'été et heure d'hiver   Ven 12 Sep 2014 - 22: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
Laurent (Minibug)

avatar

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

MessageSujet: Re: Heure d'été et heure d'hiver   Sam 13 Sep 2014 - 7: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
Jicehel

avatar

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

MessageSujet: Re: Heure d'été et heure d'hiver   Sam 13 Sep 2014 - 9: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 - 16:34

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

avatar

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

MessageSujet: Re: Heure d'été et heure d'hiver   Sam 13 Sep 2014 - 16: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
papydall

avatar

Nombre de messages : 5531
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 - 22: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
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Heure d’hiver: Changement du fuseau horaire de vos forums
» Changement d'heure : passage automatique à l'heure d'hiver
» la date des messages (heure, jour, mois, année) visible par tout le monde
» Afficher l'heure de l'envoie dans le message (Formulaire)
» Comment modifier l'heure de début ou l'heure de fin d'un enregistrement?

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: