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

[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

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