Utile pour Noêl

REM 'Calcul de la masse corporelle Franki30
label calcule,fin
dim poids,taille,imc,TAILLEFIN
 left 0,200
 width 0,300
 height 0,310
 caption 0,"Calcul de la Masse Corporelle..."

 edit 1
 top 1,25
 left 1,50
width 1,50

 edit 2
 top 2,70
 left 2,50
 width 2,50

 button 3
 top 3,250
 left 3,200
 caption 3,"Quit"
 alpha 4

 top 4,160
 left 4,110
2d_pen_color 255,0,0
 2d_rectangle 109,159,177,178
 color 4,255,255,255

top 0,100
 2D_pen_color 0,0,0
 2d_rectangle 10,10,200,50
 print_locate 10,5

 print "Entrer votre poids..."
print_locate 105,33
print "Kg."
rem ' taille
2d_rectangle 10,60,200,100
print_locate 10,55
print "Entrer votre taille..."
print_locate 105,79
print "Mètre."

2d_rectangle 10,120,290,150
print_locate 11,130
print "Valeur de l'Indice de Masse Corporelle."
2d_rectangle 10,205,250,250
print_locate 30,200
print "Résultat du calcul."

calcule:
 display
 if numeric(text$(1))=1 and numeric(text$(2))=1

 poids=VAL(TEXT$(1))
 taille=VAL(TEXT$(2))
 TAILLEFIN=TAILLE*TAILLE
 IF POIDS>150

 imc=poids/TAILLEFIN
 POIDS=150
  MESSAGE "Infèrieur a 150 KG"
 text 1,"150"
 goto calcule
 end_if

 print_locate 115,160
 if imc=>18 and imc=<25
 print_locate 80,220

 print "- Normal-"

 end_if
if imc=>26 and imc=<30
print_locate 80,220
print "-Surpoids-"



 end_if
 if imc=>31
 print_locate 80,220
 print "- Obèse -"

 end_if
 IF IMC>18
print_locate 128,160
 print INT( imc);"  "
 END_IF
 end_if


 on_click 3,fin
 goto calcule
fin:
 terminate

REM 'Calcul de la masse corporelle Franki30
label calcule,fin
dim poids,taille,imc,TAILLEFIN
left 0,200
width 0,300
height 0,310
caption 0,"Calcul de la Masse Corporelle..."

edit 1
top 1,25
left 1,50
width 1,50

edit 2
top 2,70
left 2,50
width 2,50

button 3
top 3,250
left 3,200
caption 3,"Quit"
alpha 4

top 4,160
left 4,110
2d_pen_color 255,0,0
2d_rectangle 109,159,177,178
color 4,255,255,255

button 5
top 5,160
left 5,20
caption 5,"Calculer"
on_click 5,calcule
alpha 6
top 6,220
left 6,40
alpha 7
top 7,220
left 7,150

top 0,100
2D_pen_color 0,0,0
2d_rectangle 10,10,200,50
print_locate 10,5

print "Entrer votre poids..."
print_locate 105,33
print "Kg."
rem ' taille
2d_rectangle 10,60,200,100
print_locate 10,55
print "Entrer votre taille..."
print_locate 105,79
print "Mètre."

2d_rectangle 10,120,290,150
print_locate 11,130
print "Valeur de l'Indice de Masse Corporelle."
2d_rectangle 10,205,250,250
print_locate 30,200
print "Résultat du calcul."

on_click 3,fin

end

calcule:
' display
caption 7,""
caption 6,""
if (numeric(text$(1))=1) and (numeric(text$(2))=1)

    poids=VAL(TEXT$(1))
    taille=VAL(TEXT$(2))
    TAILLEFIN=TAILLE*TAILLE
    IF POIDS>150

'        imc=poids/TAILLEFIN
        POIDS=150
        MESSAGE "Infèrieur a 150 KG"
        text 1,"150"
'        goto calcule
        return
    end_if

    imc=poids/TAILLEFIN
'    print_locate 115,160
    if imc=>18 and imc=<25
'        print_locate 80,220

'        print "- Normal-"
        caption 6,"- Normal-"

    end_if
    if imc=>26 and imc=<30
'        print_locate 80,220
'        print "-Surpoids-"
        caption 6,"-Surpoids-"


    end_if
    if imc=>31
'        print_locate 80,220
'        print "- Obèse -"
        caption 6,"- Obèse -"

    end_if
    IF IMC>18
'        print_locate 128,160
'        print INT( imc);" "
        caption 7,str$(int(imc))
    END_IF
end_if


' on_click 3,fin
' goto calcule
return

fin:
terminate