[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته

dr.salah كتب :الله يبارك فيكم , و الله اسف تعبتكم معي
شكراً اخوي
أبورائد , كنت استعمل integer و خيرتها الى single و طلع كلو تمام
تفضل اخواني هذه تعطيه الزاوية و يعطيك الظل و تنفع مع الجيب و الجتا
و طلع معي الناتج صحيح , تمام ,
لكن بقي اني اضع الظل و هو يخرج لي الزاوية

كود :

   Sub Main()
       Console.WriteLine("Enter any num")
       Dim num As [color=#FF0000][b][SIZE=4]Short [/SIZE][/b][/color]= Console.ReadLine
       Dim tan As Single = (Math.PI / 180) * num
       Console.WriteLine(Math.Tan(tan))
       Console.ReadLine()
   End Sub

للمعلومية:
Integer هو Int32
Short هو Int16 كما يظهر انك استخدمته في المثال المرفق (ولا ينبغي استخدامة للأرقام العشرية)


استخدم دائما Single






السلام عليكم ورحمة الله وبركاته