modbelts.bas

这是一个实际的工程中所用的源程序

    ElseIf vDock = eDock.K5 Then:        nm = "五千吨码头皮带"
    End If:                              nmDock = nm
End Function
Public Function nmBelt(ByVal vBelt As eBelt) As String
    Dim nm As String
    If vBelt = eBelt.K1_J Then
                                         nm = "万吨码头甲皮带"
    ElseIf vBelt = eBelt.K1_Y Then:      nm = "万吨码头乙皮带"
    ElseIf vBelt = eBelt.K2_J Then:      nm = "二千码头甲皮带"
    ElseIf vBelt = eBelt.K2_Y Then:      nm = "二千码头乙皮带"
    ElseIf vBelt = eBelt.K5 Then:        nm = "五千吨码头皮带"
    ElseIf vBelt = eBelt.LNew Then:      nm = "三十万煤仓"
    ElseIf vBelt = eBelt.LOld Then:      nm = "老厂原煤仓"
    End If:                              nmBelt = nm
End Function
Public Function nmLuu(ByVal vLuu As eLuu) As String '关联:frmCang
    Dim nm As String
    If vLuu = eLuu.LNew Then
                                         nm = "三十万煤仓"
    ElseIf vLuu = eLuu.LOld Then:        nm = "老厂原煤仓"
    End If:                              nmLuu = nm
End Function
Public Function NameTech(ByVal vTech As eTech) As String '关联:frmAddr
    Dim nm As String
    If vTech = eTech.L1 Then
                                      nm = "7#秤"
    ElseIf vTech = eTech.L2 Then:     nm = "5#秤"
    ElseIf vTech = eTech.L3 Then:     nm = "14#秤"
    ElseIf vTech = eTech.L4 Then:     nm = "8#秤"
    End If:                              NameTech = nm
End Function
Public Function nmShop(ByVal vField As eShop) As String
    Dim nm As String
    If vField = eShop.e船名 Then
                                         nm = "船名"
    ElseIf vField = eShop.e流程 Then:    nm = "流程"
    ElseIf vField = eShop.e流量 Then:    nm = "流量"
    ElseIf vField = eShop.e设定 Then:    nm = "设定量"
    ElseIf vField = eShop.e计量 Then:    nm = "实际量"
    ElseIf vField = eShop.e煤种 Then:    nm = "煤种"
    ElseIf vField = eShop.e仪表 Then:    nm = "仪表"
    ElseIf vField = eShop.e备注 Then:    nm = "备注"
    ElseIf vField = eShop.e日期 Then:    nm = "装船日期"
    ElseIf vField = eShop.e时间 Then:    nm = "装船时间"
    ElseIf vField = eShop.e累计 Then:    nm = "累计量"
    End If:                              nmShop = nm
'Public Enum eShop
'    [e仪表] = -1
'    [e船名] = 0
'    [e煤种] = 1
'    [e流程] = 2
'    [e设定] = 3
'    [e计量] = 4
'    [e日期] = 5
'    [e时间] = 6
'    [e备注] = 7
'End Enum
End Function
Public Function nmSB(ByVal vSB As eSB) As String
   Dim nm As String
   Select Case vSB
