[hassanalhawy]

المشاركة الأصلية كتبت بواسطة yasmen582007

هل يمكن عمل هذا برنامج بجملة Select case


من دراستك لمادة العلوم تعلمت أن لكل عنصر رمز وعدد ذرى وعدد كتلى ، قم بإنشاء مشروع يحتوى على نموذج Form التالى ، والمطلوب عنداختيار أحد العناصر ثم النقر على زر ( عرض ) يظهر رمز العنصر وعدده الذرى والعدد الكتلى لهذا العنصر؟



ولكم جزيل الشكر

فى مذكرة الحاوى ذكرت تحت هذا التدريب عدد من الملاحظات هى :
1-فى هذا التدريب استخدمنا أدوات التحكم RadioButton لعرض العناصر الكيميائية بدلاً من الـ ListBox ، وفى هذه الحالة إضطررنا لإستخدام جملة If … Then … ElseIf … بدلاً من جملة Select Case.
2- إن التفرع باستخدام جملة Select Case فعالة بشكل أكثر عندما يكون التفرع معتمداً على قيمة متغير Variable واحد فقط أو خاصية واحدة فقط ، وبالتالى هناك صعوبة فى إستخدامها عند اختبار شرط يعتمد فى تفرعه على أكثر من متغير أو خاصية . وهذا هو ما حدث فى التدريب السابق ، ولكنه ليس مستحيلاً.
3-فى الملاحظة السابقة نستنتج أنه هناك صعوبة فى تحويل الكود Code المكتوب بجملة If … Then … ElseIf … إلى كود Code مكتوب بجملة Select Case . إلا إذا كان التفرع معتمداً على ( الشرط ) قيمة متغير Variable واحد فقط أو خاصية أداة واحدة فقط.
4- من السهل تحويل الكود Code المكتوب بجملة Select Case التى تعتمد فى صياغة المقارنة على قيمة متغير واحد فقط أو خاصية واحدة فقط إلى كود Code مكتوب بجملة If … Then … ElseIf … لأن جملة If من الممكن أن تعتمد فى صياغة الشرط على قيمة متغير أو أكثر أو قيمة خاصية أو أكثر . والعكس غير صحيح.
فى الحقيقة أنا لم أبذل أى جهد فى تحويلها كما أردتى

ولكن يمكن بسهولة عمل ذلك إذا تم وضع العناصر داخل ListBox أو ComboBox مع اتباع نفس الكود فى مثال المجسمات
أما إذا أصريت على استخدام الـ RadioButton لعرض تلك العناصر ، فهناك حل طويل بعض الشئ

  
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As ...
Dim x As Byte
If Me.RadioButton1.Checked = True Then  
           x = 0
          ElseIf Me.RadioButton2.Checked = True Then
 
x = 1
          ElseIf Me.RadioButton3.Checked = True Then
 
x = 2
          ElseIf Me.RadioButton4.Checked = True Then
 
x = 3
End If


Select Case x 

      Case 0
            Me.Label4.Text = "O"
 
            Me.Label5.Text = "8"
 
            Me.Label6.Text = "16"
  
Case 1
 
            Me.Label4.Text = "Na"
 
            Me.Label5.Text = "11"
 
            Me.Label6.Text = "23"
  
Case 2
 
            Me.Label4.Text = "Mg"
 
            Me.Label5.Text = "12"
 
            Me.Label6.Text = "24"
  
Case 3
 
            Me.Label4.Text = "Al"
 
            Me.Label5.Text = "13"
 
            Me.Label6.Text = "27"
  
Case Else
 
            MsgBox("يرجى اختيار أحد العناصر")
  
        End If
      End Sub
  End Class