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
» Découpe dans une image
par JL35 Hier à 23:03

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par Marc Hier à 21:51

» Pour faire plaisir à Marc37.
par Marc Hier à 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Hier à 14:03

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Mer 21 Fév 2018 - 22:44

» KGF_dll - nouvelles versions
par Klaus Mer 21 Fév 2018 - 22:30

» Mah-Jong anglais
par jjn4 Mer 21 Fév 2018 - 14:22

» Partie fractionnaire d'un flottant
par silverman Mer 21 Fév 2018 - 14:19

» bug CREATE_HIDE : corruption de form
par silverman Mer 21 Fév 2018 - 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Mer 21 Fév 2018 - 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Mer 21 Fév 2018 - 7:47

» [annulé]ON_MOVE n,l ne fonctionne que sur le form 0
par silverman Mar 20 Fév 2018 - 16:52

» Ludothèque Panoramic
par jjn4 Mar 20 Fév 2018 - 15:42

» Calculus
par Ouf_ca_passe Mar 20 Fév 2018 - 9:06

» 6 (en analyse):confusion de variable locale entre SUB et FNC
par Jack Mar 20 Fév 2018 - 8:18

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    
CalendrierCalendrier

Partagez | 
 

 Heure d'été et heure d'hiver

Aller en bas 
AuteurMessage
Minibug

avatar

Nombre de messages : 2522
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 : 2522
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 : 5895
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 : 2522
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 : 5895
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 : 2522
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 : 6148
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 : 5174
Age : 63
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 : 2522
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 : 5895
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 : 2522
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 : 5744
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: