05-08-19, 10:47 PM
السلام عليكم ورحمة الله وبركاته
0B3D9589FD15AC05 Xor 030EB87EDF3F249D
كيف يمكن استخراج هذا الناتج
يساوي 08332DF7222A8898
0B3D9589FD15AC05 Xor 030EB87EDF3F249D
كيف يمكن استخراج هذا الناتج
يساوي 08332DF7222A8898
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(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
Dim Value1 As Integer = &HF8F
Dim Value2 As Integer = &HFB8E
Dim result5 As Integer = Value1 Xor Value2
MsgBox(result5)
Dim Value3 As Decimal = &HB3D9589FD15AC05
Dim Value4 As Decimal = &H30EB87EDF3F249D
Dim result6 As Decimal = Value3 Xor Value4
MsgBox(result6)