Public Class SifonLadeController
    Private Shared _instance As SifonLadeController

    Private ReadOnly _sifonladeManager As LadeManager(Of ISifonLade)

    ''' <summary>
    ''' Singleton instantie opvragen.
    ''' </summary>
    ''' <returns>Instantie</returns>
    Public Shared Function GetInstance() As SifonLadeController
        If _instance Is Nothing Then
            _instance = New SifonLadeController
        End If
        Return _instance
    End Function

    Public Sub New()
        'Special lade engine initialiseren met de juiste mapper.
        dim specialLadeEngine = new SpecialLadeEngine(Of ISifonLade)( New SifonLadenMapper)
        'Manager initialiseren met de engine.
        _sifonladeManager = new SifonLadeManager(specialLadeEngine)
    End Sub

    ''' <summary>
    ''' Zoek de lade aan de hand van de lade code.
    ''' </summary>
    ''' <returns></returns>
    Public Function ZoekLade(ladeCode As String) As Boolean
        'Manager aanroepen en resultaat retourneren. True als de lade is gevonden.
        Return _sifonladeManager.ZoekEnLaadLaden(ladeCode)
    End Function

    ''' <summary>
    ''' Informatie opvragen over de sifonLade als DTO.
    ''' </summary>
    ''' <returns>DTO met informatie</returns>
    Public Function GeefInformatieSifonLade() As SifonLadeDto
        'De eerste sifonlade opvragen.
        Dim sifonLade As ISifonLade = _sifonladeManager.EersteOfStandaard()

        'Controleren of de sifonLade niet leeg is.
        If sifonLade Is Nothing
            'Zo ja, retourneer Nothing.
            Return Nothing
        End If

        'De DTO converter aanmaken.
        Dim dtoConverter = New SifonLadeDtoConverter
        'Sifonlade converteren en retourneren als DTO.
        Return dtoConverter.ToDto(sifonLade)
    End Function

    ''' <summary>
    ''' Gewijzigde waarden van de sifon lade updaten.
    ''' </summary>
    ''' <param name="sifonLadeDto">De DTO van de sifon lade</param>
    Public Sub UpdateWaardenSifonLade(sifonLadeDto As SifonLadeDto)
        'De DTO converter aanmaken.
        Dim dtoConverter = New SifonLadeDtoConverter
        'Dto converteren naar sifon lade.
        dtoConverter.FromDto(sifonLadeDto)

    End Sub

    Private Sub verdeelSifonLadenOverReworkTrays()
        Dim zijkanten As New List(Of ArdisData)
        'For Each sifonLade In _specialLadenRep.sifonLaden
            'zijkanten
           ' zijkanten.AddRange(sifonLade.zijkanten)
        'Next
        'special rework trays laten verwerken
        'todo voegReworkTraysSpecialLadeToe(zijkanten)
    End Sub

    Private Sub slaSifonLadenOp()
        'todo Dim hoofdAansturingSifonLade As HoofdAansturingSpecialLade = New HoofdAansturingSifonLade(reworkTrayRep)
        'hoofdAansturingSifonLade.verwerkenSpecialLadeMetTrays(_specialLadenRep.sifonLaden)
    End Sub

End Class