Rem distanza di due punti di note coordinate
ListBox1.AddItem (" d = sqr((x2-x1)^2 + (y2-y1)^2)")
x1 = 3
y1 = 5
x2 = -2
y2 = 4
ListBox1.AddItem ("p1(3,5) , p2(-2,4)")
d = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
ListBox1.AddItem ("distanza : " & d)
ListBox1.AddItem ("grafico con derive")
punti1.Visible = True
End Sub
Private Sub CommandButton10_Click()
punti1.Visible = False
punti2.Visible = False
punti3.Visible = False
punti4.Visible = False
punti5.Visible = False
punti6.Visible = False
punti7.Visible = False
End Sub
Private Sub CommandButton2_Click()
Rem distanza di due punti di note coordinate
ListBox1.AddItem (" d = sqr((x2-x1)^2 + (y2-y1)^2)")
x1 = 3
y1 = 5
x2 = -2
y2 = 5
ListBox1.AddItem ("p1(3,5) , p2(-2,5)")
d = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
ListBox1.AddItem ("distanza : " & d)
ListBox1.AddItem ("grafico con derive")
punti2.Visible = True
End Sub
Private Sub CommandButton3_Click()
Rem distanza di un punto dalla origine
ListBox1.AddItem (" d = sqr((x2-x1)^2 + (y2-y1)^2)")
x1 = 0
y1 = 0
x2 = 3
y2 = 4
ListBox1.AddItem ("p1(0,0) , p2(3,4)")
d = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
ListBox1.AddItem ("distanza : " & d)
ListBox1.AddItem ("grafico con derive")
punti3.Visible = True
End Sub
Private Sub CommandButton4_Click()
Rem coordinate punto di mezzo segmento
ListBox1.AddItem ("p1(x1,y1), p2(x2,y2)")
ListBox1.AddItem ("xm = (x1+x2)/2 ")
ListBox1.AddItem ("ym = (y1+y2)/2")
ListBox1.AddItem ("p1(1,2), p2(4,6)")
x1 = 1
y1 = 2
x2 = 4
y2 = 6
xm = (x1 + x2) / 2
ym = (y1 + y2) / 2
ListBox1.AddItem ("xm = " & xm & " , ym = " & ym)
punti4.Visible = True
End Sub
Private Sub CommandButton5_Click()
Rem coordinate baricentro triangolo
ListBox1.AddItem ("vertici triangolo")
ListBox1.AddItem ("p1(x1,y1), p2(x2,y2), p3(x3,y3)")
ListBox1.AddItem ("xb =(x1+x2+x3)/3 ...yb= (y1+y2+y3)/3 ")
x1 = 3
x2 = 1
x3 = 0
y1 = 4
y2 = 2
y3 = -1
xb = (x1 + x2 + x3) / 3
yb = (y1 + y2 + y3) / 3
ListBox1.AddItem (xb)
ListBox1.AddItem (yb)
punti5.Visible = True
End Sub
Private Sub CommandButton6_Click()
Rem distanza di un punto da una retta
ListBox1.AddItem ("p(x1,y1)...........(3,-2)")
ListBox1.AddItem ("ax + by +c = 0.....4x+3y-2=0")
ListBox1.AddItem ("distanza=(|ax1+by1+c|)/sqr(a^2+b^2)")
x1 = 3
y1 = -2
a = 4
b = 3
c = -2
d = Abs((a * x1 + b * y1 + c)) / Sqr(a ^ 2 + b ^ 2)
ListBox1.AddItem ("distanza = " & d)
punti6.Visible = True
End Sub
Private Sub CommandButton7_Click()
Rem distanza di un punto da una retta(asse y)e da origine
ListBox1.AddItem (" d = sqr((x2-x1)^2 + (y2-y1)^2)")
ListBox1.AddItem ("retta x=3 ....punto(3,2) ")
x2 = 3
y2 = 2
x1 = 0
y1 = 2
ListBox1.AddItem ("p1(3,2) , p2(0,2)")
d = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
ListBox1.AddItem ("distanza : " & d)
Rem distanza di un punto dalla origine
ListBox1.AddItem (" d = sqr((x2-x0)^2 + (y2-y0)^2)")
x0 = 0
y0 = 0
x2 = 3
y2 = 2
ListBox1.AddItem ("p1(0,0) , p2(3,2)")
d = Sqr((x2 - x0) ^ 2 + (y2 - y0) ^ 2)
ListBox1.AddItem ("distanza : " & d)
ListBox1.AddItem ("grafico con derive")
punti7.Visible = True
End Sub
Private Sub CommandButton9_Click()
ListBox1.Clear
End Sub
