دوال حساب المثلثات

هذا الكود لتحويل من Radian الى Degree والعكس من Degree الى Radian

Dim a As Double
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
  a = Text1.Text

 If Option1.Value = True Then

  Text2.Text = (2 * 3.14 * a) / 360
  Text3.Text = (2 * a) / 360 & " Pi"
 End If

 If Option2.Value = True Then

  Text2.Text = (a / 3.14) * 180 & " °"
 End If

End Sub

Private Sub Option1_Click()
 Label4.Caption = "Radian Value without Pi:"
 Label5.Visible = True
 Label3.Visible = True
 Text2.Top = 2400
 Text3.Visible = True
 Label4.Top = 2520
 Text1.Text = ""
 Text2.Text = ""
 Text3.Text = ""

End Sub

Private Sub Option2_Click()
 Label4.Caption = "Degrees Value:"
 Text2.Top = 2640
 Label5.Visible = False
 Text3.Visible = False
 Label4.Top = 2640
 Label3.Visible = False
 Text1.Text = ""
 Text2.Text = ""
 Text3.Text = ""

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then Call Command1_Click
End Sub

وهذا البرنامج فى المرفقات