'----------------------------------------------------------------------------------
' Programme IdealPoids.bas Fait le 16 - fÈvrier 2017
' DerniËre Modifif le 17 - septembre 2017
'----------------------------------------------------------------------------------
    Dim taille$(200), age$(80)
    for i = 140 to 200 : taille$(i) = str$(i) : next i
    for i =  18 to  80 :    age$(i) = str$(i) : next i
   '-------------------------------------------------------------------------------
[InitColors]
    ForegroundColor$ = "Black"
    BackgroundColor$ = "Buttonface"
    TexteditorColor$ = "White"
    TextboxColor$    = "White"
    ComboboxColor$   = "lightgray"
    ListboxColor$    = "White"
[WindowSetup]
    nomainwin
    WindowWidth = 240
    WindowHeight = 400
    UpperLeftX = int((DisplayWidth- WindowWidth)/2)  'Centre la fenÍtre horizontalement ‡ l'Ècran
    UpperLeftY = int((DisplayHeight- WindowHeight)/2) 'Centre la fenÍtre verticalement ‡ l'Ècran
[GraphicSetup]
   '-------------------------------------------------------------------------------
    menu #main, "&File", "&Help", [Help], "&About", [About], |, "E&xit I.M.C.", [quit]
    button #main.button1, "Exit", [quit], UL, 135, 18, 80, 35
    button #main.button3, "OK", [OK], UL, 70, 295, 90, 35
    checkbox #main.cbx1, " Homme", [Homme], [waitHere],25, 80, 70, 20
    checkbox #main.cbx2, " Femme", [Femme], [waitHere],130, 80, 70, 20
   '-------------------------------------------------------------------------------
   'combobox #main, "backcolor 230 230 230"
   'ComboboxColor$ 230 230 230
   'print #main.combobox1, "backcolor 230 230 230"
    ComboboxColor$ = "buttonface"         '"buttonface"
    'ComboboxColor$ = "blue"
    combobox #main.combobox1, taille$(), [doCombo1], 130, 125, 80, 20
    combobox #main.combobox2,    age$(), [doCombo2], 130, 175, 80, 20
   '-------------------------------------------------------------------------------
    TextboxColor$ = "cyan"
    textbox #main.textbox15, 115, 230, 95, 40
   '-------------------------------------------------------------------------------
   'BackgroundColor$ = "lightgray"    'OK Áa marche
   'ForegroundColor$ = "darkblue"     'OK Áa marche
    open "Poids IdÈal - I M C" for graphics_nsb as #main
    print #main, "fill 230 230 230"
    print #main, "font ms_sans_serif 0 18"
    print #main, "trapclose [quit]"
    print #main.cbx1, "set"
   '.............................................................
    print #main, "backcolor 230 230 230"
    print #main, "color blue"
    print #main, "place 18 45"
   'print #main, "font arial 18 italic bold strikeout underscore"
    print #main, "font arial 24 italic bold "
    print #main, "\I.M.C."
   '.............................................................
    print #main, "place 15 140"
    print #main, "font arial 12 italic bold "
    print #main, "\Taille en cm"
   '.............................................................
    print #main, "place 15 190"
    print #main, "font arial 12 italic bold "
    print #main, "\Age (annÈes)"
   '.............................................................
    print #main, "color black"
    print #main, "place 15 245"
    print #main, "font arial 12 italic bold "
    print #main, "\Poids IdÈal"
    print #main, "\En Kilos"
   '.............................................................
    #main.textbox15, "!font ms_sans_serif 28 bold"
    wait
   '-------------------------------------------------------------------------------
[Help]
  notice "Version du Soft  V 2.5      "
 wait
 
[About]
  notice " I.M.C.  -->   Indice de Masse Corpoelle    "
 wait
 
[doCombo1]
 wait
 
[doCombo2]
 wait
 
[waitHere]
 wait
 
[Homme]
     print #main.cbx1, "set"
     print #main.cbx2, "reset"
     goto [waitHere]
   wait
 
[Femme]
     print #main.cbx2, "set"
     print #main.cbx1, "reset"
     goto [waitHere]
   wait
 
[quit]
    close #main
    End
 
[OK]
     ht$ = "" : ha$ = "" : ft$ = "" : fa$ = ""
     print #main.combobox1, "contents? ht$"
     print #main.combobox2, "contents? ha$"
 
       if ht$ = "" or ha$ = "" then
         #main.textbox15, " "
        goto [ici]
       end if
 
     ht$ = upper$(ht$) : ha$ = trim$(ha$)
 
     print #main.cbx1, "value? result1$"
     print #main.cbx2, "value? result2$"
 
     '/................................../
     '/          Homme                   /
     '/................................../
   if result1$ = "set" then
     t = 0 : a = 0 : p = 0
     t = val(ht$)
     a = val(ha$)
    'p = (t - 100) -((t - 150)/4) * 0.1
     p = t-100-((t-150)/4)+((a-20)/4)
     p = p - (p - int(p))
     #main.textbox15, " " + str$(p)
   end if
 
     '/................................../
     '/          Femme                   /
     '/................................../
   if result2$ = "set" then
     t = 0 : a = 0 : p = 0
     t = val(ht$)
     a = val(ha$)
    'p = (t - 100) -((t - 150)/2.5) * 0.1
     p = t-100-((t-150)/2.5)+((a-20)/6)
     p = p - (p - int(p))
     #main.textbox15, " " + str$(p)
   end if
     '-----------------------------------/
[ici]
 
 wait
 
     '................ Infos .......................
     ' Formule de Creff
     ' poids normal = (t - 100 + a / 10) * 0.9
     ' poids fine   = (t - 100 + a / 10) * 0.9 * 0.9
     ' poids large  = (t - 100 + a / 10) * 0.9 * 1.1
     '..............................................
     ' Formule de Lorenz
     ' Pour l'Homme:
     ' poids = (t - 100) -((t - 150)/4) * 0.1
     ' Pour la Femme:
     ' poids = (t - 100) -((t - 150)/2.5) * 0.1
     '..............................................