partage de code - facteur premier

rem ************************************
rem * DECOMPOSITION EN FACTEUR PREMIER *
rem ************************************

rem création d'étiquette
label calc,propos,alert1,reinit,arret,quit
label pos30,pos40,pos60,pos70,pos90,pos100,pos130,pos140

rem définition de variables
dim b,c,n,q,z
dim b$,n$,q$,q2$,t$,z$

t$=""

rem taille de la fenêtre
color 0,0,82,130
left 0,250
top 0,120
width 0,550
height 0,250
border_hide 0

rem insertion de l'image de fond
picture 1
top 1,190 : left 1,430
file_load 1,"acequa.bmp"
rem hide 1

rem Titre de l'application
alpha 2
left 2,80
top 2,20
font_color 2,255,0,0
font_size 2,14
caption 2,"DECOMPOSITION EN FACTEUR PREMIER"

button 3
left 3,450 : top 3,100 : width 3,80 : height 3,30
caption 3,"Quitter"
on_click 3,quit

button 4
left 4,450 : top 4,140 : width 4,80 : height 4,30
caption 4,"A propos"
on_click 4,propos

rem Texte précédent l'entrée de données
alpha 5
top 5,70 : left 5,45
font_color 5,255,42,40
font_bold 5
font_size 5,12
caption 5,"Entrez un nombre entier"

rem Zone d'entrée de données
edit 6
top 6,68 : left 6,250 : width 6,100 : height 6,15
font_size 6,12

button 7
left 7,450 : top 7,60 : width 7,80 : height 7,30
caption 7,"Calculer"
on_click 7,calc

alpha 8
hide 8

edit 9
hide 9

rem tracé du cadre
2d_target_is 0
2d_pen_color 140,140,0
2d_pen_width 10
2d_line 0,0,550,0
2d_line 550,0,550,250
2d_line 550,250,0,250
2d_line 0,250,0,0

on_click 6,reinit
end

rem *******************
rem * sous-programmes *
rem *******************

calc:

rem Test d'erreur d'entrée de données
if text$(6) = "" then return
if numeric(text$(6)) = 0 then return
n = val (text$(6))
if n < 2 then return
if n <> int(n) then goto alert1

hide 7
rem calcul proprement dit
q$ = str$(n) : q = len (q$)

rem affiche de l'intitulé du résultat
show 8
left 8,30 : top 8,120
font_color 8,255,0,0
font_size 8,15
font_underline 8
font_name 8,"comic sans ms"
font_italic 8
caption 8,"RESULTAT"

rem tracé du cadre
2d_target_is 0
2d_pen_color 140,140,0
2d_pen_width 10
2d_line 0,0,550,0
2d_line 550,0,550,250
2d_line 550,250,0,250
2d_line 0,250,0,0


goto pos40

pos30:
z=2 : z$ = str$(z)
show 9
left 9,30 : top 9,160 : width 9,200 : height 9,30
t$ = t$ + z$ + "  "
font_size 9,12
text 9,t$
if n/2 = 1 then goto arret

n=n/2

pos40:
if frac(n/2)=0 then goto pos30
goto pos70

pos60:
q=3 : q2$=str$(q)
show 9
left 9,30 : top 9,160 : width 9,200 : height 9,30
t$ = t$ + q2$ + "  "
font_size 9,12
text 9,t$
if n/3=0 then goto arret

n=n/3

pos70:
if frac(n/3)=0 then goto pos60
b=3

pos90:
c=sqr(n)+1

pos100:
if b>=c then goto pos140
if frac(n/b)=0 then goto pos130
b=b+2 : goto pos100

pos130:
show 9
left 9,30 : top 9,160 : width 9,200 : height 9,30
b$ = str$(b)
t$ = t$ + b$ + "  "
font_size 9,12
text 9,t$
n=n/b : goto pos90

pos140:
show 9
left 9,30 : top 9,160 : width 9,200 : height 9,30
n$ = str$(n)
t$ = t$ + n$ + "  "
font_size 9,12
text 9,t$

return

alert1:
message "Entrez un nombre entier"
return

propos:
message "Décomposition en facteur premier - Version 1.00 - Copyright 2009"
return

reinit:
text 6," "
hide 8
hide 9
show 7
t$=""
return

arret:
end
return

quit:
terminate