je ne vois pas trop quoi faire pour qu’il me retourne un pourcentage sur
100% avec la prcision qui va avec… pour l’instant a retourne 30 pour
pleine lune noire et 15 pour pleine lune blanche…
vous voulez bien m’aider ?
je vous met les source modifier a ma faon…
dim ph as Double = MoonAge( d2,m,y) rem demande de pourcentage de la lune
methode MoonAge(d as Integer, m as Integer, y as Integer) as Double
dim j as Integer = JulianDate(d, m, y)
Dim ip As Double
Dim ag As Double
//Calculate the approximate phase of the moon
ip = (j + 4.867) / 29.53059
ip = ip - Floor(ip)
//After several trials I’ve seen to add the following lines, //which gave the result was not bad
if(ip < 0.5) then
ag = ip * 29.53059 + 29.53059 / 2
else
ag = ip * 29.53059 - 29.53059 / 2
end if
// Moon’s age in days
'ag = Floor(ag) + 1
ag = round(ag) + 1
return ag
methode JulianDate(d as Integer, m as Integer, y as Integer) as Integer
dim mm, yy as Integer
dim k1, k2, k3 as Integer
dim j as Integer
yy = y - Floor((12 - m) / 10)
mm = m + 9
if (mm >= 12) then mm = mm - 12
k1 = floor((365.25 * (yy + 4712)))
k2 = floor((30.6001 * mm + 0.5))
k3 = floor(floor((yy / 100) + 49) * 0.75) - 38
// ‘j’ for dates in Julian calendar:
j = k1 + k2 + d + 59
// For Gregorian calendar:
if (j > 2299160) then j = j - k3 // ‘j’ is the Julian date at 12h UT (Universal Time)
return j
il y a un round (ou floor qui est presque pareil) la fin de la mthode moonage.
du coup on es arrondi l’entier prs.
si on enlve ce round ag=ag+1
cela ne donnerait il pas directement le bon rsultat ?
[quote=403965:@Jean-Yves Pochez]il y a un round (ou floor qui est presque pareil) à la fin de la méthode moonage.
du coup on es arrondi à l’entier près.
si on enlève ce round ag=ag+1
cela ne donnerait il pas directement le bon résultat ?[/quote]
oui mais ça reste dans la fourchette de 0 a 30, mois ce que je veux c’est que la fourchette soit de 0 a 100 et que la précision soit au rdv, en fait la lune a 0% c’est plaine lune noire et a 100% c’est pleine lune blanche, c’est ce que je recherche mais comme je le dis avec la présision du calcule et non pas en convertissant le resultat de 0 a 30 en pourcent ce qui reviendrait au même…
si on donne un jour seulement comme valeur de dpart (jour-mois-anne)
on aura une lune prcise au jour prs.
il faudrait avoir un calcul qui prend en compte l’heure et la minute de calcul
sinon la prcision 0.01 prs sur 100 (ce qui reprsente un peu plus de 4 minutes …)
ne sera jamais atteinte !
pour un calcul au jour prs, la valeur entre 0 et 30 est plus que suffisante.
sur la page indique au dessus, on peut afficher le source de la page, c’est du javascript
il y a une liste de 5200 elements pour calculer la phase de la lune … il n’y a qu’ recopier !
view-source:http://www.giangrandi.ch/soft/mooncalc/mooncalc.shtml
MOUARF, trop drle, je n’y avais pas pens, je vais voir… merci j’ai dj russi a traduire du java en Xojo, a devrait le faire, je vous tiens au courant de la suite, merci encore
[quote=404010:@Jean-Yves Pochez]sur la page indiquée au dessus, on peut afficher le source de la page, c’est du javascript
il y a une liste de 5200 elements pour calculer la phase de la lune … il n’y a qu’à recopier !
view-source:http://www.giangrandi.ch/soft/mooncalc/mooncalc.shtml[/quote]
je me perd dans ce truc, pourrait tu me copier et coller ici le source qui calcul les lunes, et j’essaierait de faire le reste, java je connait pas, mais si c’est une fonction je peux m’y retrouver je pense, sinon je ferait appel a vous les pros
je pense pas que les gens de xojo aimeront que je pollue leur forum avec un tableau de 5200 lignes …
si tu n’arrives pas extraire le source de la page que j’ai indique, je ne suis vraiment pas sur que tu sauras le traduire en xojo !
L je pense que j’ai la solution et que a va marcher, merci encore… quelque soit le temps que je passe a traduire le code, le rsultat sera ce que je cherche car l c’est un tableau et l pas d’erreur de calcule me semble t’il
Un GRAND MERCI, je vais pouvoir faire quelque chose avec a, mme si a va demander de la manipulation pour grer ces tableau la solution est l… en esperant que le calcule soit bon parce que si c’est pour donner le mme resultat que les source que j’ai utlis je ne serait pas plus avancer, je vais verifier si l’anne 2018 est bonne et je te dis a