coordinate polari

trovare coordinate cartesiane di un punto del quale si conoscono coordinate polari
e viceversa:usando dati prefissati o da inserire in modo interattivo
esercitazione con visual basic su powerpoint

Private Sub CommandButton1_Click()
Rem coordinate polari spiega
ListBox1.AddItem ("oordinate cartesiane del punto (x,y))")
ListBox1.AddItem ("coordinate polari del punto (modulo,anomalia)")
ListBox1.AddItem ("x = modulo*cos(anomalia) ")
ListBox1.AddItem ("y = modulo*cos/anomalia)")
ListBox1.AddItem ("modulo= sqr(x^2 +y^2)")
ListBox1.AddItem ("cos(anomalia)= x/modulo")
ListBox1.AddItem ("seno(anomalia)=y/modulo")
ListBox1.AddItem ("-----------------------------")
polare1.Visible = True
End Sub

Private Sub CommandButton2_Click()
polare1.Visible = False
polare2.Visible = False
polare3.Visible = False
End Sub

Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton4_Click()
Rem date coordinate polari calcola cartesiane prefissati
ListBox1.AddItem ("oordinate cartesiane del punto (x,y))")
ListBox1.AddItem ("coordinate polari del punto (modulo,anomalia)")
ListBox1.AddItem ("x = modulo*cos(anomalia) ")
ListBox1.AddItem ("y = modulo*cos/anomalia)")
ListBox1.AddItem ("modulo= sqr(x^2 +y^2)")
ListBox1.AddItem ("cos(anomalia)= x/modulo")
ListBox1.AddItem ("seno(anomalia)=y/modulo")
ListBox1.AddItem ("-----------------------------")
modulo = 2
anomalia = 3.14 / 3
x = Round(modulo * Cos(anomalia))
y = modulo * Sin(anomalia)
ListBox1.AddItem ("x = " & x)
ListBox1.AddItem ("y = " & y)
polare2.Visible = True
End Sub

Private Sub CommandButton5_Click()
Rem date coordinate cartesiane calcola polari
ListBox1.AddItem ("oordinate cartesiane del punto (x,y))")
ListBox1.AddItem ("coordinate polari del punto (modulo,anomalia)")
ListBox1.AddItem ("x = modulo*cos(anomalia) ")
ListBox1.AddItem ("y = modulo*cos/anomalia)")
ListBox1.AddItem ("modulo= sqr(x^2 +y^2)")
ListBox1.AddItem ("cos(anomalia)= x/modulo")
ListBox1.AddItem ("seno(anomalia)=y/modulo")
ListBox1.AddItem ("-----------------------------")
x = 1
y = 1.73
modulo = Round(Sqr(x ^ 2 + y ^ 2))
ca = x / modulo
sa = y / modulo
ta = sa / ca
arco = Atn(ta)
gradi = arco * 180 / 3.14
ListBox1.AddItem ("coordinate cartesiane xy ")
ListBox1.AddItem ("x = " & x)
ListBox1.AddItem ("y = " & y)
ListBox1.AddItem ("coordinare polari ")
ListBox1.AddItem ("modulo= " & modulo)
ListBox1.AddItem ("anomalia in radianti = " & arco)
ListBox1.AddItem ("anomalia in gradi = " & gradi)
polare3.Visible = True

End Sub

Private Sub CommandButton6_Click()
Rem date coordinate polari calcola cartesiane interattivo
ListBox1.AddItem ("coordinate cartesiane del punto (x,y))")
ListBox1.AddItem ("coordinate polari del punto (modulo,anomalia)")
ListBox1.AddItem ("x = modulo*cos(anomalia) ")
ListBox1.AddItem ("y = modulo*sin/anomalia)")
ListBox1.AddItem ("modulo= sqr(x^2 +y^2)")
ListBox1.AddItem ("cos(anomalia)= x/modulo")
ListBox1.AddItem ("seno(anomalia)=y/modulo")
ListBox1.AddItem ("-----------------------------")
modulo = TextBox1
anomalia = TextBox2
x = Round(modulo * Cos(anomalia))
y = Round(modulo * Sin(anomalia))
ListBox1.AddItem ("x = " & x)
ListBox1.AddItem ("y = " & y)

End Sub

Private Sub CommandButton7_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
End Sub

Private Sub CommandButton8_Click()
Rem date coordinate cartesiane calcola polari interattivo
ListBox1.AddItem ("oordinate cartesiane del punto (x,y))")
ListBox1.AddItem ("coordinate polari del punto (modulo,anomalia)")
ListBox1.AddItem ("x = modulo*cos(anomalia) ")
ListBox1.AddItem ("y = modulo*cos/anomalia)")
ListBox1.AddItem ("modulo= sqr(x^2 +y^2)")
ListBox1.AddItem ("cos(anomalia)= x/modulo")
ListBox1.AddItem ("seno(anomalia)=y/modulo")
ListBox1.AddItem ("-----------------------------")
x = TextBox3
y = TextBox4
modulo = Round(Sqr(x ^ 2 + y ^ 2))
ca = x / modulo
sa = y / modulo
ta = sa / ca
arco = Atn(ta)
gradi = arco * 180 / 3.14
ListBox1.AddItem ("coordinate cartesiane xy ")
ListBox1.AddItem ("x = " & x)
ListBox1.AddItem ("y = " & y)
ListBox1.AddItem ("coordinare polari ")
ListBox1.AddItem ("modulo= " & modulo)
ListBox1.AddItem ("anomalia in radianti = " & arco)
ListBox1.AddItem ("anomalia in gradi = " & gradi)

End Sub

vedi polare.ppt