funzione grafica cerchio

grafico di cerchio di equazione assegnata
si calcolano le coordinate del centro e il raggio
si scrive la equazione equivalente per creare il grafico con derive
esercitazione con visual basic su powerpoint
moduli ripetitivi, senza ricorso a procedure per didattica

Private Sub CommandButton1_Click()
Rem grafico cerchio
Rem x^2 + y^2 +ax +by + c = 0
ListBox1.AddItem ("equazione generica : x^2 + y^2 + ax + by + c=0")
ListBox1.AddItem ("coordinate centro : c (-a/2 , -b/2)")
ListBox1.AddItem ("raggio = sqr( a^2/4 + b^2/4 - c )")
ListBox1.AddItem ("------------------------------------------")
ListBox1.AddItem ("equazione = x^2 +y^2 -4x +6y -3 =0")
a = -4
b = 6
c = -3
centro1 = -(a / 2)
centro2 = -(b / 2)
raggio = Sqr((a ^ 2 / 4 + b ^ 2 / 4 - c))
ListBox1.AddItem ("coordinate centro = " & centro1 & " , " & centro2)
ListBox1.AddItem ("raggio = " & raggio)
ListBox1.AddItem ("(x-centro1)^2 + (y - centro2)^2 = raggio^2 ")
ListBox1.AddItem ("equazione equivalente : (x-2)^2 + (y+3)^2 = 16")
ListBox1.AddItem ("creazione grafico con derive e paint")
Image1.Visible = True
End Sub

Private Sub CommandButton2_Click()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
End Sub

Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton4_Click()
Rem grafico cerchio
Rem x^2 + y^2 +ax +by + c = 0
ListBox1.AddItem ("equazione generica : x^2 + y^2 + ax + by + c=0")
ListBox1.AddItem ("coordinate centro : c (-a/2 , -b/2)")
ListBox1.AddItem ("raggio = sqr( a^2/4 + b^2/4 - c )")
ListBox1.AddItem ("------------------------------------------")
ListBox1.AddItem ("equazione = x^2 +y^2 -16 =0")
a = 0
b = 0
c = -16
centro1 = -(a / 2)
centro2 = -(b / 2)
raggio = Sqr((a ^ 2 / 4 + b ^ 2 / 4 - c))
ListBox1.AddItem ("coordinate centro = " & centro1 & " , " & centro2)
ListBox1.AddItem ("raggio = " & raggio)
ListBox1.AddItem ("(x-centro1)^2 + (y - centro2)^2 = raggio^2 ")
ListBox1.AddItem ("equazione equivalente : (x^2 + (y)^2 = 16")
ListBox1.AddItem ("creazione grafico con derive e paint")
Image2.Visible = True

End Sub

Private Sub CommandButton5_Click()
Rem grafico cerchio
Rem x^2 + y^2 +ax +by + c = 0
ListBox1.AddItem ("equazione generica : x^2 + y^2 + ax + by + c=0")
ListBox1.AddItem ("coordinate centro : c (-a/2 , -b/2)")
ListBox1.AddItem ("raggio = sqr( a^2/4 + b^2/4 - c )")
ListBox1.AddItem ("------------------------------------------")
ListBox1.AddItem ("equazione = x^2 +y^2 -6x +8y =0")
a = -6
b = 8
c = 0
centro1 = -(a / 2)
centro2 = -(b / 2)
raggio = Sqr((a ^ 2 / 4 + b ^ 2 / 4 - c))
ListBox1.AddItem ("coordinate centro = " & centro1 & " , " & centro2)
ListBox1.AddItem ("raggio = " & raggio)
ListBox1.AddItem ("(x-centro1)^2 + (y - centro2)^2 = raggio^2 ")
ListBox1.AddItem ("equazione equivalente : (x-3)^2 + (y+4)^2 = 25")
ListBox1.AddItem ("creazione grafico con derive e paint")
Image3.Visible = True
End Sub

Private Sub CommandButton6_Click()
Rem grafico cerchio
Rem x^2 + y^2 +ax +by + c = 0
ListBox1.AddItem ("equazione generica : x^2 + y^2 + ax + by + c=0")
ListBox1.AddItem ("coordinate centro : c (-a/2 , -b/2)")
ListBox1.AddItem ("raggio = sqr( a^2/4 + b^2/4 - c )")
ListBox1.AddItem ("------------------------------------------")
ListBox1.AddItem ("equazione = 2x^2 +2y^2 -8x - 12y +8 =0")
a = -4
b = -6
c = 4
centro1 = -(a / 2)
centro2 = -(b / 2)
raggio = Sqr((a ^ 2 / 4 + b ^ 2 / 4 - c))
ListBox1.AddItem ("coordinate centro = " & centro1 & " , " & centro2)
ListBox1.AddItem ("raggio = " & raggio)
ListBox1.AddItem ("(x-centro1)^2 + (y - centro2)^2 = raggio^2 ")
ListBox1.AddItem ("equazione equivalente : (x-2)^2 + (y-3)^2 = 9")
ListBox1.AddItem ("creazione grafico con derive e paint")
Image4.Visible = True

End Sub

vedi cerchio2.ppt