Compte à rebours pour l'éclipse solaire du 20/03/2015

rem ============================================================================
rem    Compte à rebours pour éclipse solaire du 20/03/2015
rem              Par Papydall
rem ============================================================================
rem Une éclipse solaire aura lieu le vendredi 20 mars 2015.
rem Elle sera visible dans certaines parties du monde.
rem En France, elle sera partielle, mais dans certains endroits en Europe elle
rem sera totale.
rem La prochaine éclipse solaire totale visible depuis la France aura lieu
rem le 3 septembre 2081.
rem ============================================================================
'                ATTENTION !!!! ATTENTION !!!! ATTENTION !!!!
rem Eclipse ou pas éclipse, il ne faut jamais regarder le soleil en face sans
rem protection ! Les dommages à l’œil peuvent être irrémédiables.
rem Il est fortement recommandé aux personnes souhaitant observer cette éclipse
rem de se munir des lunettes de protection spéciales qui peuvent se trouver chez
rem les opticiens, les pharmaciens ou dans les magasins spécialisés.
rem ============================================================================

label compte_a_rebours
dim dat1,dat2,sec,j,h,mn,n
dim result,dif,temp,t$,ville$
dim heure,minute,seconde,jour,mois,annee
dim heure2,minute2,seconde2,jour2,mois2,annee2

top 0,50 : left 0,screen_x-500 : width 0,480 : height 0,150
color 0,220,150,50 : font_color 0,0,0,255 : font_bold 0: font_size 0,14
caption 0,"Compte à rebours"
alpha 5
n = 24*3600 : ' nombre de secondes dans une journée
jour2 = 20 : mois2 = 03 : annee2 = 2015 : ' Date prévue de l'éclipse solaire
timer 10 : on_timer 10, compte_a_rebours

rem ============================================================================
' Heures de début de l'éclipse pour certaines villes de France
  heure2 = 09 : minute2 = 22 : seconde2 = 29 : ville$ = "Paris"
' heure2 = 09 : minute2 = 18 : seconde2 = 10 : ville$ = "Ardèche"
' heure2 = 09 : minute2 = 16 : seconde2 = 59 : ville$ = "Bouches-du-Rhône"
' heure2 = 09 : minute2 = 19 : seconde2 = 39 : ville$ = "Corse"
' heure2 = 09 : minute2 = 16 : seconde2 = 32 : ville$ = "Finistère"
' heure2 = 09 : minute2 = 25 : seconde2 = 07 : ville$ = "Pas-de-Calais"
' heure2 = 09 : minute2 = 25 : seconde2 = 01 : ville$ = "Vosges"
rem ============================================================================
Jour_Julien(jour2,mois2,annee2)    : dat2 = result
Frac_Jour(heure2,minute2,seconde2) : dat2 = dat2 + result
end
rem ============================================================================
compte_a_rebours:
  Get_Date_heure()
  Jour_Julien(jour,mois,annee)    : dat1 = result
  Frac_Jour(heure,minute,seconde) : dat1 = dat1 + result
  dif = (dat2-dat1) * n

  if dif > 0
      j = int(dif/n) : temp = dif - j*n
      h = int(temp/3600) : temp = temp -h*3600
      mn = int(temp/60) : temp = temp - mn*60
      sec = int(temp)
      t$ = "  Eclipse du Soleil prévue pour le : 20/03/2015 "  +chr$(13)
      t$ = t$ + "        " + ville$ + " à partir de : " + str$(heure2) + ":" +str$(minute2) +":" + str$(seconde2)+ chr$(13)
      t$ = t$ + "  C'est dans : " + str$(j) +" j "+str$(h)+" h "+str$(mn)+" mn " +str$(sec)+" s"
      caption 5, t$
  else
      timer_off 10
      message "L'heure de l'éclipse du soleil du 20/03/2015 est déjà dépassée !!!"
      terminate
  end_if
return

rem ============================================================================
' Déterminer le Jour Julien à partir d'une date
SUB Jour_Julien(jour,mois,annee)
    dim_local a,b,d,m,y
    d = jour : m = mois : y = annee
    if m < 3 then y = y - 1 : m = m + 12
    a = int(y/100) : b = 2 - a + int(a/4)
    result = int(365.25*(y+4716)) + int(30.6001*(m+1)) + d + b - 1524.5
END_SUB
rem ============================================================================
rem ============================================================================
' Lire la date et l'heuree système
SUB Get_Date_heure()
    heure  = val(mid$(time$,1,2))
    minute  = val(mid$(time$,4,2))
    seconde = val(mid$(time$,7,4))
    jour    = val(mid$(date$,1,2))
    mois    = val(mid$(date$,4,2))
    annee  = val(mid$(date$,7,4))
END_SUB
rem ============================================================================
SUB Frac_Jour(heure,minute,seconde)
    dim_local sec
    sec = seconde + minute*60 + heure*3600
    result = sec/n
END_SUB
rem ============================================================================