اهلا وسهلا بك فى بوابة الثانوية العامة ... سجل الان

العودة   بوابة الثانوية العامة المصرية > القسم الإداري > أرشيف المنتدى

أرشيف المنتدى هنا نقل الموضوعات المكررة والروابط التى لا تعمل

مشاهدة نتائج الإستطلاع: هل تريد البرنامج المقرر Visual Basic 2008 express
نعم أريدة وأحتاجة 74 86.05%
لا شكراً غير مهم 12 13.95%
المصوتون: 86. أنت لم تصوت في هذا الإستطلاع

 
 
أدوات الموضوع ابحث في الموضوع انواع عرض الموضوع
  #1  
قديم 04-03-2013, 01:35 AM
منى محمد عوض منى محمد عوض غير متواجد حالياً
عضو مجتهد
 
تاريخ التسجيل: Nov 2009
المشاركات: 105
معدل تقييم المستوى: 15
منى محمد عوض is on a distinguished road
افتراضي

القيمة المجردة هى قيمة مباشرة تذكر بدون أى مجهول
أى عدد 5 مثلا
حرف "على" مثلا
أى بدون متغيرات معها
  #2  
قديم 24-03-2013, 10:35 PM
الصورة الرمزية hassanalhawy
hassanalhawy hassanalhawy غير متواجد حالياً
مــٌــعلــم
 
تاريخ التسجيل: Sep 2010
المشاركات: 1,514
معدل تقييم المستوى: 16
hassanalhawy is on a distinguished road
افتراضي

طلب زميل حل التدريب رقم 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  
قديم 25-03-2013, 04:37 AM
المهدي مصطفى السعيد المهدي مصطفى السعيد غير متواجد حالياً
عضو مجتهد
 
تاريخ التسجيل: May 2010
المشاركات: 149
معدل تقييم المستوى: 15
المهدي مصطفى السعيد is on a distinguished road
افتراضي

شكرا جزيلا للأستاذ / السيد شعبان .....
شكرا جزيلا للأستاذ / أحمد قرني .....
شكرا جزيلا للأستاذ / حسن الحاوي ..... جزيتم عنا كل خير ولكن في تمرين التقديرات الأستاذ سيد شعبان قال نغير النهايات لتصبح 85 بدلا من 84 وهكذا 75 بدلا من 74 و65 بدلا من 64 ما رايك لو غيرنا النهايات لتصبح 84.9 و75.9 و64.9 حتى لا يتم تكرار قيمة معينة مثل 65 مثلا التي اصبحت بداية التقدير جيد ونفس القيمة نهاية للتقدير مقبول ...صحيح انه سيختاره جيد وذلك لأنها ستقابله اولا في الشروط ...أشكركم جميعا وشكر خاص للاستاذ / حسن الحاوي على حل مثال عناصر العلوم باستخدام Select case ...
  #4  
قديم 07-03-2013, 11:12 AM
Tony Osman Tony Osman غير متواجد حالياً
عضو مجتهد
 
تاريخ التسجيل: Jul 2012
المشاركات: 144
معدل تقييم المستوى: 13
Tony Osman is on a distinguished road
افتراضي

1- 1- syntax error
2- runtime error (overflow)

اخره 255 byte
  #5  
قديم 22-02-2013, 07:51 PM
سيف سالم سيف سالم غير متواجد حالياً
مــٌــعلــم
 
تاريخ التسجيل: Jul 2008
العمر: 56
المشاركات: 4,642
معدل تقييم المستوى: 21
سيف سالم is on a distinguished road
افتراضي نفهم مين الخطأ ومين الصح بس

جملة select case
دا تعريفها اللي انا كنت فهمه
Runs one of several groups of statements, depending on the value of an expression.
هل تستخدم في حالة وجود اكثر من احتمالين للتفرع
رجاء من السادة الزملاء والطلاب
هل تستخدم في حالة وجود اكثر من احتمالين
طب هل تستخدم في حالة اختبار اكثر من تعبير شرطى بجملة شرطية واحدة


