منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] سؤال : عن الدالة الشرطية if - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سؤال : عن الدالة الشرطية if (/showthread.php?tid=22194)

سؤال : عن الدالة الشرطية if - dubai.eig - 21-10-17

السلام عليكم ورحمة الله


استفسار عن الدالة الشرطية if  

هل اللي اكتبه صحيح او لا

مثلا

كود :
        If nema = "khalid" Xor nema = "ahmed" And Not IsNumeric(Exchange_r.Text) Then

ال nema مسحوب من قاعدة البيانات

اذا الطلب على اسمين  
هل صحيح الكود التالي


كود :
If nema = "khalid" Xor nema = "ahmed" And Not IsNumeric(Exchange_r.Text) Then

XOR

او

كود :
        If nema = "khalid" and nema = "ahmed" And Not IsNumeric(Exchange_r.Text) Then

AND

او


كود :
        If nema = "khalid" or  nema = "ahmed" And Not IsNumeric(Exchange_r.Text) Then

OR



والسؤال الثاني مثلا هل في عدد معين للطلب او عادي يكون مثلا 5  او 6

كمثال

كود :
        If nema = "khalid" or  nema = "ahmed" or  nema = "mhhmed" or  nema = "salem" or  nema = "ali" And Not IsNumeric(Exchange_r.Text) Then
MsgBox("OK")
ElseIf nema = "khalid" or  nema = "ahmed" or  nema = "mhhmed" or  nema = "salem" or  nema = "ali" And IsNumeric(Exchange_r.Text) Then
MsgBox("NO")

ElseIf nema = "khalid" or  nema = "ahmed" or  nema = "mhhmed" or  nema = "salem" or  nema = "ali" And Exchange_r.Text Then
MsgBox("NO")

ElseIf nema = "khalid" or  nema = "ahmed" or  nema = "mhhmed" or  nema = "salem" or  nema = "ali" And UU_r.Text Then
MsgBox("NO")

ElseIf nema = "khalid" or  nema = "ahmed" or  nema = "mhhmed" or  nema = "salem" or  nema = "ali" And  GG.Text Then
MsgBox("NO")



ElseIf nema = "khalid" or  nema = "ahmed" or  nema = "mhhmed" or  nema = "salem" or  nema = "ali" And  EE.Text Then
MsgBox("NO")


ElseIf nema = "khalid" or  nema = "ahmed" or  nema = "mhhmed" or  nema = "salem" or  nema = "ali" And  GWWG.Text Then
MsgBox("NO")


End If


افيدوني بارك الله فيكم ما هي الكتابة الصحيحه 

وشكرا
هل طريقة في كتابة الكود صحيحه

كود :
If contestnx = "CQ 160 Meter" And Continentx = "AS" And WORKinfo.Continent.Text = "NA" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "AS" And WORKinfo.Continent.Text = "SA" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "AS" And WORKinfo.Continent.Text = "EU" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "AS" And WORKinfo.Continent.Text = "OC" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "AS" And WORKinfo.Continent.Text = "AS" Then
           Points.Text = "5"





       ElseIf contestnx = "CQ 160 Meter" And Continentx = "NA" And WORKinfo.Continent.Text = "NA" Then
           Points.Text = "5"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "NA" And WORKinfo.Continent.Text = "SA" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "NA" And WORKinfo.Continent.Text = "EU" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "NA" And WORKinfo.Continent.Text = "OC" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "NA" And WORKinfo.Continent.Text = "AS" Then
           Points.Text = "10"




       ElseIf contestnx = "CQ 160 Meter" And Continentx = "SA" And WORKinfo.Continent.Text = "NA" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "SA" And WORKinfo.Continent.Text = "SA" Then
           Points.Text = "5"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "SA" And WORKinfo.Continent.Text = "EU" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "SA" And WORKinfo.Continent.Text = "OC" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "SA" And WORKinfo.Continent.Text = "AS" Then
           Points.Text = "10"




       ElseIf contestnx = "CQ 160 Meter" And Continentx = "EU" And WORKinfo.Continent.Text = "NA" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "EU" And WORKinfo.Continent.Text = "SA" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "EU" And WORKinfo.Continent.Text = "EU" Then
           Points.Text = "5"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "EU" And WORKinfo.Continent.Text = "OC" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "EU" And WORKinfo.Continent.Text = "AS" Then
           Points.Text = "10"



       ElseIf contestnx = "CQ 160 Meter" And Continentx = "OC" And WORKinfo.Continent.Text = "NA" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "OC" And WORKinfo.Continent.Text = "SA" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "OC" And WORKinfo.Continent.Text = "EU" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "OC" And WORKinfo.Continent.Text = "OC" Then
           Points.Text = "5"

       ElseIf contestnx = "CQ 160 Meter" And Continentx = "OC" And WORKinfo.Continent.Text = "AS" Then
           Points.Text = "10"

       ElseIf contestnx = "CQ 160 Meter" And PFXX = WORKinfo.PFX.Text Then
           Points.Text = "2"

      End IF