+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلبين , صغار , (/showthread.php?tid=7939)
طلبين , صغار , - dr.salah - 13-03-13
السلام عليكم اخواني ,
---------------------------------------------------
و الله يا اخواني احتاج ان اعمل برنامج لعمل
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
وشكراً يا اخوي
---------------------------------------------------
و الله يا اخواني احتاج ان اعمل برنامج لعمل
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 - 13-03-13
من ناحية المشكلة الأولى أنا لم استخدم قط في البرمجة المعادلات sin و cos و tan يعني ما أقدر أفيدك فيها
ولاكن عندي ملاحظة بسيطة هل استدعيت الوظيفة Math إذا لا ممكن يكون المشكلة منها
كود الإستدعاء
PHP كود :
Imports System.Math
أما المشكلة الثانية
لنفرض أن المستخدم يدخل 4 إعداد فقوم بإنشاء مصفوفتين من 4 اسطر أو مصفوفه واحده من عمودين و 4 اسطر
ومن ثم قم بإنشاء إجراء يقوم بالمقارنه بإصغر عدد من الأعداد الموجوده في Text وإضافته في المصفوفه الأولى
ومن ثم إنشئ إجراء آخر يقوم بالمفارنه ما بداخل Text بأكبر عدد و إضافته في المصفوفه الثانيه
والآن قم بعرض البيانات التي بداخل المصفوفه الأولى في حقل وبيانات المصفوفه الثانيه بحقل آخر
أنتظر دقائق وسوف أصمم لك برنامج صغير لتوضيح ما قمت بشرحه
طلبين , صغار , - @@أبورائد@@ - 13-03-13
السلام عليكم ورحمة الله وبركاته
dr.salah كتب :هناك فرق في الناتج عند استخدام pi القيمة الكاملة (3.14159265358979) وعند استخدام القيمة المختصرة (3.14)برنامج لعمل
sin tan cos و العكس يعني الدخل ال جا(جيب) يطلع لي الزاوية
لكن للأسف يطلع معي كل شئ خطاء ,
فمثلاً استعملت ال ,
math.sin
math.cos
math.tan
وو ايضا ضرب الناتج با "باي" (pi)
3.14/180
و الأسف الرقم ما يطلع صحيح يطلع قرريب من الصحيح ,
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 - 13-03-13
الله يبارك فيكم , جاري التجريب السؤال الثاني
بس اخواني اانا كنت استخدم قيمة الباي الكاملة يعني كنت اعمل كذا
Math.PI/180
و الى الأن المشكلة هذه قائمة ,
و الله اسف تعبتكم معي
طلبين , صغار , - @@أبورائد@@ - 13-03-13
السلام عليكم ورحمة الله وبركاته
dr.salah كتب :الله يبارك فيكم , جاري التجريب السؤال الثاني
بس اخواني اانا كنت استخدم قيمة الباي الكاملة يعني كنت اعمل كذا
Math.PI/180
و الى الأن المشكلة هذه قائمة ,
و الله اسف تعبتكم معي
يجب أن نرى الكود الذي استخدمته كاملا، والناتج الذي تتوقع أن يكون صحيحاً، لنتأكد من نوع بيانات المتغيرات التي استخدمتها، قد تكون استخدمت Integer التي تتجاهل الكسر فيختلف الناتج.
السلام عليكم ورحمة الله وبركاته
طلبين , صغار , - Easy4ever - 13-03-13
.. المثال بالمرفق ..
طلبين , صغار , - dr.salah - 13-03-13
الله يبارك فيكم , و الله اسف تعبتكم معي
شكراً اخوي
@@أبورائد@@ , كنت استعمل 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طلبين , صغار , - @@أبورائد@@ - 13-03-13
السلام عليكم ورحمة الله وبركاته
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 - 13-03-13
هلا اخوي , انت لاحظ الذي تحت ال short مباشرتاً سوف تجد single
انا استخدمت short لن لا اريد ان يدخل المستخدم زاوية اكثر من 900
فقط هذه هي و شكرا على اهتمامك
لكن ممكن تساعدني في العكس يعني يدخل الجيب و انا اعطيه الزاوية
و شكراً تعبتك معي