طب ممكن مثال
على انها لا تستخدم في حالة التفرع الواحد
او مثال في انها لا تستخدم في التفرعين
طب لو البرنامج طلب منك اظهار الطالب راسب لو كان راسب في العربي او راسب في الكمبيوتر

هل نستخدم select case علشان تختبر الشرطين في جملة شرطية واحدة


هو دا استخدامها


طب نقول ايه للطالب لما يقول ان الكتاب في ص 47 بيقول

غير انها فعالة بشكل اكثر عندما يكون التفرع معتمد على قيمة واحدة
يا سبحان الله الجملة الشرطية الواحده يا صح يا خطأ مش قيمة واحدة
  #6  
قديم 22-02-2013, 11:56 PM
الصورة الرمزية Mr.Ali Mohamed Ali
Mr.Ali Mohamed Ali Mr.Ali Mohamed Ali غير متواجد حالياً
معلم حاسب آلي
 
تاريخ التسجيل: Dec 2010
العمر: 51
المشاركات: 308
معدل تقييم المستوى: 14
Mr.Ali Mohamed Ali is on a distinguished road
افتراضي 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  
قديم 23-02-2013, 01:04 AM
سيف سالم سيف سالم غير متواجد حالياً
مــٌــعلــم
 
تاريخ التسجيل: Jul 2008
العمر: 56
المشاركات: 4,642
معدل تقييم المستوى: 21
سيف سالم is on a distinguished road
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة alysun مشاهدة المشاركة
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
افادكم الله
يعنى لا تستخدم مع تفرع واحد
ولا تستخدم مع متفرعين
يعنى بتختبر اكثر من شرط في جملة شرطية واحدة
  #8  
قديم 23-02-2013, 01:14 AM
الصورة الرمزية Mr.Ali Mohamed Ali
Mr.Ali Mohamed Ali Mr.Ali Mohamed Ali غير متواجد حالياً
معلم حاسب آلي
 
تاريخ التسجيل: Dec 2010
العمر: 51
المشاركات: 308
معدل تقييم المستوى: 14
Mr.Ali Mohamed Ali is on a distinguished road
افتراضي

نعم أستاذي تكمن قوتها في تطبيق المعاملات المنطقية أو تحديد مجالات للقيم المطلوب التحقق منها في حال وجود متغير واحد
  #9  
قديم 23-02-2013, 09:39 AM
سيف سالم سيف سالم غير متواجد حالياً
مــٌــعلــم
 
تاريخ التسجيل: Jul 2008
العمر: 56
المشاركات: 4,642
معدل تقييم المستوى: 21
سيف سالم is on a distinguished road
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة alysun مشاهدة المشاركة
نعم أستاذي تكمن قوتها في تطبيق المعاملات المنطقية أو تحديد مجالات للقيم المطلوب التحقق منها في حال وجود متغير واحد
جزاكم الله كل خير
افهم من ردكم الكريم
ان select case لا تستخدم عندما يكون هناك تفرع واحد
كما انها لا تستخدم عندما يكون هناك تفرعين
ولكنها تستخدم في اكثر من احتمالين
ممكن مثال لو تفضلتم ل select case تختبر فيها اكثر من تعبير شرطي في جملة شرطية واحدة
  #10  
قديم 23-02-2013, 09:00 PM
الصورة الرمزية Mr.Ali Mohamed Ali
Mr.Ali Mohamed Ali Mr.Ali Mohamed Ali غير متواجد حالياً
معلم حاسب آلي
 
تاريخ التسجيل: Dec 2010
العمر: 51
المشاركات: 308
معدل تقييم المستوى: 14
Mr.Ali Mohamed Ali is on a distinguished road
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة سيف سالم مشاهدة المشاركة
جزاكم الله كل خير
افهم من ردكم الكريم
ان select case لا تستخدم عندما يكون هناك تفرع واحد
كما انها لا تستخدم عندما يكون هناك تفرعين
ولكنها تستخدم في اكثر من احتمالين
ممكن مثال لو تفضلتم ل select case تختبر فيها اكثر من تعبير شرطي في جملة شرطية واحدة
Dim Letter As Char
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
الفاصلة في المثال السابق تمثل أداة الربط "or " المنطقية .
  #11  
