بوابة الثانوية العامة المصرية - طلب من الاستاذ سيف سالم والاستاذ احمد قرني والاستاذ حسن الحاوي

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)

- المنتدى الأكاديمي للمعلمين (https://www.thanwya.com/vb/forumdisplay.php?f=22)

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

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

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

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

اقتباس:

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

فى مذكرة الحاوى ذكرت تحت هذا التدريب عدد من الملاحظات هى :
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
صح ولا خطأ

اقتباس:

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

المتغير من النوع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

كود:

اقتباس:

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

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

كود:

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

كود:

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