Class behave like primative | C# Online Compiler

Class behave like primative by JpshStackOverflow

Imports System
Imports System.Xml
Imports System.Data

Public Module Module1
	Public Sub Main()
		Dim A As MathVariant
		Dim B As MathVariant 
		
		A = "12.11"
		B = 3I
		
		Dim C = A + B

		Console.WriteLine(C.Value) 'Desired output from next line
		Console.WriteLine(C) 'Desired way to call variable
		Console.WriteLine("Done")

	End Sub
End Module

Public Class MathVariant
    Private m_Value As String

    'public version
    Public Property Value As Object
        Get
            Dim m_value1 As Double
            If Double.TryParse(m_Value, m_value1) Then
                Return m_value1
            End If
            Return m_Value
        End Get
        Set(value As Object)
            m_Value = value.ToString()
        End Set
    End Property

    Public Sub New(Value As String)
        m_Value = Value
    End Sub

    Public Shared Widening Operator CType(ByVal value As String) As MathVariant
            Return New MathVariant(value)
    End Operator

    Public Shared Widening Operator CType(ByVal value As Decimal) As MathVariant
        Return New MathVariant(value.ToString())
    End Operator

    Public Shared Widening Operator CType(ByVal value As Double) As MathVariant
        Return New MathVariant(value)
    End Operator

    Public Shared Widening Operator CType(ByVal value As Integer) As MathVariant
        Return New MathVariant(value.ToString())
    End Operator

    Public Shared Narrowing Operator CType(ByVal value As MathVariant) As Double
        Return value.ToDouble()
    End Operator

    Public Shared Narrowing Operator CType(ByVal value As MathVariant) As Integer
        Return Convert.ToInt32(value.ToDouble())
    End Operator

    Public Shared Narrowing Operator CType(ByVal value As MathVariant) As String
        Return value.Value.ToString()
    End Operator

    Public Function ToDouble() As Double
        Dim test As Double
        If Double.TryParse(Me.Value.ToString(), test) Then
            Return test
        End If
        Return 0
    End Function

    'addition
    Public Shared Operator +(value1 As MathVariant, value2 As MathVariant) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2.Value Is Double Then
            Return value1.ToDouble() + value2.ToDouble()
        ElseIf TypeOf value1.Value Is Double Then
            Return value1.ToDouble() + 0.0
        ElseIf TypeOf value2.Value Is Double Then
            Return 0.0 + value2.ToDouble()
        End If
        Return 0
    End Operator

    Public Shared Operator +(value1 As MathVariant, value2 As Object) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2 Is Double Then
            Return value1.ToDouble() + value2
        ElseIf TypeOf value2 Is Double Then
            Return 0.0 + value2
        End If
        Return 0.0
    End Operator

    Public Shared Operator +(value1 As MathVariant, value2 As Double) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() + value2
        End If
        Return 0.0 + value2
    End Operator

    Public Shared Operator +(value1 As MathVariant, value2 As Integer) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() + Convert.ToDouble(value2)
        End If
        Return 0.0 + Convert.ToDouble(value2)
    End Operator

    'subtraction
    Public Shared Operator -(value1 As MathVariant, value2 As MathVariant) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2.Value Is Double Then
            Return value1.ToDouble() - value2.ToDouble()
        ElseIf TypeOf value1.Value Is Double Then
            Return value1.ToDouble() - 0.0
        ElseIf TypeOf value2.Value Is Double Then
            Return 0.0 - value2.ToDouble()
        End If
        Return 0
    End Operator

    Public Shared Operator -(value1 As MathVariant, value2 As Object) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2 Is Double Then
            Return value1.ToDouble() - value2
        ElseIf TypeOf value2 Is Double Then
            Return 0.0 - value2
        End If
        Return 0.0
    End Operator

    Public Shared Operator -(value1 As MathVariant, value2 As Double) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() - value2
        End If
        Return 0.0 - value2
    End Operator

    Public Shared Operator -(value1 As MathVariant, value2 As Integer) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() - Convert.ToDouble(value2)
        End If
        Return 0.0 - Convert.ToDouble(value2)
    End Operator

    'division
    Public Shared Operator /(value1 As MathVariant, value2 As MathVariant) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2.Value Is Double Then
            Return value1.ToDouble() / value2.ToDouble()
        ElseIf TypeOf value1.Value Is Double Then
            Return value1.ToDouble() / 1.0
        ElseIf TypeOf value2.Value Is Double Then
            Return 1.0 / value2.ToDouble()
        End If
        Return 0
    End Operator

    Public Shared Operator /(value1 As MathVariant, value2 As Object) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2 Is Double Then
            Return value1.ToDouble() / value2
        ElseIf TypeOf value2 Is Double Then
            Return 1.0 / value2
        End If
        Return 0.0
    End Operator

    Public Shared Operator /(value1 As MathVariant, value2 As Double) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() + value2
        End If
        Return 0.0 + value2
    End Operator

    Public Shared Operator /(value1 As MathVariant, value2 As Integer) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() + Convert.ToDouble(value2)
        End If
        Return 0.0 + Convert.ToDouble(value2)
    End Operator

    'multiplication
    Public Shared Operator *(value1 As MathVariant, value2 As MathVariant) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2.Value Is Double Then
            Return value1.ToDouble() * value2.ToDouble()
        ElseIf TypeOf value1.Value Is Double Then
            Return value1.ToDouble() * 1.0
        ElseIf TypeOf value2.Value Is Double Then
            Return 1.0 * value2.ToDouble()
        End If
        Return 1.0
    End Operator

    Public Shared Operator *(value1 As MathVariant, value2 As Object) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2 Is Double Then
            Return value1.ToDouble() * value2
        ElseIf TypeOf value2 Is Double Then
            Return 1.0 * value2
        End If
        Return 1.0
    End Operator

    Public Shared Operator *(value1 As MathVariant, value2 As Double) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() + value2
        End If
        Return 1.0 * value2
    End Operator

    Public Shared Operator *(value1 As MathVariant, value2 As Integer) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() * Convert.ToDouble(value2)
        End If
        Return 1.0 * Convert.ToDouble(value2)
    End Operator


    'less than
    Public Shared Operator <(value1 As MathVariant, value2 As MathVariant)
        If TypeOf value1.Value Is Double And TypeOf value2.Value Is Double Then
            Return value1.Value < value2.Value

        ElseIf TypeOf value1.Value Is Double Then
            Return value1.Value < 0

        ElseIf TypeOf value2.Value Is Double Then
            Return 0 < value2.Value
        End If
        Return False
    End Operator

    Public Shared Operator <(value1 As MathVariant, value2 As Double)
        If TypeOf value1.Value Is Double Then
            Return value1.Value < value2
        Else
            Return 0 < value2
        End If
        Return False
    End Operator

    Public Shared Operator <(value1 As MathVariant, value2 As Integer)
        If TypeOf value1.Value Is Double Then
            Return value1.Value < Convert.ToDouble(value2)
        Else
            Return 0.0 < Convert.ToDouble(value2)
        End If
        Return False
    End Operator

    'greater than
    Public Shared Operator >(value1 As MathVariant, value2 As MathVariant)
        If TypeOf value1.Value Is Double And TypeOf value2.Value Is Double Then
            Return value1.Value > value2.Value

        ElseIf TypeOf value1.Value Is Double Then
            Return value1.Value > 0

        ElseIf TypeOf value2.Value Is Double Then
            Return 0 > value2.Value
        End If
        Return False
    End Operator

    Public Shared Operator >(value1 As MathVariant, value2 As Double)
        If TypeOf value1.Value Is Double Then
            Return value1.Value > value2
        Else
            Return 0 > value2
        End If
        Return False
    End Operator

    Public Shared Operator >(value1 As MathVariant, value2 As Integer)
        If TypeOf value1.Value Is Double Then
            Return value1.Value > Convert.ToDouble(value2)
        Else
            Return 0.0 > Convert.ToDouble(value2)
        End If
        Return False
    End Operator

    'equal to
    Public Shared Operator =(value1 As MathVariant, value2 As Object)
        If TypeOf (value2) Is Double Then
            Return Convert.ToDouble(value2).Equals(value1.ToDouble())
        ElseIf TypeOf (value2) Is String Then
            Return Convert.ToString(value2).Equals(value1.ToString())
        End If
        Return False
    End Operator

    'not equal
    Public Shared Operator <>(value1 As MathVariant, value2 As Object)
        Dim m_Type As Type = value2.GetType()
        If TypeOf (value2) Is Double Then
            Return Convert.ToDouble(value2).Equals(value1.ToDouble())
        ElseIf TypeOf (value2) Is String Then
            Return Convert.ToString(value2).Equals(value1.ToString())
        End If
        Return False
    End Operator
