Equation d'une droite

rem EQUATION D'UNE DROITE A PARTIR DE DEUX POINTS
rem VERSION 1.02
rem Copyright juin 2009
rem Création d'étiquette
label calcul,annul,alert1,pun,pdeux,choix,saut,boucle,propos
rem définition de variable
dim x1,y1,x2,y2,x,y,z
dim a,b,p,n,u,k,g,h,i,c,u1,u2
dim a$,b$,x1$,y1$,x2$,y2$,tx$
rem taille de la fenêtre
color 0,32,184,126
left 0,350
top 0,180
width 0,500
height 0,350
caption 0,"Equation d'une droite"
border_hide 0
alpha 1
left 1,15
top 1,15
font_size 1,14
caption 1,"Equation d'une droite à partir de deux points"
alpha 2
left 2,15
top 2,50
font_size 2,12
caption 2,"POINT A (x1)"
edit 3
left 3,120
top 3,48
width 3,80
height 3,25
font_size 3,12
alpha 4
left 4,270
top 4,50
font_size 4,12
caption 4,"POINT A (y1)"
edit 5
left 5,375
top 5,48
width 5,80
height 5,25
font_size 5,12
alpha 6
left 6,15
top 6,85
font_size 6,12
caption 6,"POINT B (x2)"
edit 7
left 7,120
top 7,83
width 7,80
height 7,25
font_size 7,12
alpha 8
left 8,270
top 8,85
font_size 8,12
caption 8,"POINT B (y2)"
edit 9
left 9,375
top 9,83
width 9,80
height 9,25
font_size 9,12
button 10
left 10,120
top 10,150
width 10,100
height 10,30
caption 10,"CALCULER"
on_click 10,calcul
button 11
left 11,370
top 11,150
width 11,100
height 11,30
caption 11,"Quitter"
on_click 11,annul
edit 13 :hide 13
picture 14
top 14,135
left 14,10
file_load 14,"acequa.jpg"
button 15
left 15,245 : top 15,150 : width 15,100 : height 15,30
caption 15,"A propos"
on_click 15,propos
end

calcul:
if text$(3) = "" then return
if text$(5) = "" then return
if text$(7) = "" then return
if text$(9) = "" then return
if numeric(text$(3)) = 0 then return
if numeric(text$(5)) = 0 then return
if numeric(text$(7)) = 0 then return
if numeric(text$(9)) = 0 then return
rem captage du point A abscisse
x1=val (text$(3))
rem captage du point A ordonnée
y1=val (text$(5))
rem captage du point B abscisse
x2=val (text$(7))
rem captage du point B ordonnée
y2=val (text$(9))
y=y2-y1:x=x2-x1
if x=0 then goto alert1
a=y/x:b=y1-(x1*a)
if a <> int (a) then gosub pun
if a = int (a) then a$=str$(a)
if b <> int (b) then gosub pdeux
if b = int (b) then b$=str$(b)
rem concerne l'edit 13
tx$="Y= "+a$+"x +"+b$
font_color 13,33,64,161
font_size 13,24
left 13,20
top 13,250
width 13,400
height 13,40
text 13,tx$
show 13
return
alert1:
button 12
left 12,20
top 12,250
width 12,400
height 12,30
caption 12,"La droite est parrallèle à l'axe Y"
on_click 12,annul
return

pun:
p=1
gosub choix
return
pdeux:
p=2
gosub choix
return
choix:
if p=1 then n=a
if p=2 then n=b
u=n:z=int (n):k=z:g=1:h=1:i=0
boucle:
if abs (n-k/g) < 0.000000001 then goto saut
if u-z=0 then goto saut
u1=u-z:u2=-1
u=power(u1,u2)
z=int (u)
c=(k*z)+h
h=k
k=c
c=(g*z)+i
i=g
g=c
goto boucle
saut:
if p=1 then a$=str$(k)+"/"+str$(g)
if p=2 then b$=str$(k)+"/"+str$(g)
return
propos:
message "Equation d'une droite - Version 1.02 - Copyright juin 2009"
return
annul:
terminate