ຕົວດຳເນີນການ XOR

ເຮັດການຮວມກັນແບບ Exclusive-Or ທາງຕັກກະສາດຂອງສອງສຳນວນ.

ໄວຍາກອນ:

ຜົນໄດ້ຮັບ = ສຳນວນ1 XOR ສຳນວນ2

ພາຣາມີເຕີ:

ຜົນໄດ້ຮັບ: ຕົວປ່ຽນຕົວເລກໃດໜຶ່ງທີ່ມີຜົນຂອງການຮວມກັນ.

ສຳນວນ1, ສຳນວນ2: ສຳນວນຕົວເລກໃດໜຶ່ງທີ່ທ່ານຕ້ອງການຮວມເຂົ້າກັນ.

ການຮວມແບບ Exclusive-Or (XOR) ຂອງສອງສຳນວນ Boolean ຈະສົ່ງຄືນຄ່າ True ກໍຕໍ່ເມື່ອທັງສອງສຳນວນມີຄ່າຕ່າງກັນເທົ່ານັ້ນ.

ການຮວມແບບ Exclusive-Or ແບບບິດ (bitwise XOR) ຈະສົ່ງຄືນບິດຖ້າບິດທີ່ກົງກັນຖືກກຳນົດໄວ້ໃນພຽງແຕ່ໜຶ່ງໃນສອງສຳນວນເທົ່ານັ້ນ.

ຕົວຢ່າງ:

Sub ExampleXOR
Dim vA As Variant, vB As Variant, vC As Variant, vD As Variant
Dim vOut As Variant
    vA = 10: vB = 8: vC = 6: vD = Null
    vOut = vA > vB XOR vB > vC ' ສົ່ງຄືນ 0
    vOut = vB > vA XOR vB > vC ' ສົ່ງຄືນ -1
    vOut = vA > vB XOR vB > vD ' ສົ່ງຄືນ -1
    vOut = (vB > vD XOR vB > vA) ' ສົ່ງຄືນ 0
    vOut = vB XOR vA ' ສົ່ງຄືນ 2
End Sub