Je devine votre date anniversaire.

' ******************************************************************************
'    Je devine votre anniversaire
'      Devine.bas par Papydall
' ******************************************************************************
label deviner,rejouer,quitter
dim n

run() : end

end
' *****************************************************************************
deviner:
    inactive 8
    if text$(5) <> ""
      if numeric(text$(5)) > 0
          n = val(text$(5))
      else
          message "Valeur numérique SVP !" :text 5,"" :set_focus 5 : return
      end_if
    else
      message " Vous n'avez pas saisi de valeur !" :text 5,"" :set_focus 5 : return
    end_if
    calculer(n)
return
' ******************************************************************************
SUB calculer(n)
    dim_local m,j,m$
    m = mod(n,12) : j = (n-m*37)/12
    if m = 0 then m = 12 : j = j-37
    if (j <= 0  or j > 31 or m = 0 or (j > 29 and m = 2)) or ((m=4 or m=6 or m=9 or m=11) and j > 30)
      message "La valeur saisie est INCORRECTE !!" +chr$(13) +"Vous avez fait une erreur de calcul !!"
      text 5,"" :set_focus 5 : exit_sub
    end_if

    select m
      case 1 : m$ = " Janvier"
      case 2 : m$ = " Février"
      case 3 : m$ = " Mars"
      case 4 : m$ = " Avril"
      case 5 : m$ = " Mai"
      case 6 : m$ = " Juin"
      case 7 : m$ = " Juillet"
      case 8 : m$ = " Août"
      case 9 : m$ = " Septembre"
      case 10: m$ = " Octobre"
      case 11: m$ = " Novembre"
      case 12: m$ = " Décembre"
    end_select
    message " Votre anniversaire est le : "+str$(j)+ m$
    active 8
end_sub
' ******************************************************************************
sub run()
    hide 0
    form 1 : top 1,200 : left 1,300 : height 1,300 : width 1,400 : color 1,200,150,100
    caption 1,"Je dévine votre date anniversaire"
    alpha 2 : parent 2,1 : top 2,10 : left 2,10 : font_color 2,255,255,10
    font_bold 2 : caption 2,"Multipliez votre jour de naissance par 12"
   
    alpha 3 : parent 3,1 : top 3,40 : left 3,10 : font_color 3,50,100,200
    font_bold 3 : caption 3,"Ensuite multipliez votre N° de mois de naissance par 37"
   
    alpha 4 : parent 4,1 : top 4,70 : left 4,10 : font_color 4,10,255,10
    font_bold 4 : caption 4,"Enfin ajoutez ces deux produits et entrez le résultat"
   
    edit 5 : parent 5,1 : top 5,100 : left 5,120 : set_focus 5
    alpha 6 : parent 6,1 : top 6,130 : left 6,120 : font_color 6,0,0,0
    font_bold 6 : caption 6,"Puis cliquez sur OK"
   
    button 7 : parent 7,1 : top 7, 160 : left 7,150 : caption 7,"OK"
    on_click 7,deviner
   
    button 8 : parent 8,1 : top 8,200 : left 8,100 : caption 8,"Rejouer"
    on_click 8,rejouer : inactive 8
    button 9 : parent 9,1 : top 9,200 : left 9,200 : caption 9,"Quitter"
    on_click 9, quitter
end_sub
' ******************************************************************************
rejouer:
 text 5,"" : set_focus 5 : inactive 8
return
' ******************************************************************************
quitter:
terminate
return
' ******************************************************************************