cmachine.vb

vb开发的车间调度程序

Public Class CMachine

    Public LkArray As New ArrayList
    Public Lk As Double
    Public nameMachine As String
    Public flag As Integer = 0
    Public schedulingArray As New ArrayList
    Sub New(ByVal namemach As String)
        Me.nameMachine = namemach
    End Sub

    Sub addProcess(ByVal obj As CProcess)
        schedulingArray.Add(obj)
        flag = 1
    End Sub
End Class