Rem equazione segmentaria della retta
ListBox1.AddItem (" equazione ax + by + c = 0 con a,b,c <> 0")
ListBox1.AddItem ("interseca assi in due punti :A su asse x , B su asse y")
ListBox1.AddItem ("intercette :misure p (su asse x) e q (su asse y)")
ListBox1.AddItem ("p = OA , q = OB ")
ListBox1.AddItem ("coordinate : A (p,0) , B (0,q)")
ListBox1.AddItem ("risultano soddisfatte : ap + c = 0 , bq + c = 0")
ListBox1.AddItem ("e le relazioni :p = -c/a , q= -c/b ")
ListBox1.AddItem (" da cui (x/p) + (y/q) = 1 >>> equazione segmentaria della retta ")
ListBox1.AddItem ("-----------------------------------------------------------")
ListBox1.AddItem ("5x -2y +10 = 0")
For k = -5 To 5
x = k
y = (10 + 5 * x) / 2
ListBox1.AddItem (x & " , " & y)
Next k
ListBox1.AddItem ("intercette : A(-2,0) , B(0,5)")
segmentaria1.Visible = True
End Sub
Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub
Private Sub CommandButton3_Click()
segmentaria1.Visible = False
segmentaria2.Visible = False
End Sub
Private Sub CommandButton4_Click()
Rem scrivere equazione segmentaria della retta
ListBox1.AddItem ("5x-2y+10= 0")
ListBox1.AddItem ("A (p,0) , B (0,q) deve risultare vero :")
ListBox1.AddItem ("5p + 10 = 0 , -2q +10 = 0")
ListBox1.AddItem ("da cui : p = -2 , q = 5 ")
ListBox1.AddItem ("equazione segmentaria : (x / -2 )+ (y/5) = 1")
ListBox1.AddItem ("che sviluppata ridona : 5x -2y +10 = 0 ")
segmentaria2.Visible = True
End Sub
Private Sub CommandButton5_Click()
Rem interattivo
Dim p As Double
Dim q As Double
a = (TextBox1)
b = (TextBox2)
c = (TextBox3)
p = -c / a
q = -c / b
ListBox1.AddItem (" p = " & p & " , " & " q = " & q)
ListBox1.AddItem ("x " & "/" & p & " + " & "y" & "/" & q & " = " & 1)
For k = -5 To 5
x = k
y = (p * q - x * q) / p
ListBox1.AddItem (x & " , " & y)
If x = p Then
ListBox1.AddItem ("intercetta")
End If
If y = q Then
ListBox1.AddItem ("intercetta")
End If
Next k
ListBox1.AddItem ("--------------------------------")
End Sub
