Calcul de votre décalage horaire

[Le Soldat Inconnu]

salut,

un petit code juste pour donner votre décalage horaire, à compiler avec le debugger

Code : Tout sélectionner

Repeat
	GetSystemTime_(DateUTC.SYSTEMTIME)
	GetLocalTime_(DateLocale.SYSTEMTIME)
Until DateUTC\wSecond = DateLocale\wSecond ; Garantit que la lecture de la date s'est effectuée sur la même seconde
DateUTC_Seconde.q = Date(DateUTC\wYear, DateUTC\wMonth, DateUTC\wDay, DateUTC\wHour, DateUTC\wMinute, DateUTC\wSecond)
DateLocale_Seconde.q = Date(DateLocale\wYear, DateLocale\wMonth, DateLocale\wDay, DateLocale\wHour, DateLocale\wMinute, DateLocale\wSecond)

DecalageHoraire_Seconde.q = DateLocale_Seconde - DateUTC_Seconde
DecalageHoraire = DecalageHoraire_Seconde / 3600

CompilerIf #PB_Compiler_Debugger
	If DecalageHoraire > 0
		Debug "Votre fuseau horaire : GMT+" + Str(DecalageHoraire)
	Else
		Debug "Votre fuseau horaire : GMT" + Str(DecalageHoraire)
	EndIf
CompilerEndIf

