calcul temps au Km et vitesse horaire

bonjour a tous
voici un petit prg permettant de connaitre le temps au kilometre d'une course ainsi que la vitesse horaire de cette couse.
je suis parti du temps mis par un cheval (trotteur) connaissant la distance et le temps.
j'ai réduit tous les temps en centièmes de seconde .
reste l'affichage de la vitesse horaire qui me pose problème. je voudrai seulement 5 décimales
apres le point(ou la virgule). qui peu me dire ?

error_french

' ***************************************************
' * temps pour 1000 mètres d'une course et calcul *
' * de la vitesse horaire par Rmont *
' **************************************************
dim mn,sec
dim cent ,cent1 ,cent2,transfocomplete
dim rk,rk1
dim dist ,vit
dim a$ ,b$ , c$ ,dist$ ,sec$ ,temps$ ,rk1$

label minutes
label secondes
label centiemes
label distance
label resultat

caption 0," REDUCTION KILOMETRIQUE et VITESSE HORAIRE "
left 0,500 : width 0,450

alpha 1
top 1,20:left 1,150
caption 1,"Distance en Mètres"

edit 2
top 2,40:left 2,170:height 2,20:width 2,60
set_focus 2
on_change 2,distance

alpha 5
top 5,120:left 5,160
caption 5,"temps de la course"

alpha 6
top 6,140:left 6,90
caption 6,"minutes"

alpha 7
top 7,140:left 7,180
caption 7,"secondes"

alpha 8
top 8,140:left 8,280
caption 8,"centièmes"

edit 9
top 9,160:left 9,90:height 9,20:width 9,40
on_change 9,minutes

edit 10
top 10,160:left 10,182:height 10,20:width 10,40
on_change 10,secondes

edit 11
top 11,160:left 11,280:height 11,20:width 11,40
on_change 11,centiemes

alpha 15
hide 15
top 15,270:left 15,140
caption 15," TEMPS au KILOMETRE "

edit 20
hide 20
left 20,130:top 20,290:height 20,30:width 20,160

button 25
hide 25
top 25,220:left 25,170
caption 25,"Resultat "
on_click 25,resultat

alpha 30
hide 30
top 30,350 : left 30,130 +20: caption 30," VITESSE HORAIRE"

edit 35
hide 35
top 35,370 : left 35,110+20 : height 35,30 : width 35,160

end

distance:
dist$=text$(2)
if numeric(dist$)=1 then dist=val(dist$)
return

minutes:
' transformation en centiemes de secondes
a$=text$(9)
if numeric(a$)=1 then mn=val(a$)
cent=(mn*60)*100
return

secondes:
' transformation en centiemes de secondes
b$=text$(10)
if numeric(b$)=1 then sec= val(b$)
cent1=sec*100
return

centiemes:
c$=text$(11)
if numeric(c$)=1 then cent2=val(c$)
transfocomplete=cent+cent1+cent2:' temps total en centiemes de secondes
wait 20
show 25
return

resultat:
rk=int(transfocomplete*1000)/dist

if rk>0 and rk<6000 then rk1=rk : sec=int(rk/100)
if rk=>6000 and rk<12000 then rk1=rk-6000 : sec=int(rk-6000)/100
if rk=>12000 and rk<18000 then rk1=rk-12000 : sec=int(rk-12000)/100
if rk=>18000 and rk<24000 then rk1=rk-18000 : sec=int(rk-18000)/100
if rk=>24000 and rk<30000 then rk1=rk-24000 : sec=int(rk-24000)/100

rk1=int(rk1)
mn=int(rk/6000)
sec=int(sec)
rk1$=str$(rk1)
cent=right$(rk1$,2)

' pour la vitessse horaire
vit= ((dist*360000) /transfocomplete)/1000 :' résultat en Km/h

show 15
show 20
show 30
show 35
text 20 ," "+str$(mn)+" MN "+str$(sec)+" SEC "+str$(cent)+" CENT"
font_size 35,12 : font_bold 35
text 35 ," "+str$(vit) +" Km/h"
return

Si ton résultat km/h est de 62,568956238554

r=62,568956238554

r1$=str$(int(r))  ' valeur de l' entier en lettre
r2$=str$(frac(r)) ' valeur de la fraction en lettre
r2$=mid$(r2$,3,5) ' 5 caractères après la virgule

r$=r1$+","+r2$  ' recomposition du r en lettre

Code:

dim r,r1$,r2$

r=62.568956238554
r1$=str$(int(r))
r2$=str$(frac(r))
r2$=mid$(r2$,3,5)

print r1$+","+r2$

Bonjour RMont

J’ai juste vu le résultat du programme : Joli petit programme.
Pour répondre à ta question, modifie la ligne  135 comme ceci :

Code:

text 35 ," "+ str$(int(vit*100000)/100000) + " Km/h"

Pour obtenir N décimales, tu multiplies et divises par 1 suivi de N zéros  

REMARQUE :
Mets ton code entre les 2 balises [code ] et [/code ] sans aucune espace entres les crochets [ et ]

EDIT : Je n'ai pas vu la réponse de Ygeronimi qui est correcte mais la mienne est plus concise, non ? et surtout ne nécessite pas d'autres variables!

Bravo Rmont,
Ton code est bien structuré et son calcul est juste.
Concernant l'insertion du code dans le forum je viens de déposer un article dans le webdav de Ygeronimi (articles corrigés)
A+

C'est sans prétention.

Code:

print_using(12.3456334565434,11)
print retour
end
sub Print_using(nombre,decimales%)
    if variable("retour") = 0 then dim retour
    retour = int(nombre)+val(left$(str$(frac(nombre)),decimales%+2))
end_sub
   

@ Jean Claude,

Astuce publié sur le site "Vie du forum"

@ mumu,

 Très joli !!!...

@Rmont
clique la dessus tu as la réponse à ton souci: http://monpanoramic.funpic.org/vie_du_forum_017.htm

@Mumu,
Bonne solution.