سینوس گیری بر حسب درجه

[Mahdi-v]

درود بر دوستان محترم
اساتید من از تابع sin استفاده می کنم برای سینوس گرفتن یک تکست باکس مثلا

If TextBox1.Text > -999999 Then
Label16.Visible = True
( Label16.Text = Math.Sin(TextBox1.Text
End If
این متاسفانه متاسفانه هر چچی تو تکست باکس هست رو رادیان میگیره مثلا من تو تسکت باکس وارد میکنم 90 که سینوس 90 درجه رو بهم بده این سینوس 90 رادیان رو بهم میده اگه میشه بگید چی کار کنم تا اینو درجه بگیره ؟؟؟؟؟؟؟؟:قلب:

[محمد آشتیانی]

سلام
برای تبدیل رادیان به درجه



Dim Degrees As Double = CDbl(TextBox1.Text) / (180 / Math.PI)



موفق باشید

[Mahdi-v]

این رو بلد بودم که اما میخواستم دیگه تبدیل در کار نباشه با تابعی چیزی یک راست عدد وارد شده درون تکست باکس رو درجه حساب بیاره ولی دستتون درد نکنه آقا محمد