Public Class DubbeleSifonLadeManager Inherits MustInheritSifonLadeManager(Of ISifonLadeDubbel) ''' ''' Initialiseren met een special laden engine. ''' ''' De special laden engine Public Sub New(specialLadenEngine As ISpecialLadeEngine(Of ISifonLadeDubbel), reworkTrayEngine As IReworkTrayEngine) MyBase.New(specialLadenEngine, reworkTrayEngine) End Sub ''' Protected Overrides Sub UpdateLaden(gewijzigdeLade As ISifonLadeDubbel) 'Alle sifon laden overlopen. For Each sifonLade In Laden 'Updaten met wijzigbare waarden. sifonLade.BreedteSifonuitsparingZ1 = gewijzigdeLade.BreedteSifonuitsparingZ1 sifonLade.DiepteSifonuitsparingU1 = gewijzigdeLade.DiepteSifonuitsparingU1 sifonLade.PositieSifonuitsparingL = gewijzigdeLade.PositieSifonuitsparingL 'Dubbele sifonlade. sifonLade.BreedteSifonuitsparingZ2 = gewijzigdeLade.BreedteSifonuitsparingZ2 sifonLade.DiepteSifonuitsparingU2 = gewijzigdeLade.DiepteSifonuitsparingU2 sifonLade.BreedteMiddenstuk = gewijzigdeLade.BreedteMiddenstuk Next End Sub End Class