Mega Code Archive

 

Categories / VB.Net / Data Structure

 

BitArray Xor performs the bitwise exclusive OR operation

Imports System Imports System.Collections Imports Microsoft.VisualBasic Public Class SamplesBitArray         Public Shared Sub Main()         Dim myBA1 As New BitArray(4)         Dim myBA2 As New BitArray(4)         myBA1(0) = False         myBA1(1) = False         myBA1(2) = True         myBA1(3) = True         myBA2(0) = False         myBA2(2) = False         myBA2(1) = True         myBA2(3) = True         PrintValues(myBA1)         PrintValues(myBA2)         PrintValues(myBA1.Xor(myBA2))         PrintValues(myBA1)         PrintValues(myBA2)     End Sub     Public Shared Sub PrintValues(myList As IEnumerable)         Dim obj As [Object]         For Each obj In  myList             Console.WriteLine(obj)         Next obj     End Sub End Class