End Class

​x
 
Imports System
Imports System.Xml
Imports System.Data
​
Public Module Module1
    Public Sub Main()
        Dim A As MathVariant
        Dim B As MathVariant 
        
        A = "12.11"
        B = 3I
        
        Dim C = A + B
​
        Console.WriteLine(C.Value) 'Desired output from next line
        Console.WriteLine(C) 'Desired way to call variable
        Console.WriteLine("Done")
​
    End Sub
End Module
​
Public Class MathVariant
    Private m_Value As String
​
    'public version
    Public Property Value As Object
        Get
            Dim m_value1 As Double
            If Double.TryParse(m_Value, m_value1) Then
                Return m_value1
            End If
            Return m_Value
        End Get
        Set(value As Object)
            m_Value = value.ToString()
        End Set
    End Property
​
    Public Sub New(Value As String)
        m_Value = Value
    End Sub
​
    Public Shared Widening Operator CType(ByVal value As String) As MathVariant
            Return New MathVariant(value)
    End Operator
​
    Public Shared Widening Operator CType(ByVal value As Decimal) As MathVariant
        Return New MathVariant(value.ToString())
    End Operator
​
    Public Shared Widening Operator CType(ByVal value As Double) As MathVariant
        Return New MathVariant(value)
    End Operator
