(05-08-19, 11:58 PM)ابراهيم ايبو كتب :

السلام عليكم اخي الكريم

لم اجد طريقة انقل لك كبف هي ال XOR الا هذا الكود

نفذ هذا الكود علك تفهم عملها

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       '(A and not B) or (not A and B)
       Dim A As Integer = 10
       Dim B As Integer = 4
       Dim result As Integer = A Xor B
       MsgBox(result)

       '========================
       '(A and B) or (not A and not B)
       Dim AA As Boolean
       Dim BB As Boolean
       '=======
       AA = True
       BB = True
       Dim result1 As Boolean = AA Xor BB
       MsgBox(result1)

       AA = False
       BB = True
       Dim result2 As Boolean = AA Xor BB
       MsgBox(result2)

       AA = True
       BB = False
       Dim result3 As Boolean = AA Xor BB
       MsgBox(result3)

       AA = False
       BB = False
       Dim result4 As Boolean = AA Xor BB
       MsgBox(result4)

   End Sub