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


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



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

هل يمكن عمل هذا برنامج بجملة 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

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

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

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

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

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

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

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

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



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