[كود] تحويل الدرجات الى الراديان و العكس

[كود] تحويل الدرجات الى الراديان و العكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] تحويل الدرجات الى الراديان و العكس (/showthread.php?tid=19637)

تحويل الدرجات الى الراديان و العكس - farhat - 13-03-17

السلام عليكم ورحمة الله وبركاته
هذا الكود لتحويل الدرجات الى الرديان

كود :

Private Function DegreesToRadians(ByVal degrees As Double) As Double

        Return degrees / (180 / Math.PI)

    End Function

ويستعمل هكذا

كود :

(150)DegreesToRadians

و هذا يقوم بالعكس

كود :

Private Function RadiansToDegrees(ByVal radians As Double) As Double

        Return radians * (180 / Math.PI)

    End Function

يمكن استعماله لحساب الزوايا

RE: تحويل الدرجات الى الراديان و العكس - Buseiligm - 25-05-17

جزاك الله خير