Case 1: nm = "2#泊位1#门机"
Case 2: nm = "2#泊位2#门机"
Case 3: nm = "2#泊位3#门机"
Case 4: nm = "2#泊位4#门机"
Case 5: nm = "2#泊位5#门机"
Case 6: nm = "2#泊位2#皮带"
Case 7: nm = "2#泊位3#皮带"
Case 8: nm = "2#泊位4#皮带"
Case 9: nm = "2#泊位5#皮带"
Case 10: nm = "2#泊位6#皮带"
Case 11: nm = "2#泊位7#皮带"
Case 12: nm = "2#泊位8#皮带"
Case 13: nm = "2#泊位9#皮带"
Case 14: nm = "2#泊位10#皮带"
Case 15: nm = "2#泊位11#皮带"
Case 16: nm = "2#泊位12#皮带"
Case 17: nm = "2#泊位13#皮带"
Case 18: nm = "2#泊位14#皮带"
Case 19: nm = "2#泊位15#皮带"
Case 20: nm = "2#泊位16#皮带"
Case 21: nm = "2#泊位17#皮带"
Case 22: nm = "2#泊位18#皮带"
Case 23: nm = "2#泊位19#皮带"
Case 24: nm = "2#泊位20#皮带"
Case 25: nm = "2#泊位21#皮带"
Case 26: nm = "2#泊位22#皮带"
Case 27: nm = "2#泊位23#皮带"
Case 28: nm = "2#泊位24#皮带"
Case 29: nm = "2#泊位25#皮带"
Case 30: nm = "2#泊位26#皮带"
Case 31: nm = "2#泊位28#皮带"
Case 32: nm = "2#泊位29#皮带"
Case 33: nm = "2#泊位1#斗轮机"
Case 34: nm = "2#泊位2#斗轮机"
Case 35: nm = "2#泊位5#斗轮机"
Case 36: nm = "2#泊位1#装船机"
Case 37: nm = "2#泊位2#装船机"
Case 38: nm = "3#泊位6#门机"
Case 39: nm = "3#泊位7#门机"
Case 40: nm = "3#泊位8#门机"
Case 41: nm = "3#泊位9#门机"
Case 42: nm = "3#泊位10#门机"
Case 43: nm = "3#泊位DS1皮带"
Case 44: nm = "3#泊位DS2皮带"
Case 45: nm = "3#泊位DS3皮带"
Case 46: nm = "3#泊位DS4皮带"
Case 47: nm = "3#泊位DS5皮带"
Case 48: nm = "3#泊位DS6皮带"
Case 49: nm = "3#泊位DS7皮带"
Case 50: nm = "3#泊位DS8皮带"
Case 51: nm = "3#泊位DS9皮带"
Case 52: nm = "3#泊位DS10皮带"
Case 53: nm = "3#泊位DS11皮带"
Case 54: nm = "3#泊位DS12皮带"
Case 55: nm = "3#泊位DS13皮带"
Case 56: nm = "3#泊位3#斗轮机"
Case 57: nm = "3#泊位4#斗轮机"
Case 58: nm = "3#泊位3#装船机"
      
   End Select
   nmSB = nm
End Function

Public Function nmPG2(ByVal vPG As ePG2) As String

   Dim nm As String
   Select Case vPG
Case 0: nm = "1#流程预告"
Case 1: nm = "2#流程预告"
Case 2: nm = "3#流程预告"
Case 3: nm = "4#流程预告"
Case 4: nm = "5#流程预告"
Case 5: nm = "6#流程预告"
Case 6: nm = "7#流程预告"
Case 7: nm = "8#流程预告"
Case 8: nm = "9#流程预告"
Case 9: nm = "10#流程预告"
Case 10: nm = "11#流程预告"
Case 11: nm = "12#流程预告"
Case 12: nm = "13#流程预告"
Case 13: nm = "14#流程预告"
Case 14: nm = "15#流程预告"
Case 15: nm = "16#流程预告"
Case 16: nm = "17#流程预告"
Case 17: nm = "18#流程预告"
Case 18: nm = "19#流程预告"
Case 19: nm = "20#流程预告"
Case 20: nm = "1#连通预告"
Case 21: nm = "2#连通预告"
Case 22: nm = "3#连通预告"
Case 23: nm = "4#连通预告"
Case 24: nm = "2#皮带左应答"
Case 25: nm = "2#皮带右应答"
Case 26: nm = "3#皮带左应答"
Case 27: nm = "3#皮带右应答"
Case 28: nm = "4#皮带左应答"
Case 29: nm = "4#皮带右应答"
Case 30: nm = "5#皮带应答"
Case 31: nm = "6#皮带应答"
Case 32: nm = "7#皮带应答"
Case 33: nm = "8#皮带应答"
Case 34: nm = "9#皮带应答"
Case 35: nm = "10#皮带应答"
Case 36: nm = "11#皮带应答"
Case 37: nm = "12#皮带应答"
Case 38: nm = "13#皮带应答"
Case 39: nm = "14#皮带应答"
Case 40: nm = "15#皮带应答"
Case 41: nm = "16#皮带应答"
Case 42: nm = "17#皮带应答"
Case 43: nm = "18#皮带应答"
Case 44: nm = "19#皮带应答"
Case 45: nm = "20#皮带应答"
Case 46: nm = "21#皮带应答"
Case 47: nm = "22#皮带应答"
Case 48: nm = "23#皮带应答"
Case 49: nm = "24#皮带应答"
Case 50: nm = "25#皮带应答"
Case 51: nm = "26#皮带应答"
Case 52: nm = "27#皮带应答"
Case 53: nm = "28#皮带应答"
Case 54: nm = "29#皮带应答"
Case 55: nm = "2#皮带正运行"
Case 56: nm = "2#皮带反运行"
Case 57: nm = "3#皮带正运行"
Case 58: nm = "3#皮带反运行"
Case 59: nm = "4#皮带正运行"
Case 60: nm = "4#皮带反运行"
Case 61: nm = "5#皮带机运行"
Case 62: nm = "6#皮带机运行"
Case 63: nm = "7#皮带机运行"
Case 64: nm = "8#皮带机运行"
Case 65: nm = "9#皮带机运行"
Case 66: nm = "10#皮带运行"
Case 67: nm = "11#皮带运行"
Case 68: nm = "12#皮带运行"
Case 69: nm = "13#皮带运行"
Case 70: nm = "14#皮带运行"
Case 71: nm = "15#皮带运行"
Case 72: nm = "16#皮带运行"
Case 73: nm = "17#皮带运行"
Case 74: nm = "18#皮带运行"
Case 75: nm = "19#皮带运行"
Case 76: nm = "20#皮带运行"
Case 77: nm = "21#皮带运行"
Case 78: nm = "22#皮带运行"
Case 79: nm = "23#皮带运行"
Case 80: nm = "24#皮带运行"
Case 81: nm = "25#皮带运行"
Case 82: nm = "26#皮带运行"
Case 83: nm = "27#皮带运行"
Case 84: nm = "28#皮带运行"
Case 85: nm = "29#皮带运行"
Case 86: nm = "1#斗轮机取料"
Case 87: nm = "1#斗轮机堆料"
Case 88: nm = "2#斗轮机取料"
Case 89: nm = "2#斗轮机堆料"
Case 90: nm = "5#斗轮机取料"
Case 91: nm = "5#斗轮机堆料"
Case 92: nm = "1#装船机运行"
Case 93: nm = "2#装船机运行"
Case 94: nm = "1#门机运行"
Case 95: nm = "2#门机运行"
Case 96: nm = "3#门机运行"
Case 97: nm = "4#门机运行"
Case 98: nm = "5#门机运行"
   End Select
   nmPG2 = nm
