طلب من الاستاذ سيف سالم والاستاذ احمد قرني والاستاذ حسن الحاوي

[yasmen582007]

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


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



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

[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

[yasmen582007]

شكرا لاهتمام حضرتك وردك على سؤالي جزاك الله كل خير
انا استفدت من حضرتك كتييير
الف الف شكر

[RAMADAN ALDANDYLE]

المتغير من النوعInteger يأخذ قيم عددية صحيحة من
0:255
صح ولا خطأ

[hassanalhawy]

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

المتغير من النوعInteger يأخذ قيم عددية صحيحة من
0:255
صح ولا خطأ

الإجابة صح
أما إذا جاء السؤال بصيغة أخرى مثل
المتغير من النوع integer ياخذ قيم عددية صحيحة من 0:255 فقط ( )
الإجابة خطأ

[hassanalhawy]

يوجد كود مبسط أستاذة ياسمين لطلبك

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

[yasmen582007]

المشاركة الأصلية كتبت بواسطة hass****hawy

يوجد كود مبسط أستاذة ياسمين لطلبك

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

جزاك الله كل خير يا استاذ حسن
أتمنى من الله عز وجل أن يعطيك الصحة والعافية
كل الشكر والتقدير
والعرفان والامتنان