منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تحويل الدرجات الى الراديان و العكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته
هذا الكود لتحويل الدرجات الى الرديان
كود :
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

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