Home » VB.Net » VB.Net Programs

VB.Net program to overload bitwise right shift (>>) operator

Here, we are going to learn how to overload bitwise right shift (>>) operator in VB.Net?
Submitted by Nidhi, on January 13, 2021

Overloading bitwise right shift (>>) operator in VB.Net

Here, we will overload the right shift (>>) operator using the shared operator method, which is used to perform bitwise left shift operation on the object of the class.

Program/Source Code:

The source code to overload the right shift (>>) operator is given below. The given program is compiled and executed successfully.

VB.Net code to overload bitwise right shift (>>) operator

'VB.net program to overload bitwise right shift ">>" operator. 
Class Sample
    Dim num As Integer
    Sub SetValue(ByVal n As Integer)
        num = n
    End Sub

    Public Shared Operator >>(ByVal S1 As Sample, ByVal bits As Integer) As Integer
        Dim result As Integer = 0
        result = S1.num >> bits
        Return result
    End Operator
End Class

Module Module1
    Sub Main()
        Dim obj As New Sample()
        Dim result As Integer = 0

        obj.SetValue(10)

        'Bitwise right shift by 2 bits
        result = obj >> 2

        Console.WriteLine("Result after right shift is: {0}", result)
    End Sub
End Module

Output:

Result after right shift is: 2
Press any key to continue . . .

Explanation:

In the above program, we created a class Sample that contains two methods SetValue() and operator method to overloading the bitwise right shift (>>) operator.

After that, we created a module Module1 that contains the Main() method, the Main() method is the entry point for the program. And, we created an object of Sample class and set the value of data member using SetValue() method and then perform bitwise right shift operator on objects. After that print the result on the console screen.

VB.Net Basic Programs »

---