VB.Net program to overload Not operator

Here, we are going to learn how to overload Not operator in VB.Net?
Submitted by Nidhi, on January 13, 2021 [Last updated : March 06, 2023]

Overloading Not operator in VB.Net

Here, we will overload the Not operator using the operator method, The Not operator change the Boolean value True into False or vice versa.

Program/Source Code:

The source code to overload the Not operator is given below. The given program is compiled and executed successfully.

VB.Net code to overload Not operator

'VB.net program to overload "Not" operator.

Class Sample
    Dim X As Boolean
    Sub SetX(ByVal val As Boolean)
        X = val
    End Sub
    Sub PrintX()
        Console.WriteLine("Value is: {0}", X)
    End Sub

    Public Shared Operator Not(ByVal S As Sample) As Boolean
        Dim temp As Boolean
        temp = Not S.X
        Return temp
    End Operator
End Class

Module Module1
    Sub Main()
        Dim obj As New Sample()
        Dim result As Boolean

        obj.SetX(True)
        obj.PrintX()

        result = Not obj
        Console.WriteLine("Result: {0}", result)

        obj.SetX(False)
        obj.PrintX()

        result = Not obj
        Console.WriteLine("Result: {0}", result)
    End Sub
End Module

Output:

Value is: True
Result: False
Value is: False
Result: True
Press any key to continue . . .

Explanation:

In the above program, we created a class Sample that contains two methods SetX() and PrintX() to set and print the value of data members. Here, we also implemented a method to overload the Not 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 SetX() method and then perform use Not operator with the object of Sample class and print the result on the console screen.

VB.Net Basic Programs »





Comments and Discussions!

Load comments ↻





Copyright © 2024 www.includehelp.com. All rights reserved.