[dr.salah]

السلام عليكم اخواني ,
---------------------------------------------------
و الله يا اخواني احتاج ان اعمل برنامج لعمل
sin tan Cos و العكس يعني الدخل ال جا(جيب) يطلع لي الزاوية
لكن للأسف يطلع معي كل شئ خطاء ,
فمثلاً استعملت ال ,
Math.sin
Math.cos
Math.tan
وو ايضا ضرب الناتج با "باي" (PI)
3.14/180
و الأسف الرقم ما يطلع صحيح يطلع قرريب من الصحيح ,
---------------------------------------------------
الطلب الثاني و هو الأهم ,
عمل برنامج يرتيب تصاعدي و تنازلي
يعني المستخدم يعطيه مثلاُ 12,33,15,20,54,39,40
و يعطي هذه الأجابتني وحدة تصاعدي و الثاني تنازلي
12,15,20,33,39,40,54
54,40,39,33,20,15,12

وشكراً يا اخوي

[Easy4ever]

من ناحية المشكلة الأولى أنا لم استخدم قط في البرمجة المعادلات sin و cos و tan يعني ما أقدر أفيدك فيها
ولاكن عندي ملاحظة بسيطة هل استدعيت الوظيفة Math إذا لا ممكن يكون المشكلة منها

كود الإستدعاء

PHP كود :

Imports System.Math 


أما المشكلة الثانية

لنفرض أن المستخدم يدخل 4 إعداد فقوم بإنشاء مصفوفتين من 4 اسطر أو مصفوفه واحده من عمودين و 4 اسطر
ومن ثم قم بإنشاء إجراء يقوم بالمقارنه بإصغر عدد من الأعداد الموجوده في Text وإضافته في المصفوفه الأولى
ومن ثم إنشئ إجراء آخر يقوم بالمفارنه ما بداخل Text بأكبر عدد و إضافته في المصفوفه الثانيه
والآن قم بعرض البيانات التي بداخل المصفوفه الأولى في حقل وبيانات المصفوفه الثانيه بحقل آخر

أنتظر دقائق وسوف أصمم لك برنامج صغير لتوضيح ما قمت بشرحه

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

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

dr.salah كتب :

برنامج لعمل
sin tan cos و العكس يعني الدخل ال جا(جيب) يطلع لي الزاوية
لكن للأسف يطلع معي كل شئ خطاء ,
فمثلاً استعملت ال ,
math.sin
math.cos
math.tan
وو ايضا ضرب الناتج با "باي" (pi)
3.14/180
و الأسف الرقم ما يطلع صحيح يطلع قرريب من الصحيح ,

هناك فرق في الناتج عند استخدام pi القيمة الكاملة (3.14159265358979) وعند استخدام القيمة المختصرة (3.14)

dr.salah كتب :

عمل برنامج يرتيب تصاعدي و تنازلي
يعني المستخدم يعطيه مثلاُ 12,33,15,20,54,39,40
و يعطي هذه الأجابتني وحدة تصاعدي و الثاني تنازلي
12,15,20,33,39,40,54
54,40,39,33,20,15,12

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim a() As Integer = {12, 33, 15, 20, 54, 39, 40}

    Array.Sort(a)

    For Each i As Integer In a
        MsgBox(i)
    Next

End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    Dim a() As Integer = {12, 33, 15, 20, 54, 39, 40}

    Array.Sort(a)
    Array.Reverse(a)

    For Each i As Integer In a
        MsgBox(i)
    Next

End Sub 


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

[dr.salah]

الله يبارك فيكم , جاري التجريب السؤال الثاني
بس اخواني اانا كنت استخدم قيمة الباي الكاملة يعني كنت اعمل كذا
Math.PI/180
و الى الأن المشكلة هذه قائمة ,
و الله اسف تعبتكم معي

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

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

dr.salah كتب :الله يبارك فيكم , جاري التجريب السؤال الثاني
بس اخواني اانا كنت استخدم قيمة الباي الكاملة يعني كنت اعمل كذا
Math.PI/180
و الى الأن المشكلة هذه قائمة ,
و الله اسف تعبتكم معي

يجب أن نرى الكود الذي استخدمته كاملا، والناتج الذي تتوقع أن يكون صحيحاً، لنتأكد من نوع بيانات المتغيرات التي استخدمتها، قد تكون استخدمت Integer التي تتجاهل الكسر فيختلف الناتج.





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

[Easy4ever]

.. المثال بالمرفق ..

[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

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

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

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






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

[dr.salah]

هلا اخوي , انت لاحظ الذي تحت ال short مباشرتاً سوف تجد single
انا استخدمت short لن لا اريد ان يدخل المستخدم زاوية اكثر من 900
فقط هذه هي و شكرا على اهتمامك
لكن ممكن تساعدني في العكس يعني يدخل الجيب و انا اعطيه الزاوية
و شكراً تعبتك معي