​
    Public Shared Widening Operator CType(ByVal value As Integer) As MathVariant
        Return New MathVariant(value.ToString())
    End Operator
​
    Public Shared Narrowing Operator CType(ByVal value As MathVariant) As Double
        Return value.ToDouble()
    End Operator
​
    Public Shared Narrowing Operator CType(ByVal value As MathVariant) As Integer
        Return Convert.ToInt32(value.ToDouble())
    End Operator
​
    Public Shared Narrowing Operator CType(ByVal value As MathVariant) As String
        Return value.Value.ToString()
    End Operator
​
    Public Function ToDouble() As Double
        Dim test As Double
        If Double.TryParse(Me.Value.ToString(), test) Then
            Return test
        End If
        Return 0
    End Function
​
    'addition
    Public Shared Operator +(value1 As MathVariant, value2 As MathVariant) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2.Value Is Double Then
            Return value1.ToDouble() + value2.ToDouble()
        ElseIf TypeOf value1.Value Is Double Then
            Return value1.ToDouble() + 0.0
        ElseIf TypeOf value2.Value Is Double Then
            Return 0.0 + value2.ToDouble()
        End If
        Return 0
    End Operator
​
    Public Shared Operator +(value1 As MathVariant, value2 As Object) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2 Is Double Then
            Return value1.ToDouble() + value2
        ElseIf TypeOf value2 Is Double Then
            Return 0.0 + value2
        End If
        Return 0.0
    End Operator
​
    Public Shared Operator +(value1 As MathVariant, value2 As Double) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() + value2
        End If
        Return 0.0 + value2
    End Operator
​
    Public Shared Operator +(value1 As MathVariant, value2 As Integer) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() + Convert.ToDouble(value2)
        End If
        Return 0.0 + Convert.ToDouble(value2)
    End Operator
​
    'subtraction
    Public Shared Operator -(value1 As MathVariant, value2 As MathVariant) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2.Value Is Double Then
            Return value1.ToDouble() - value2.ToDouble()
        ElseIf TypeOf value1.Value Is Double Then
            Return value1.ToDouble() - 0.0
        ElseIf TypeOf value2.Value Is Double Then
            Return 0.0 - value2.ToDouble()
        End If
        Return 0
    End Operator
​
    Public Shared Operator -(value1 As MathVariant, value2 As Object) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2 Is Double Then
            Return value1.ToDouble() - value2
        ElseIf TypeOf value2 Is Double Then
            Return 0.0 - value2
        End If
        Return 0.0
    End Operator
​
    Public Shared Operator -(value1 As MathVariant, value2 As Double) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() - value2
        End If
        Return 0.0 - value2
    End Operator
​
    Public Shared Operator -(value1 As MathVariant, value2 As Integer) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() - Convert.ToDouble(value2)
        End If
        Return 0.0 - Convert.ToDouble(value2)
    End Operator
​
    'division
    Public Shared Operator /(value1 As MathVariant, value2 As MathVariant) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2.Value Is Double Then
            Return value1.ToDouble() / value2.ToDouble()
        ElseIf TypeOf value1.Value Is Double Then
            Return value1.ToDouble() / 1.0
        ElseIf TypeOf value2.Value Is Double Then
            Return 1.0 / value2.ToDouble()
        End If
        Return 0
    End Operator
