Миграция с VB6 на VB.NET

Module LegacyTypes
    Sub ConvertValue()
        Dim legacyInteger As Short = 32000
        Dim modernInteger As Integer = legacyInteger
        Dim amount As Decimal = 12.34D
        Console.WriteLine($"{modernInteger}:{amount}")
    End Sub
End Module

Option Strict On
Namespace ReviewCase27_1
    Module LegacyTypes
        Sub ConvertValue()
            Dim reviewLegacyInteger As Short = 32000
            Dim reviewModernInteger As Integer = reviewLegacyInteger
            Dim reviewAmount As Decimal = 12.34D
            Console.WriteLine($"{reviewModernInteger}:{reviewAmount}")
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase27_1
    Module LegacyTypes
        Sub ConvertValue()
            Dim edgeLegacyInteger As Short = 32000
            Dim edgeModernInteger As Integer = edgeLegacyInteger
            Dim edgeAmount As Decimal = 12.34D
            Console.WriteLine($"{edgeModernInteger}:{edgeAmount}")
        End Sub
    End Module
End Namespace

Class LegacyFormAdapter
    Private ReadOnly view As ICustomerView
    Public Sub New(view As ICustomerView)
        Me.view = view
    End Sub
    Public Sub LoadCustomer(id As Integer)
        view.Show(CustomerService.GetById(id))
    End Sub
End Class

Option Strict On
Namespace ReviewCase27_2
    Class LegacyFormAdapter
        Private ReadOnly reviewView As ICustomerView
        Public Sub New(reviewView As ICustomerView)
            Me.reviewView = reviewView
        End Sub
        Public Sub LoadCustomer(reviewId As Integer)
            reviewView.Show(CustomerService.GetById(reviewId))
        End Sub
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase27_2
    Class LegacyFormAdapter
        Private ReadOnly edgeView As ICustomerView
        Public Sub New(edgeView As ICustomerView)
            Me.edgeView = edgeView
        End Sub
        Public Sub LoadCustomer(edgeId As Integer)
            edgeView.Show(CustomerService.GetById(edgeId))
        End Sub
    End Class
End Namespace

Class LegacyComAdapter
    Implements ILegacyCalculator
    Private ReadOnly com As Object
    Public Function Calculate(value As Decimal) As Decimal Implements ILegacyCalculator.Calculate
        Return CDec(CallByName(com, "Calculate", CallType.Method, value))
    End Function
End Class

Option Strict On
Namespace ReviewCase27_3
    Class LegacyComAdapter
        Implements ILegacyCalculator
        Private ReadOnly com As Object
        Public Function Calculate(value As Decimal) As Decimal Implements ILegacyCalculator.Calculate
            Return CDec(CallByName(com, "Calculate", CallType.Method, value))
        End Function
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase27_3
    Class LegacyComAdapter
        Implements ILegacyCalculator
        Private ReadOnly com As Object
        Public Function Calculate(value As Decimal) As Decimal Implements ILegacyCalculator.Calculate
            Return CDec(CallByName(com, "Calculate", CallType.Method, value))
        End Function
    End Class
End Namespace

Class MigrationFacade
    Public Function Calculate(order As Order) As Decimal
        If FeatureFlags.UseModernPricing Then Return modern.Calculate(order)
        Return legacy.Calculate(order)
    End Function
End Class

Option Strict On
Namespace ReviewCase27_4
    Class MigrationFacade
        Public Function Calculate(reviewOrder As Order) As Decimal
            If FeatureFlags.UseModernPricing Then Return modern.Calculate(reviewOrder)
            Return legacy.Calculate(reviewOrder)
        End Function
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase27_4
    Class MigrationFacade
        Public Function Calculate(edgeOrder As Order) As Decimal
            If FeatureFlags.UseModernPricing Then Return modern.Calculate(edgeOrder)
            Return legacy.Calculate(edgeOrder)
        End Function
    End Class
End Namespace

Class MigrationProbe
    Public Sub Compare(sample As LegacyRecord)
        Dim oldResult = legacy.Run(sample)
        Dim newResult = modern.Run(mapper.Convert(sample))
        If oldResult <> newResult Then log.Difference(sample.Id, oldResult, newResult)
    End Sub
End Class

Option Strict On
Namespace ReviewCase27_5
    Class MigrationProbe
        Public Sub Compare(reviewSample As LegacyRecord)
            Dim reviewOldResult = legacy.Run(reviewSample)
            Dim reviewNewResult = modern.Run(mapper.Convert(reviewSample))
            If reviewOldResult <> reviewNewResult Then log.Difference(reviewSample.Id, reviewOldResult, reviewNewResult)
        End Sub
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase27_5
    Class MigrationProbe
        Public Sub Compare(edgeSample As LegacyRecord)
            Dim edgeOldResult = legacy.Run(edgeSample)
            Dim edgeNewResult = modern.Run(mapper.Convert(edgeSample))
            If edgeOldResult <> edgeNewResult Then log.Difference(edgeSample.Id, edgeOldResult, edgeNewResult)
        End Sub
    End Class
End Namespace

Class MigrationRunner
    Public Sub Apply(batch As IReadOnlyList(Of LegacyRecord))
        Using transaction = database.BeginTransaction()
            checkpoint.Save(batch(0).Id)
            modernStore.Write(batch, transaction)
            audit.Verify(batch, transaction)
            transaction.Commit()
        End Using
    End Sub
End Class

Option Strict On
Namespace ReviewCase27_6
    Class MigrationRunner
        Public Sub Apply(reviewBatch As IReadOnlyList(Of LegacyRecord))
            Using transaction = database.BeginTransaction()
                checkpoint.Save(reviewBatch(0).Id)
                modernStore.Write(reviewBatch, transaction)
                audit.Verify(reviewBatch, transaction)
                transaction.Commit()
            End Using
        End Sub
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase27_6
    Class MigrationRunner
        Public Sub Apply(edgeBatch As IReadOnlyList(Of LegacyRecord))
            Using transaction = database.BeginTransaction()
                checkpoint.Save(edgeBatch(0).Id)
                modernStore.Write(edgeBatch, transaction)
                audit.Verify(edgeBatch, transaction)
                transaction.Commit()
            End Using
        End Sub
    End Class
End Namespace