comparebytime.vb

vb开发的车间调度程序

Public Class CompareByTime             '实现一个比较接口，按照工序的相对剩余时间从大到小给所有工序进行排序
    Implements IComparer

    Public Function Compare(ByVal o1 As Object, ByVal o2 As Object) As Integer Implements System.Collections.IComparer.Compare
        If (o1 Is Nothing) And (o2 Is Nothing) Then Return 0

        If (o1 Is Nothing) Then Return 1
        If (o2 Is Nothing) Then Return -1

        Dim p1 As CProcess = CType(o1, CProcess)
        Dim p2 As CProcess = CType(o2, CProcess)

        If p1.timeRelation < p2.timeRelation Then
            Return 1

        ElseIf p1.timeRelation = p2.timeRelation Then
            Return 0
        Else
            Return -1
        End If
    End Function






End Class