Calcul de l'energie cinétique

dim P,V,Z,W

label calcul

caption 0,"Energie Cinétique":width 0,350:height 0,240

alpha 1:top 1,20:left 1,20:caption 1,"Poids du véhicule":font_name 1,"Arial"
scroll_bar 2:top 2,40:left 2,20:width 2,200:min 2,0:max 2,2000:on_change 2,calcul
alpha 3:top 3,42:left 3,230:caption 3,"0 kg":font_name 3,"Arial"
alpha 4:top 4,70:left 4,20:caption 4,"Vitesse du véhicule":font_name 4,"Arial"
scroll_bar 5:top 5,90:left 5,20:width 5,200:min 5,0:max 5,250:on_change 5,calcul
alpha 6:top 6,92:left 6,230:caption 6,"0 Km/h":font_name 6,"Arial"
alpha 7:top 7,160:left 7,20:font_size 7,14:font_name 7,"Times new roman"
font_color 7,255,0,0
alpha 8:top 8,130:left 8,20:caption 8,"Energie Cinétique :":font_name 8,"Times new roman"
font_size 8,14
end

calcul:
P=position(2)
V=(position(5)*1000)/3600
Z=(P/2)*(V*V)
caption 3,str$(position(2))+" Kg"
caption 6,str$(position(5))+" Km/h"
W=z*9.81
caption 7,str$(int(Z))+","+str$(int(frac(z)*100))+" Joules ou :  "+str$(int(w))+","+str$(int(frac(w)*100))+" Kg"
return