[dr.salah]

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

كود :

Sub Main()
        Console.WriteLine("Enter any num")
        Dim num As Short = Console.ReadLine
        Dim tan As Single = (Math.PI / 180) * num
        Console.WriteLine(Math.Tan(tan))
        Console.ReadLine()
    End Sub