عرض مشاركة واحدة
  #5  
قديم 24-03-2013, 10:59 PM
الصورة الرمزية hassanalhawy
hassanalhawy hassanalhawy غير متواجد حالياً
مــٌــعلــم
 
تاريخ التسجيل: Sep 2010
المشاركات: 1,514
معدل تقييم المستوى: 16
hassanalhawy is on a distinguished road
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة منى محمد عوض مشاهدة المشاركة
شكرا على رد حضراتكم جميعاً
ولكن هل من مثال با استاذ تامر
أنظر الكود التالى لتحويل جملة If إلى جملة Select Case للتدريب ص 50 بالكتاب
كود:
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
كود:

__________________
يخطئ من يظن أن للذئاب ديناً