[Fork] DI interface vb | C# Online Compiler

[Fork] DI interface vb by DaveCS1

Imports System
				
Public Module Module1
	 
	Public Sub Main()
		Dim injector As New Mother
    Dim serviceObject = injector.GetDrinkService()
    Dim clientObject As New Child(serviceObject)

    clientObject.Drink()

Console.ReadLine()
	End Sub
	Public Interface IDrinkService

    Sub Drink()

End Interface
Public Class MilkDrinkService

    Implements IDrinkService

    Public Sub Drink() Implements IDrinkService.Drink
        Console.WriteLine("Drink a cup of milk")
    End Sub

End Class

Public Class OrangeJuiceDrinkService

    Implements IDrinkService

    Public Sub Drink() Implements IDrinkService.Drink
        Console.WriteLine("Drink a glass of orange juice")
    End Sub

	
End Class

Public Class AppleJuiceDrinkService

    Implements IDrinkService

    Public Sub Drink() Implements IDrinkService.Drink
        Console.WriteLine("Drink a bottle of apple juice")
    End Sub

End Class

Public Class Child

    Private ReadOnly _drinkService As IDrinkService

    Public Sub New(drinkService As IDrinkService)
        _drinkService = drinkService
    End Sub

    Public Sub Drink()
        _drinkService.Drink()
    End Sub

End Class
Public Class Mother

    Public Function GetDrinkService() As IDrinkService
        Return New MilkDrinkService()        
    End Function

End Class

End Module

​x
 
Imports System
                
Public Module Module1
     
    Public Sub Main()
        Dim injector As New Mother
    Dim serviceObject = injector.GetDrinkService()
    Dim clientObject As New Child(serviceObject)
​
    clientObject.Drink()
​
Console.ReadLine()
    End Sub
    Public Interface IDrinkService
​
    Sub Drink()
​
End Interface
Public Class MilkDrinkService
​
    Implements IDrinkService
​
    Public Sub Drink() Implements IDrinkService.Drink
        Console.WriteLine("Drink a cup of milk")
    End Sub
​
End Class
​
Public Class OrangeJuiceDrinkService
​
    Implements IDrinkService
​
    Public Sub Drink() Implements IDrinkService.Drink
        Console.WriteLine("Drink a glass of orange juice")
    End Sub
​
    
End Class
​
Public Class AppleJuiceDrinkService
​
    Implements IDrinkService
​
    Public Sub Drink() Implements IDrinkService.Drink
        Console.WriteLine("Drink a bottle of apple juice")
    End Sub
​
End Class
​
Public Class Child
​
    Private ReadOnly _drinkService As IDrinkService
​
    Public Sub New(drinkService As IDrinkService)
        _drinkService = drinkService
    End Sub
​
    Public Sub Drink()
        _drinkService.Drink()
    End Sub
​
End Class
Public Class Mother
​
    Public Function GetDrinkService() As IDrinkService
        Return New MilkDrinkService()        
    End Function
​
End Class
​
End Module

  OS

---------------------

int Data_1;
float Data_2;

double Data_3 = 3;

int main(int a, int b, float X, double Y2)
{
    int    Data_A;
    double Data_B = 25.45;

    if(x > y)
        if(x < y)
            int a = b;
        else
            int a = c;

    return 0;
};

void f1(void)
{
    int a = 5;

goto Lb_1;
    return;
};

------------------

      TOKEN LIST:

   TYPE         VALUE

BuildInType     "int"
Identifier      "Data_1"
Punctuator      ";"
BuildInType     "float"
Identifier      "Data_2"
Punctuator      ";"
BuildInType     "double"
Identifier      "Data_3"
Operation       "="
Number          "3"
Punctuator      ";"
BuildInType     "int"
Identifier      "main"
Punctuator      "("
BuildInType     "int"
Identifier      "a"
Punctuator      ","
BuildInType     "int"
Identifier      "b"
Punctuator      ","
BuildInType     "float"
Identifier      "X"
Punctuator      ","
BuildInType     "double"
Identifier      "Y2"
Punctuator      ")"
Punctuator      "{"
BuildInType     "int"
Identifier      "Data_A"
Punctuator      ";"
BuildInType     "double"
Identifier      "Data_B"
Operation       "="
Number          "25.45"
Punctuator      ";"
ControlKeyWord  "if"
Punctuator      "("
Identifier      "x"
Operation       ">"
Identifier      "y"
Punctuator      ")"
ControlKeyWord  "if"
Punctuator      "("
Identifier      "x"
Operation       "<"
Identifier      "y"
Punctuator      ")"
BuildInType     "int"
Identifier      "a"
Operation       "="
Identifier      "b"
Punctuator      ";"
ControlKeyWord  "else"
BuildInType     "int"
Identifier      "a"
Operation       "="
Identifier      "c"
Punctuator      ";"
ControlKeyWord  "return"
Number          "0"
Punctuator      ";"
Punctuator      "}"
Punctuator      ";"
BuildInType     "void"
Identifier      "f1"
Punctuator      "("
BuildInType     "void"
Punctuator      ")"
Punctuator      "{"
BuildInType     "int"
Identifier      "a"
Operation       "="
Number          "5"
Punctuator      ";"
ControlKeyWord  "goto"
Identifier      "Lb_1"
Punctuator      ";"
ControlKeyWord  "return"
Punctuator      ";"
Punctuator      "}"
Punctuator      ";"
EOF             ""

int Data_1;
float Data_2;
double Data_3 = 3;

int main(int a, int b, float X, double Y2)
{
    int Data_A;
    double Data_B = 25.45;

    if(x > y)
    {

        if(x < y)
        {
            int a = b;

        }
        else
        {

            int a = c;
        }

    }

    return 0;
}

void f1()
{
    int a = 5;
    goto Lb_1;
    return;
}
  OS

Command exited with non-zero status 58

Cached Result
Last Run:	3:07:17 pm
Compile:	0.021s
Execute:	0.06s
Memory:	3.09Mb
CPU:	0.081s

View IL Code