End Function

Public Function nmPG3(ByVal vPG As ePG3) As String

   Dim nm As String
   Select Case vPG
Case 0: nm = "1#流程预告"
Case 1: nm = "11#流程预告"
Case 2: nm = "21#流程预告"
Case 3: nm = "31#流程预告"
Case 4: nm = "2#流程预告"
Case 5: nm = "12#流程预告"
Case 6: nm = "22#流程预告"
Case 7: nm = "32#流程预告"
Case 8: nm = "3#流程预告"
Case 9: nm = "4#流程预告"
Case 10: nm = "5#流程预告"
Case 11: nm = "6#流程预告"
Case 12: nm = "7#流程预告"
Case 13: nm = "8-4#流程预告"
Case 14: nm = "DS1皮带故障"
Case 15: nm = "DS2皮带故障"
Case 16: nm = "DS3皮带故障"
Case 17: nm = "DS4皮带故障"
Case 18: nm = "DS5皮带故障"
Case 19: nm = "DS6皮带故障"
Case 20: nm = "DS7皮带故障"
Case 21: nm = "DS8皮带故障"
Case 22: nm = "DS9皮带故障"
Case 23: nm = "DS10皮带故障"
Case 24: nm = "DS11皮带故障"
Case 25: nm = "DS12皮带故障"
Case 26: nm = "DS13皮带故障"
Case 27: nm = "DS14皮带故障"
Case 28: nm = "DS1皮带应答"
Case 29: nm = "DS2皮带应答"
Case 30: nm = "DS3皮带应答"
Case 31: nm = "DS4皮带应答"
Case 32: nm = "DS5皮带应答"
Case 33: nm = "DS6皮带应答"
Case 34: nm = "DS7皮带应答"
Case 35: nm = "DS8皮带应答"
Case 36: nm = "DS9皮带应答"
Case 37: nm = "DS10皮带应答"
Case 38: nm = "DS11皮带应答"
Case 39: nm = "DS12皮带应答"
Case 40: nm = "DS13皮带应答"
Case 41: nm = "DS14皮带应答"
Case 42: nm = "DS1皮带运行"
Case 43: nm = "DS2皮带运行"
Case 44: nm = "DS3皮带运行"
Case 45: nm = "DS4皮带运行"
Case 46: nm = "DS5皮带运行"
Case 47: nm = "DS6皮带运行"
Case 48: nm = "DS7皮带运行"
Case 49: nm = "DS8皮带运行"
Case 50: nm = "DS9皮带运行"
Case 51: nm = "DS10皮带运行"
Case 52: nm = "DS11皮带运行"
Case 53: nm = "DS12皮带运行"
Case 54: nm = "DS13皮带运行"
Case 55: nm = "DS14皮带运行"
Case 56: nm = "3#斗轮机待机"
Case 57: nm = "3#斗轮机堆料"
Case 58: nm = "3#斗轮机取料"
Case 59: nm = "4#斗轮机待机"
Case 60: nm = "4#斗轮机堆料"
Case 61: nm = "4#斗轮机取料"
Case 62: nm = "3#装船机待机"
Case 63: nm = "3#装船机运行"
Case 64: nm = "3#装船机停止"
Case 65: nm = "6#门机运行"
Case 66: nm = "7#门机运行"
Case 67: nm = "8#门机运行"
Case 68: nm = "9#门机运行"
Case 69: nm = "10#门机运行"
Case 70: nm = "DS1皮带紧停"
Case 71: nm = "DS2皮带紧停"
Case 72: nm = "DS3皮带紧停"
Case 73: nm = "DS4皮带紧停"
Case 74: nm = "DS5皮带紧停"
Case 75: nm = "DS6皮带紧停"
Case 76: nm = "DS7皮带紧停"
Case 77: nm = "DS8皮带紧停"
Case 78: nm = "DS9皮带紧停"
Case 79: nm = "DS10皮带紧停"
Case 80: nm = "DS11皮带紧停"
Case 81: nm = "DS12皮带紧停"
Case 82: nm = "DS13皮带紧停"
Case 83: nm = "DS14皮带紧停"
   End Select
   nmPG3 = nm