قديم 23-02-2013, 09:18 PM
سيف سالم سيف سالم غير متواجد حالياً
مــٌــعلــم
 
تاريخ التسجيل: Jul 2008
العمر: 56
المشاركات: 4,642
معدل تقييم المستوى: 21
سيف سالم is on a distinguished road
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة alysun مشاهدة المشاركة
Dim Letter As Char
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
الفاصلة في المثال السابق تمثل أداة الربط "or " المنطقية .
نشكركم استاذنا الفاضل للتحاور
واكيد من يتابع التحاور سيستفيد بشكل او باخر
اولا
تم التأكيد ان select case لا تستخدم في حالة التفرع الواحد كذلك لا تستخدم في حالة التفرعين
ثانيا
هذا مثال جيد لتوضيح اللبس
  #12  
قديم 24-02-2013, 04:45 PM
الصورة الرمزية hassanalhawy
hassanalhawy hassanalhawy غير متواجد حالياً
مــٌــعلــم
 
تاريخ التسجيل: Sep 2010
المشاركات: 1,514
معدل تقييم المستوى: 16
hassanalhawy is on a distinguished road
افتراضي

باستخدام أكثر من متغير
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  
قديم 24-02-2013, 04:49 PM
الصورة الرمزية hassanalhawy
hassanalhawy hassanalhawy غير متواجد حالياً
مــٌــعلــم
 
تاريخ التسجيل: Sep 2010
المشاركات: 1,514
معدل تقييم المستوى: 16
hassanalhawy is on a distinguished road
افتراضي

احتمال واحد للتفرع
Dim a As Integer = 5
Select Case a
Case Is >= 5
MsgBox("Ok")
End Select
  #14  
قديم 24-02-2013, 04:53 PM
الصورة الرمزية hassanalhawy
hassanalhawy hassanalhawy غير متواجد حالياً
مــٌــعلــم
 
تاريخ التسجيل: Sep 2010
المشاركات: 1,514
معدل تقييم المستوى: 16
hassanalhawy is on a distinguished road
افتراضي

مثال آخر على استخدام أكثر من متغير
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  
قديم 24-02-2013, 05:23 PM
الصورة الرمزية Mr.Ali Mohamed Ali
Mr.Ali Mohamed Ali Mr.Ali Mohamed Ali غير متواجد حالياً
معلم حاسب آلي
 
تاريخ التسجيل: Dec 2010
العمر: 51
المشاركات: 308
معدل تقييم المستوى: 14
Mr.Ali Mohamed Ali is on a distinguished road
افتراضي

أستاذ حسن ... كان كلامنا عن الاستخدام الأمثل لـــ select case .... ولو لاحظت فأنا كتبت التعبيرات التالية (تكمن قوتها في ..... و it’s more efficient ) ولم أنفي حالات لي الكود والتحايل عليه حتى يتناسب مع حالات أخرى (جملة If البسيطة كفيلة بها وبدون تعقيد المشهد ....) لاتمثل الغرض الأساسي من select case..... وهذا ليس رأي شخصي وأنما موجود في كثير من كتب البرمجة التي طالعتها ... والتي أجمعت أنها تفيدنا كثيرًا إذا كان لدينا متغير واحد وبخيارات متعددة ولكم منا فائق الاحترام والتقدير .
 

العلامات المرجعية

الكلمات الدلالية (Tags)
أبوزياد, اتفة الفصل الرابع وورد, شرح الترم الثاني فيديو

أدوات الموضوع ابحث في الموضوع
ابحث في الموضوع:

البحث المتقدم
انواع عرض الموضوع

ضوابط المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا يمكنك اضافة مرفقات
لا يمكنك تعديل مشاركاتك

BB code متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


جميع الأوقات بتوقيت GMT +2. الساعة الآن 09:37 AM.