عرض مشاركة واحدة
  #7  
قديم 25-03-2013, 06:13 AM
yasmen582007 yasmen582007 غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Mar 2013
العمر: 37
المشاركات: 4
معدل تقييم المستوى: 0
yasmen582007 is on a distinguished road
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة 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
كود:

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