سلام
یه روش ساده برای محاسبه اش است که ماشین حساب خود ویندوز هم از این راه استفاده می کنه.
اون هم استفاده از کد های زیره:
[CODE]Dim p As String, d As Integer, r As Double
p = "3.1415926535897932384626433832795"
d = Text1
r = p * d / 180
Print= Sin(r) ]
در این کد مقدار تقریبی پی رو که خود ماشین حساب ویندوز در اختیارمون قرار می ده در یک متغیر رشته ای قرار می دیم تا مشکل اعشار های متغیر دابل از بین بره.
متغیر دی، مقدار درجه است که کاربر وارد می کنه.
متغیر آر هم بر حسب رادیان است که فرمول حساب می کنه.
و تمام مقادیر درست درمیاد.
دوستان فقط اگر مطلب جالبی گذاشته می شه که به دردتون می خوره، بی زحمت یه تشکر بکنید/.