cprocess.vb

vb开发的车间调度程序

Public Class CProcess

    Public timeRelation As Double    '相对
    Public validmachineArray As New ArrayList '可用设备组
    Public timeVoid As Double        '空余时间　　　　　
    Public timeStart As Double   '开始加工时间
    Public timeFinish As Double '加工完成时间
    Public nameProcess As String '工序号
    Public timeProcess As String  '同种工件的该工序总加工时间＝某道工序加工时间＊批量
    Public namePart As String    '所属工件号
    Public numberPart As Integer '工件批量
    Public sumtime As Double     '所属工件的总加工时间
    Public preProcess As CProcess
    Public nextProcess As CProcess
    Sub New()

    End Sub
    Sub New(ByVal numpart As String, ByVal numprocess As String, ByVal number As Integer, ByVal nummachin As String, ByVal time As Double)
        Me.namePart = numpart                     '得到工件名
        Me.nameProcess = numprocess               '得到工序名
        Me.numberPart = number                    '得到批量数
        Me.timeProcess = time                     '得到同种工件总加工时间

        Dim num As Integer                       '根据","分隔符，得到可用设备组名称
        Dim str(0 To 1) As String
        Dim i As Integer = 0
        While nummachin(i) <> Nothing
            num = nummachin.IndexOf(",")
            If num > 0 Then
                str(0) = nummachin.Substring(num + 1)
                str(1) = nummachin.Remove(num, nummachin.Length - num)
                validmachineArray.Add(str(1))
                nummachin = str(0)
                i = 0
            Else
                validmachineArray.Add(nummachin)
                Exit While
            End If

        End While
    End Sub



    
    



End Class