conversion de décimal en rationel

rem **********************************************
rem *** convertion de décimal en rationnel ***
rem **********************************************
rem **********************************************
rem *** Ecrit par LLS ***
rem *** Version 1.00 ***
rem *** copyright juin 2009 ***
rem **********************************************
rem définition d'étiquette
label calc,propos,reinit,result1,saut,quit
label pos80,pos90,pos120,pos130,pos160,pos170
rem déclaration de variables
dim a,b,c,s,m,m1,l,n,p,po,q,r,b$,n$,m$,sign$,resul$
rem caractéristique de la fenêtre
color 0,255,166,100
left 0,350
top 0,200
width 0,500
height 0,300
border_hide 0
rem bouton quitter
button 1
left 1,400 : top 1,250 : width 1,80 : height 1,30
hint 1,"Quitter l'application"
caption 1,"Quitter" : on_click 1,quit
rem bouton calcul
picture 2
left 2,440 : top 2,100 : width 2,32 : height 2,32
file_load 2,"calcul.bmp"
hint 2,"Calcul" : on_click 2,calc
rem bouton a propos
button 3
left 3,400 : top 3,210 : width 3,80 : height 3,30
caption 3,"A propos" : on_click 3,propos
rem logo
picture 4
left 4,20 : top 4,230 : width 4,98 : height 4,50
file_load 4,"logo.bmp"
rem titre du programme
alpha 5
left 5,45 : top 5,30
font_size 5,14 : font_color 5,255,0,0 : font_name 5,"comic sans ms"
caption 5,"CONVERSION DE DECIMAL EN RATIONNEL"
rem entrée des données
alpha 6
left 6,50 : top 6,80
font_size 6,12 : font_color 6,150,0,0 : font_name 6,"arial"
caption 6,"Entrez un nombre décimal"
edit 7
left 7,50 : top 7,100 : width 7,180 : height 7,30
font_size 7,11 : font_color 7,0,0,255 : font_name 7,"garamond"
on_click 7,reinit
alpha 8
caption 8,"résultat :"
hide 8
alpha 9
hide 9
end
rem *********************
rem ** SOUS PROGRAMMES **
rem *********************
calc:
file_load 2,"calculon.bmp"
wait 250
file_load 2,"calcul.bmp"
if text$(7) = "" then return
if numeric(text$(7)) = 0 then return
s = len (text$(7))
m = val (text$(7))
if m<0 then m1 = m * -1 : goto saut
m1 = m
saut:
if m1 = int (m1) then goto result1
n = int (m1) : n = m1-n : n$ = str$ (n)
a = len (n$)
b$ = right$ (n$,a-2)
r = len (b$) : REM if r>=8 then goto reinit
po = power (10,r)
l = m1 * po : p = power (10,r)
pos80:
if frac (l/2) = 0 and frac (p/2) = 0 then l=l/2 : p=p/2 : goto pos80
pos90:
if frac (l/3) = 0 and frac (p/3) = 0 then l=l/3 : p=p/3 : goto pos90
b = 5
if pif p>l then q=l
pos120:
c = sqr (q) + 3
pos130:
if b>=c then goto pos170
if frac (l/b) = 0 and frac (p/b) = 0 then goto pos160
b = b+2 : goto pos130
pos160:
l = l/b : p = p/b : goto pos120
pos170:
if m<0 then sign$="-"
if m>0 then sign$=" "
hide 2
show 8
left 8,130 : top 8,160
font_size 8,12 : font_color 8,50,29,255 : font_underline 8 : font_name 8,"comic sans ms"
show 9
left 9,130 : top 9,190
font_size 9,16 : font_color 9,100,30,255 : font_bold 9
resul$ = sign$ + str$(l) + "/" + str$(p)
caption 9,resul$
return
result1:
hide 2
show 8
left 8,130 : top 8,160
font_size 8,12 : font_color 8,50,29,255 : font_underline 8 : font_name 8,"comic sans ms"
show 9
left 9,130 : top 9,190
font_size 9,16 : font_color 9,100,30,255 : font_bold 9
m$ = str$ (m) + "/ 1"
caption 9,m$
return
reinit:
text 7,""
hide 8 : hide 9 : show 2
return
propos:
message "Conversion décimal en rationnel - Version 1.OO - Copyright 2009"
return
quit:
terminate