J'en avais besoin, je suis en train d'essayer de coder un calcul pour déterminer les phases de la lune en fonction de la date. J'ai trouvé le code en JavaScript que j'essaie de le convertir en PB. (le code est dans la source de cette page http://portail.imcce.fr/fr/grandpublic/ ... /index.php )

[SPH]

Votre fuseau horaire : GMT+1

[Ar-S]

Si tu veux te servir aussi de ça n'hésite pas, je l'ai fait l'an dernier.
ça récupère et indique les dates de coupe (cheveux, épilation ^^), de jardinage et de période propice de pêche en se référent au calendrier lunaire. Je récupère donc ces calendriers sous forme d'images. Si tu veux compléter ton logiciel avec ces données n'hésite pas. Je me serts de cette adresse : http://www.calendrier-lunaire.net

Code : Tout sélectionner

; by Ar-S 2011


If InitNetwork()=0
  MessageRequester("Erreur","Connexion Internet introuvable, ce programme va se fermer",#MB_ICONEXCLAMATION)
  End
EndIf

Enumeration
  #ARS
  #BT_Jardin
  #BT_Coupe
  #BT_Peche
  #Progress
EndEnumeration


Global annee.s="2011"
Global path$=GetCurrentDirectory()
Global UrlLune$="http://www.calendrier-lunaire.net/imgs/calendriers/"

; Récupération image selon catégorie
Procedure RecupeImage(Categorie)
  
  If Categorie=1 ; Coupe et Epilation
    Categorie$="cheveux-"
    OutFile$="Coupe_"
  ElseIf Categorie=2 ; Jardin
    Categorie$="jardiner-avec-la-lune-"
    OutFile$="Jardin_"
  ElseIf Categorie=3 ; Peche
    Categorie$="pecher-avec-la-lune-"
    OutFile$="Peche_"
  EndIf
  erreur=0
  For I = 1 To 12  
    If ReceiveHTTPFile(UrlLune$+Categorie$+Str(I)+"-"+annee.s+".jpg", path$+OutFile$+Str(I)+".jpg")
      SetGadgetColor(#Progress,#PB_Gadget_FrontColor,RGB(AA,AA,I*15))
      SetGadgetState(#Progress,I)
      Debug Str(I)+" Succes "
      Delay(10)
    Else
      erreur+1
      Debug "Erreur"
    EndIf
  Next 
  
  If erreur>0
    MessageRequester("Terminé","Opération terminée, il y a eu "+Str(erreur)+" erreur(s).")
  Else
    MessageRequester("Terminé","Toutes les images ont été récupérées")
  EndIf
  
EndProcedure

If OpenWindow(#ARS, 410, 150, 392, 104, "Jardin/Pêche/Coupe via phase lunaire by Ar-S", #PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_MinimizeGadget)
  ButtonGadget(#BT_Jardin, 5, 5, 175, 30, "Jardin")
  ButtonGadget(#BT_Coupe, 5, 37, 175, 30, "Coupe et Epilation")
  ButtonGadget(#BT_Peche, 5, 70, 175, 30, "Peche")
  ProgressBarGadget(#Progress, 190, 5, 197, 95, 0, 12, #PB_ProgressBar_Smooth)
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Gadget
        Select EventGadget()
          Case #BT_Jardin
            RecupeImage(2)
          Case #BT_Coupe
            RecupeImage(1)
          Case #BT_Peche
            RecupeImage(3)
          Case #Progress
        EndSelect
      Case #PB_Event_CloseWindow
        Select EventWindow()
          Case #ARS
            CloseWindow(#ARS)
            Break
        EndSelect
    EndSelect
  ForEver
  
Else
  MessageRequester("Erreur","Impossible d'ouvrir le programme",$50)
EndIf

[Backup]

moi j'ai ça :

Code : Tout sélectionner

Declare.d FNMoonPhase(Year,Month,Day)
Declare.s mois_string(mois)

annee=2009
mois=06
Debug "Les phases lunaire pour le mois de "+mois_string(mois) +" auront lieu les :"
Debug " "
For i=1 To 31
    CircleType.d=FNMoonPhase(annee,mois,i)
    If CircleType>0.97 
        Debug Str(i)+" "+mois_string(mois)+"  Phase de la lune: Pleine lune"
        ElseIf CircleType<0.03 
        Debug Str(i)+" "+mois_string(mois)+"  Phase de la lune: Pas de lune"
        ElseIf(CircleType>0.46) And (CircleType<0.53)
        Debug Str(i)+" "+mois_string(mois)+"  Phase de la lune: 3/4 lune"
    EndIf
Next
; ******************************************************************************

Procedure.d FNMoonPhase(Year,Month,Day) 
    If Month<=2 
        Year=Year-1
        Month=Month+12
    EndIf
    
    Month=Month-3
    XYear=Year % 100
    Century=Int((Int(Year / 100)*146097) / 4)
    XYear=Int((XYear*1461) / 4)
    M.d=(Int(((((Month*153)+2)/ 5)+Day)+1721119+XYear+Century)+4.867)/29.53058
    ProcedureReturn Abs(2*(M-Int(M))-1) 
EndProcedure

Procedure.s mois_string(num)
    ProcedureReturn StringField("Janvier,Fevrier,Mars,Avril,Mai,Juin,Juillet,Aout,Septembre,Octobre,Novembre,Decembre",num,",")    
EndProcedure

[Le Soldat Inconnu]

Je ferais un sujet pour les phases de la lune dès que j'aurais terminé

Pour le moment, je l'ai codé à 50%.

Mais la, je sors de 2h de pelletage pour creuser une fosse dans mon futur garage (dans ma maison en construction, à Gergovie, vous devez au moins connaître le nom du patelin si vous lisez Astérix)
Donc pour le moment, je vais me posez devant la téloche parce que j'ai mal partout, et me faire une cochonnerie à manger, style croque-monsieur

++

[SPH]

Je ferais un sujet pour les phases de la lune dès que j'aurais terminé

Pour le moment, je l'ai codé à 50%.

Mais la, je sors de 2h de pelletage pour creuser une fosse dans mon futur garage (dans ma maison en construction, à Gergovie, vous devez au moins connaître le nom du patelin si vous lisez Astérix)
Donc pour le moment, je vais me posez devant la téloche parce que j'ai mal partout, et me faire une cochonnerie à manger, style croque-monsieur ++

on s'entendrais bien

[Kwai chang caine]

je sors de 2h de pelletage pour creuser une fosse dans mon futur garage

Quel courage, t'as pas loué une pelleteuse ??

à Gergovie, vous devez au moins connaître le nom du patelin si vous lisez Astérix

J'ai cru que c'etait en pologne
J'me suis dit, zut il va pas nous quitter au moins

@SPH

on s'entendrais bien

Aaaah toi aussi tu joue de la pelle ????

[Backup]

J'ai cru que c'etait en pologne
J'me suis dit, zut il va pas nous quitter au moins

il ne doit plus etre avec sa polonaise ... il a dit qu'il devait se faire a bouffer !

et me faire une cochonnerie à manger, style croque-monsieur

sinon , il aurai dit, "je vais me mettre les pieds sous la table"

[Le Soldat Inconnu]

elle est en déplacement en Italie, gros malin

sinon, je ne pense pas que la pelleteuse va rentrer dans le garage, et encore plus difficilement par le trou de la fosse dans la dalle, ou alors une pelleteuse en légo ...

[Ar-S]

Je ferais un sujet pour les phases de la lune dès que j'aurais terminé

Pour le moment, je l'ai codé à 50%.

Mais la, je sors de 2h de pelletage pour creuser une fosse dans mon futur garage (dans ma maison en construction, à Gergovie, vous devez au moins connaître le nom du patelin si vous lisez Astérix)
Donc pour le moment, je vais me posez devant la téloche parce que j'ai mal partout, et me faire une cochonnerie à manger, style croque-monsieur

++

Voilà une petite participation aux frais de tes travaux

[Kwai chang caine]

elle est en déplacement en Italie, gros malin

J'me suis fait la même réflexion...mais a la différence de DOBRO, et de sa légendaire délicatesse j'ai pas osé te le demander
J'me suis dit si elle est partie, il doit avoir de la peine, est ce bien nécessaire d'appuyer sur la plaie pour qu'elle gicle
Surtout qu'une polonaise en principe elle sont belles, y'en a plein qui font des voyages pour en ramener
Quand je vois les russes, j'dis que y'a pas que le soleil qui embellie les femmes

sinon, je ne pense pas que la pelleteuse va rentrer dans le garage, et encore plus difficilement par le trou de la fosse dans la dalle, ou alors une pelleteuse en légo ...

Maintenant il font des pelles plus petites que les voitures, certes elles remontent pas 600 Kg par godet, puisque ce doit pas être loin de leur poids
Mais avec ça, si on est un peu bricoleur...c'est tellement précis et petit, qu'on pourrait presque faire un curetage à sa femme

[Le Soldat Inconnu]

Bon allez, finis les âneries sinon je verrouille le sujet . On n'est pas pour se bagarrer dès que quelqu'un fait un pet de travers
Chacun à ses opinions, et ne peut pas avoir toutes les personnes du forum comme ami, ou de son avis, c'est comme dans la vie.

Bref ...

J'ai finis ma fosse dans mon garage. 1.3m3 de terre de sorti. Reste encore un grosse bombe de 50-60 kg (voir plus) à sortir. Bombe volcanique, hein
Et je n'ai pas trouvé de grand-mère enterrée, zut alors !

Pour dire que je bien fatigué. Mais que je vais avoir de beaux muscles (avec les courbatures qui vont avec)

[Kwai chang caine]

Tu as raison

Pour ce qui est des courbatures..je connais en principe il me faut la semaine de programmation pour oublier mon week-end
Les copains du boulot reviennent bronzé et tout droit, mois tout blanc et a quatre pattes

Ma terre a moi, c'est de la glaise, c'est top pour creuser des trous, pas de banchages...mais a la pelle faut oublier
J'ai creusé 5 caves de 10/15 m2....j'peux te dire que ça en fait du cubage...

T'as raison, les fosses c'est top, on en chie au début mais apres pour les vidanges on se bénie tous les jours de l'avoir faite
D'ailleurs ça me fait pensé que j'ai creusé ma première a 18 ans
Mais bon, maintenant, si je pouvais me payer un pont, c'est autour des 1000 Euros les pas cher, et ça evite aussi de se tordre
Seul blême faut de la hauteur

Bon alors ...re croc monsieur ce soir...

[Le Soldat Inconnu]

Non, j'ai plus de pain je vais être obligé de faire des pâtes

[Kwai chang caine]

La mienne elle me prépare tout avant de partir, elle bourre les frigos, elle a trop peur que je cuisine seul
Peut être qu'elle veut retrouver sa maison en rentrant, ou m’éviter l’hôpital

Quand j’étais célibataire, je mangeais tous les jours du riz (Facile a préparer et étouffe chrétiens)
Je me faisais un maxi saladier de plusieurs kg, et je piochait tous les jours
A la fin de la semaine, je le trouvais acide, j'me suis dit il a du commencer a dauber, ça me brulait l'estomac, mais j'ai quand même fini, pas de gaspillage, on m'a appris
Ce n'est qu’après avoir fini le saladier, que je me suis aperçu que le bocal de 3 litre de vinaigre des cornichons, était tombé sur l’étagère du dessus et s’était vidé dans mon riz.
Depuis que je lui ai raconté ça....j'ai plus accès a sa cuisine