End Function

Public Function Ser2(ByVal vPG2 As ePG2) As Long
   Dim ser As Long
   Select Case vPG2
Case ePG2.[2#皮带正运行]: ser = 6
Case ePG2.[2#皮带反运行]: ser = 6
Case ePG2.[3#皮带正运行]: ser = 7
Case ePG2.[3#皮带反运行]: ser = 7
Case ePG2.[4#皮带正运行]: ser = 8
Case ePG2.[4#皮带反运行]: ser = 8
Case ePG2.[5#皮带机运行] To ePG2.[29#皮带运行]: ser = vPG2 - 52 '61..85 9..32
Case ePG2.[1#斗轮机取料]: ser = 33
Case ePG2.[1#斗轮机堆料]: ser = 33
Case ePG2.[2#斗轮机取料]: ser = 34
Case ePG2.[2#斗轮机堆料]: ser = 34
Case ePG2.[5#斗轮机取料]: ser = 35
Case ePG2.[5#斗轮机堆料]: ser = 35
Case ePG2.[1#装船机运行]: ser = 36
Case ePG2.[2#装船机运行]: ser = 37
Case ePG2.[1#门机运行]: ser = 1
Case ePG2.[2#门机运行]: ser = 2
Case ePG2.[3#门机运行]: ser = 3
Case ePG2.[4#门机运行]: ser = 4
Case ePG2.[5#门机运行]: ser = 5

   Case Else: ser = 0
   End Select
   Ser2 = ser
   
End Function
Public Function Ser3(ByVal vPG3 As ePG3) As Long
   Dim ser As Long
   Select Case vPG3
   
Case ePG3.[DS1皮带运行] To ePG3.[DS13皮带运行]: ser = vPG3 + 1 ''42 .. 54  43..55
Case ePG3.[DS14皮带运行]: ser = 0
Case ePG3.[3#斗轮机待机]: ser = 0
Case ePG3.[3#斗轮机堆料]: ser = 56
Case ePG3.[3#斗轮机取料]: ser = 56
Case ePG3.[4#斗轮机待机]: ser = 0
Case ePG3.[4#斗轮机堆料]: ser = 57
Case ePG3.[4#斗轮机取料]: ser = 57
Case ePG3.[3#装船机待机]: ser = 0
Case ePG3.[3#装船机运行]: ser = 58
Case ePG3.[3#装船机停止]: ser = 0
Case ePG3.[6#门机运行]: ser = 38
Case ePG3.[7#门机运行]: ser = 39
Case ePG3.[8#门机运行]: ser = 40
Case ePG3.[9#门机运行]: ser = 41
Case ePG3.[10#门机运行]: ser = 42
   
   Case Else: ser = 0
   End Select
   Ser3 = ser
   
End Function