​
    Public Shared Operator /(value1 As MathVariant, value2 As Object) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2 Is Double Then
            Return value1.ToDouble() / value2
        ElseIf TypeOf value2 Is Double Then
            Return 1.0 / value2
        End If
        Return 0.0
    End Operator
​
    Public Shared Operator /(value1 As MathVariant, value2 As Double) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() + value2
        End If
        Return 0.0 + value2
    End Operator
​
    Public Shared Operator /(value1 As MathVariant, value2 As Integer) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() + Convert.ToDouble(value2)
        End If
        Return 0.0 + Convert.ToDouble(value2)
    End Operator
​
    'multiplication
    Public Shared Operator *(value1 As MathVariant, value2 As MathVariant) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2.Value Is Double Then
            Return value1.ToDouble() * value2.ToDouble()
        ElseIf TypeOf value1.Value Is Double Then
            Return value1.ToDouble() * 1.0
        ElseIf TypeOf value2.Value Is Double Then
            Return 1.0 * value2.ToDouble()
        End If
        Return 1.0
    End Operator
​
    Public Shared Operator *(value1 As MathVariant, value2 As Object) As MathVariant
        If TypeOf value1.Value Is Double And TypeOf value2 Is Double Then
            Return value1.ToDouble() * value2
        ElseIf TypeOf value2 Is Double Then
            Return 1.0 * value2
        End If
        Return 1.0
    End Operator
​
    Public Shared Operator *(value1 As MathVariant, value2 As Double) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() + value2
        End If
        Return 1.0 * value2
    End Operator
​
    Public Shared Operator *(value1 As MathVariant, value2 As Integer) As MathVariant
        If TypeOf value1.Value Is Double Then
            Return value1.ToDouble() * Convert.ToDouble(value2)
        End If
        Return 1.0 * Convert.ToDouble(value2)
    End Operator
​
​
    'less than
    Public Shared Operator <(value1 As MathVariant, value2 As MathVariant)
        If TypeOf value1.Value Is Double And TypeOf value2.Value Is Double Then
            Return value1.Value < value2.Value
​
        ElseIf TypeOf value1.Value Is Double Then
            Return value1.Value < 0
​
        ElseIf TypeOf value2.Value Is Double Then
            Return 0 < value2.Value
        End If
        Return False
    End Operator
​
    Public Shared Operator <(value1 As MathVariant, value2 As Double)
        If TypeOf value1.Value Is Double Then
            Return value1.Value < value2
        Else
            Return 0 < value2
        End If
        Return False
    End Operator
​
    Public Shared Operator <(value1 As MathVariant, value2 As Integer)
        If TypeOf value1.Value Is Double Then
            Return value1.Value < Convert.ToDouble(value2)
        Else
            Return 0.0 < Convert.ToDouble(value2)
        End If
        Return False
    End Operator
​
    'greater than
    Public Shared Operator >(value1 As MathVariant, value2 As MathVariant)
        If TypeOf value1.Value Is Double And TypeOf value2.Value Is Double Then
            Return value1.Value > value2.Value
​
        ElseIf TypeOf value1.Value Is Double Then
            Return value1.Value > 0
​
        ElseIf TypeOf value2.Value Is Double Then
            Return 0 > value2.Value
        End If
        Return False
    End Operator
​
    Public Shared Operator >(value1 As MathVariant, value2 As Double)
        If TypeOf value1.Value Is Double Then
            Return value1.Value > value2
        Else
            Return 0 > value2
        End If
        Return False
    End Operator
​
    Public Shared Operator >(value1 As MathVariant, value2 As Integer)
        If TypeOf value1.Value Is Double Then
            Return value1.Value > Convert.ToDouble(value2)
        Else
            Return 0.0 > Convert.ToDouble(value2)
        End If
        Return False
    End Operator
​
    'equal to
    Public Shared Operator =(value1 As MathVariant, value2 As Object)
        If TypeOf (value2) Is Double Then
            Return Convert.ToDouble(value2).Equals(value1.ToDouble())
        ElseIf TypeOf (value2) Is String Then
            Return Convert.ToString(value2).Equals(value1.ToString())
        End If
        Return False
    End Operator
​
    'not equal
    Public Shared Operator <>(value1 As MathVariant, value2 As Object)
        Dim m_Type As Type = value2.GetType()
        If TypeOf (value2) Is Double Then
            Return Convert.ToDouble(value2).Equals(value1.ToDouble())
        ElseIf TypeOf (value2) Is String Then
            Return Convert.ToString(value2).Equals(value1.ToString())
        End If
        Return False
    End Operator
End Class

View IL Code