|
أرشيف المنتدى هنا نقل الموضوعات المكررة والروابط التى لا تعمل |
مشاهدة نتائج الإستطلاع: هل تريد البرنامج المقرر Visual Basic 2008 express | |||
نعم أريدة وأحتاجة | 74 | 86.05% | |
لا شكراً غير مهم | 12 | 13.95% | |
المصوتون: 86. أنت لم تصوت في هذا الإستطلاع |
|
أدوات الموضوع | ابحث في الموضوع | انواع عرض الموضوع |
|
#1
|
|||
|
|||
القيمة المجردة هى قيمة مباشرة تذكر بدون أى مجهول
أى عدد 5 مثلا حرف "على" مثلا أى بدون متغيرات معها |
#2
|
||||
|
||||
طلب زميل حل التدريب رقم 1 فى التدريبات العملية على الفصل الثانى ص 50 الخاص بعناصر الكيمياء فى مادة العلوم .
وقد طلب كتابة الكود بالستخدام جملة Select Case وتم تلبية طلبه ولكن كان الكود طويلاٍ بعض الشئ وقد وجدت كود بسيط لحل هذه المشكلة وذلك باستخدام أكثر من متغير مع جملة Select Case كما يلى : كود:
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim o As Boolean = Me.RadioButton1.Checked Dim na As Boolean = Me.RadioButton2.Checked Dim mg As Boolean = Me.RadioButton3.Checked Dim al As Boolean = Me.RadioButton4.Checked Select Case True Case o = True Me.Label4.Text = "O" Me.Label5.Text = "8" Me.Label6.Text = "16" Case na = True Me.Label4.Text = "Na" Me.Label5.Text = "11" Me.Label6.Text = "23" Case mg = True Me.Label4.Text = "Mg" Me.Label5.Text = "12" Me.Label6.Text = "24" Case al = True Me.Label4.Text = "Al" Me.Label5.Text = "13" Me.Label6.Text = "27" Case Else MsgBox("يرجى اختيار أحد العناصر") End Select End Sub End Class
__________________
يخطئ من يظن أن للذئاب ديناً
|
#3
|
|||
|
|||
شكرا جزيلا للأستاذ / السيد شعبان .....
شكرا جزيلا للأستاذ / أحمد قرني ..... شكرا جزيلا للأستاذ / حسن الحاوي ..... جزيتم عنا كل خير ولكن في تمرين التقديرات الأستاذ سيد شعبان قال نغير النهايات لتصبح 85 بدلا من 84 وهكذا 75 بدلا من 74 و65 بدلا من 64 ما رايك لو غيرنا النهايات لتصبح 84.9 و75.9 و64.9 حتى لا يتم تكرار قيمة معينة مثل 65 مثلا التي اصبحت بداية التقدير جيد ونفس القيمة نهاية للتقدير مقبول ...صحيح انه سيختاره جيد وذلك لأنها ستقابله اولا في الشروط ...أشكركم جميعا وشكر خاص للاستاذ / حسن الحاوي على حل مثال عناصر العلوم باستخدام Select case ... |
#4
|
|||
|
|||
1- 1- syntax error
2- runtime error (overflow) اخره 255 byte |
#5
|
|||
|
|||
نفهم مين الخطأ ومين الصح بس
جملة select case
دا تعريفها اللي انا كنت فهمه Runs one of several groups of statements, depending on the value of an expression. هل تستخدم في حالة وجود اكثر من احتمالين للتفرع رجاء من السادة الزملاء والطلاب هل تستخدم في حالة وجود اكثر من احتمالين طب هل تستخدم في حالة اختبار اكثر من تعبير شرطى بجملة شرطية واحدة طب ممكن مثال على انها لا تستخدم في حالة التفرع الواحد او مثال في انها لا تستخدم في التفرعين طب لو البرنامج طلب منك اظهار الطالب راسب لو كان راسب في العربي او راسب في الكمبيوتر هل نستخدم select case علشان تختبر الشرطين في جملة شرطية واحدة هو دا استخدامها طب نقول ايه للطالب لما يقول ان الكتاب في ص 47 بيقول غير انها فعالة بشكل اكثر عندما يكون التفرع معتمد على قيمة واحدة يا سبحان الله الجملة الشرطية الواحده يا صح يا خطأ مش قيمة واحدة
__________________
|
#6
|
||||
|
||||
Select Case structure
A Select Case structure is similar to an If . . . Then . . . ElseIf structure, but it’s more efficient
when the branching depends on one key variable, or test case. You can also use Select Case .................................................. ...................to make your program code more readable |
#7
|
|||
|
|||
اقتباس:
يعنى لا تستخدم مع تفرع واحد ولا تستخدم مع متفرعين يعنى بتختبر اكثر من شرط في جملة شرطية واحدة
__________________
|
#8
|
||||
|
||||
نعم أستاذي تكمن قوتها في تطبيق المعاملات المنطقية أو تحديد مجالات للقيم المطلوب التحقق منها في حال وجود متغير واحد
|
#9
|
|||
|
|||
اقتباس:
افهم من ردكم الكريم ان select case لا تستخدم عندما يكون هناك تفرع واحد كما انها لا تستخدم عندما يكون هناك تفرعين ولكنها تستخدم في اكثر من احتمالين ممكن مثال لو تفضلتم ل select case تختبر فيها اكثر من تعبير شرطي في جملة شرطية واحدة
__________________
|
#10
|
||||
|
||||
اقتباس:
Dim Letter As Char الفاصلة في المثال السابق تمثل أداة الربط "or " المنطقية .Select Case Letter Case "A"c To "Z"c , "a"c To "z"c ("حرف أبجدي") msgbox Case "0"c To "9"c ("عدد") msgbox Case "."c, ":"c, " "c, ";"c, "?"c ("رمز") msgbox Case Else ("إيه ده ؟؟؟") msgbox End Select |
#11
|
|||
|
|||
اقتباس:
واكيد من يتابع التحاور سيستفيد بشكل او باخر اولا تم التأكيد ان select case لا تستخدم في حالة التفرع الواحد كذلك لا تستخدم في حالة التفرعين ثانيا هذا مثال جيد لتوضيح اللبس
__________________
|
#12
|
||||
|
||||
باستخدام أكثر من متغير
Dim a As Integer = 5 Dim b As Integer = 6 Select Case True Case a < 5, b > 6 MsgBox("Ok") Case Else MsgBox("No") End Select |
#13
|
||||
|
||||
احتمال واحد للتفرع
Dim a As Integer = 5 Select Case a Case Is >= 5 MsgBox("Ok") End Select |
#14
|
||||
|
||||
مثال آخر على استخدام أكثر من متغير
Dim a As Integer = 5 Dim b As Integer = 6 Select Case True Case a = 5 And b > 6 MsgBox("Ok") Case Else MsgBox("No") End Select |
#15
|
||||
|
||||
أستاذ حسن ... كان كلامنا عن الاستخدام الأمثل لـــ select case .... ولو لاحظت فأنا كتبت التعبيرات التالية (تكمن قوتها في ..... و it’s more efficient ) ولم أنفي حالات لي الكود والتحايل عليه حتى يتناسب مع حالات أخرى (جملة If البسيطة كفيلة بها وبدون تعقيد المشهد ....) لاتمثل الغرض الأساسي من select case..... وهذا ليس رأي شخصي وأنما موجود في كثير من كتب البرمجة التي طالعتها ... والتي أجمعت أنها تفيدنا كثيرًا إذا كان لدينا متغير واحد وبخيارات متعددة ولكم منا فائق الاحترام والتقدير .
|
العلامات المرجعية |
الكلمات الدلالية (Tags) |
أبوزياد, اتفة الفصل الرابع وورد, شرح الترم الثاني فيديو |
أدوات الموضوع | ابحث في الموضوع |
انواع عرض الموضوع | |
|
|