modbelts.bas

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

Attribute VB_Name = "modBelts"
Option Explicit
Public Const Sc_AppLog As String = "AppLog"
Public Const Sc_Runing As String = "运行记录"
Public Const Sc_Second As String = "Seconds"
Public Const Sc_AlarmAB As String = "偏差报警"
Public Const Sc_ErrorSecond As String = "ErrorSeconds"
Public Const Sc_ABSecond As String = "ABSeconds"
Public Const Sc_Cang As String = "Cang" '用于CVessel,frmDock
Public Const Sc_Loc As String = "窗体位置" '
Public Const Sc_Addr As String = "逻辑地址"
Public Const SectionFlow = "流量曲线"
Public Const Sc_Comm As String = "通信设置"

Public Const DefaultUpperSecond As Long = 300
Public Const DefaultSecond As Long = 1
Public Const DefaultErrorSecond As Long = 240
Public Const UpperChart As Long = 39
Public Const DefaultZero As Long = 30
Public Const TechCount As Long = 4 '仪表处理总数
Public Const CountTechs As Long = TechCount
Public Const CountBelts As Long = 31
Public Const CountPLC As Long = 15
Public Const CountSecond As Long = 4
Public Const CountDock As Long = 5

Public Const ErrMsg1 = "最大设置时间段是" & DefaultUpperSecond & "秒!"
Public Const ErrMsg2 = "煤场的煤不能同时进出!"


Public Enum eTech ' 逻辑地址'关联:
    [L1] = 1
    [L2] = 2
    [L3] = 3
    [L4] = 4
End Enum

Public Enum eShop
    [e仪表] = -1
    [e船名] = 0
    [e煤种] = 1
    [e流程] = 2
    [e设定] = 3
    [e计量] = 4
    [e日期] = 5
    [e时间] = 6
    [e备注] = 7
    [e流量] = 8
    [e累计] = 9
End Enum
Public Enum eSB '关联:UpperChart,ProcessDH,initDHControls
[2#泊位1#门机] = 1
[2#泊位2#门机] = 2
[2#泊位3#门机] = 3
[2#泊位4#门机] = 4
[2#泊位5#门机] = 5
[2#泊位2#皮带] = 6
[2#泊位3#皮带] = 7
[2#泊位4#皮带] = 8
[2#泊位5#皮带] = 9
[2#泊位6#皮带] = 10
[2#泊位7#皮带] = 11
[2#泊位8#皮带] = 12
[2#泊位9#皮带] = 13
[2#泊位10#皮带] = 14
[2#泊位11#皮带] = 15
[2#泊位12#皮带] = 16
[2#泊位13#皮带] = 17
[2#泊位14#皮带] = 18
[2#泊位15#皮带] = 19
[2#泊位16#皮带] = 20
[2#泊位17#皮带] = 21
[2#泊位18#皮带] = 22
[2#泊位19#皮带] = 23
[2#泊位20#皮带] = 24
[2#泊位21#皮带] = 25
[2#泊位22#皮带] = 26
[2#泊位23#皮带] = 27
[2#泊位24#皮带] = 28
[2#泊位25#皮带] = 29
[2#泊位26#皮带] = 30
[2#泊位28#皮带] = 31
[2#泊位29#皮带] = 32
[2#泊位1#斗轮机] = 33
[2#泊位2#斗轮机] = 34
[2#泊位5#斗轮机] = 35
[2#泊位1#装船机] = 36
[2#泊位2#装船机] = 37
[3#泊位6#门机] = 38
[3#泊位7#门机] = 39
[3#泊位8#门机] = 40
[3#泊位9#门机] = 41
[3#泊位10#门机] = 42
[3#泊位DS1皮带] = 43
[3#泊位DS2皮带] = 44
[3#泊位DS3皮带] = 45
[3#泊位DS4皮带] = 46
[3#泊位DS5皮带] = 47
[3#泊位DS6皮带] = 48
[3#泊位DS7皮带] = 49
[3#泊位DS8皮带] = 50
[3#泊位DS9皮带] = 51
[3#泊位DS10皮带] = 52
[3#泊位DS11皮带] = 53
[3#泊位DS12皮带] = 54
[3#泊位DS13皮带] = 55
[3#泊位3#斗轮机] = 56
[3#泊位4#斗轮机] = 57
[3#泊位3#装船机] = 58
End Enum
Public Enum ePG2
[1#流程预告] = 0
[2#流程预告] = 1
[3#流程预告] = 2
[4#流程预告] = 3
[5#流程预告] = 4
[6#流程预告] = 5
[7#流程预告] = 6
[8#流程预告] = 7
[9#流程预告] = 8
[10#流程预告] = 9
[11#流程预告] = 10
[12#流程预告] = 11
[13#流程预告] = 12
[14#流程预告] = 13
[15#流程预告] = 14
[16#流程预告] = 15
[17#流程预告] = 16
[18#流程预告] = 17
[19#流程预告] = 18
[20#流程预告] = 19
[1#连通预告] = 20
[2#连通预告] = 21
[3#连通预告] = 22
[4#连通预告] = 23
[2#皮带左应答] = 24
[2#皮带右应答] = 25
[3#皮带左应答] = 26
[3#皮带右应答] = 27
[4#皮带左应答] = 28
[4#皮带右应答] = 29
[5#皮带应答] = 30
[6#皮带应答] = 31
[7#皮带应答] = 32
[8#皮带应答] = 33
[9#皮带应答] = 34
[10#皮带应答] = 35
[11#皮带应答] = 36
[12#皮带应答] = 37
[13#皮带应答] = 38
[14#皮带应答] = 39
[15#皮带应答] = 40
[16#皮带应答] = 41
[17#皮带应答] = 42
[18#皮带应答] = 43
[19#皮带应答] = 44
[20#皮带应答] = 45
[21#皮带应答] = 46
[22#皮带应答] = 47
[23#皮带应答] = 48
[24#皮带应答] = 49
[25#皮带应答] = 50
[26#皮带应答] = 51
[27#皮带应答] = 52
[28#皮带应答] = 53
[29#皮带应答] = 54
[2#皮带正运行] = 55
[2#皮带反运行] = 56
[3#皮带正运行] = 57
[3#皮带反运行] = 58
[4#皮带正运行] = 59
[4#皮带反运行] = 60
[5#皮带机运行] = 61
[6#皮带机运行] = 62
[7#皮带机运行] = 63
[8#皮带机运行] = 64
[9#皮带机运行] = 65
[10#皮带运行] = 66
[11#皮带运行] = 67
[12#皮带运行] = 68
[13#皮带运行] = 69
[14#皮带运行] = 70
[15#皮带运行] = 71
[16#皮带运行] = 72
[17#皮带运行] = 73
[18#皮带运行] = 74
[19#皮带运行] = 75
[20#皮带运行] = 76
[21#皮带运行] = 77
[22#皮带运行] = 78
[23#皮带运行] = 79
[24#皮带运行] = 80
[25#皮带运行] = 81
[26#皮带运行] = 82
[27#皮带运行] = 83
[28#皮带运行] = 84
[29#皮带运行] = 85
[1#斗轮机取料] = 86
[1#斗轮机堆料] = 87
[2#斗轮机取料] = 88
[2#斗轮机堆料] = 89
[5#斗轮机取料] = 90
[5#斗轮机堆料] = 91
[1#装船机运行] = 92
[2#装船机运行] = 93
[1#门机运行] = 94
[2#门机运行] = 95
[3#门机运行] = 96
[4#门机运行] = 97
[5#门机运行] = 98
End Enum
Public Enum ePG3
[1#流程预告] = 0
[11#流程预告] = 1
[21#流程预告] = 2
[31#流程预告] = 3
[2#流程预告] = 4
[12#流程预告] = 5
[22#流程预告] = 6
[32#流程预告] = 7
[3#流程预告] = 8
[4#流程预告] = 9
[5#流程预告] = 10
[6#流程预告] = 11
[7#流程预告] = 12
[8-4#流程预告] = 13
[DS1皮带故障] = 14
[DS2皮带故障] = 15
[DS3皮带故障] = 16
[DS4皮带故障] = 17
[DS5皮带故障] = 18
[DS6皮带故障] = 19
[DS7皮带故障] = 20
[DS8皮带故障] = 21
[DS9皮带故障] = 22
[DS10皮带故障] = 23
[DS11皮带故障] = 24
[DS12皮带故障] = 25
[DS13皮带故障] = 26
[DS14皮带故障] = 27
[DS1皮带应答] = 28
[DS2皮带应答] = 29
[DS3皮带应答] = 30
[DS4皮带应答] = 31
[DS5皮带应答] = 32
[DS6皮带应答] = 33
[DS7皮带应答] = 34
[DS8皮带应答] = 35
[DS9皮带应答] = 36
[DS10皮带应答] = 37
[DS11皮带应答] = 38
[DS12皮带应答] = 39
[DS13皮带应答] = 40
[DS14皮带应答] = 41
[DS1皮带运行] = 42
[DS2皮带运行] = 43
[DS3皮带运行] = 44
[DS4皮带运行] = 45
[DS5皮带运行] = 46
[DS6皮带运行] = 47
[DS7皮带运行] = 48
[DS8皮带运行] = 49
[DS9皮带运行] = 50
[DS10皮带运行] = 51
[DS11皮带运行] = 52
[DS12皮带运行] = 53
[DS13皮带运行] = 54
[DS14皮带运行] = 55
[3#斗轮机待机] = 56
[3#斗轮机堆料] = 57
[3#斗轮机取料] = 58
[4#斗轮机待机] = 59
[4#斗轮机堆料] = 60
[4#斗轮机取料] = 61
[3#装船机待机] = 62
[3#装船机运行] = 63
[3#装船机停止] = 64
[6#门机运行] = 65
[7#门机运行] = 66
[8#门机运行] = 67
[9#门机运行] = 68
[10#门机运行] = 69
[DS1皮带紧停] = 70
[DS2皮带紧停] = 71
[DS3皮带紧停] = 72
[DS4皮带紧停] = 73
[DS5皮带紧停] = 74
[DS6皮带紧停] = 75
[DS7皮带紧停] = 76
[DS8皮带紧停] = 77
[DS9皮带紧停] = 78
[DS10皮带紧停] = 79
[DS11皮带紧停] = 80
[DS12皮带紧停] = 81
[DS13皮带紧停] = 82
[DS14皮带紧停] = 83
End Enum
    '
Public Enum eBelt '关联:
    [K1_J] = 1
    [K1_Y] = 2
    [K2_J] = 3
    [K2_Y] = 4
    [K5] = 5
    
    [LNew] = 6
    [LOld] = 7
    
    [M2_In] = 8
    [M3_In] = 9
    [M4_In] = 10
    [M5_In] = 11
    [M2_Out] = 12
    [M3_Out] = 13
    [M4_Out] = 14
    [M5_Out] = 15
    
    [P18] = 16
    [P19] = 17
    [P21] = 18
    [P11Y] = 19
    [P10Y] = 20
    [P10J] = 21
    [P15Y] = 22
    [P15J] = 23
    [P03Y] = 24
    [P03J] = 25
    [P04J] = 26
    [P04B] = 27
    [P04Y] = 28
    [P05B] = 29
    [P06Y] = 30
    [P06J] = 31
End Enum
Public Enum ePLC '关联:
    p1 = 1
    p2In = 2
    p2Out = 3
    p3In = 4
    p3Out = 5
    p4In = 6
    p4Out = 7
    p5A = 8 '15J,15Y
    p5B = 9 'P21
    p6In = 10
    p6Out = 11
    p7 = 12
    p8 = 13 '可以用老厂仪表的运行来反映
    p9 = 14
    p10 = 15
End Enum
Public Enum eSecond '关联:
    p1 = 1
    p2 = 2
    p3 = 3
    p4 = 4
End Enum

Public Enum eDock:    K1_J = 1:    K1_Y = 2:    K2_J = 3:    K2_Y = 4:    K5 = 5: End Enum '关联:ScdError,ErrorAB,EvErrorAB,frmDock
Public Enum eM:       M2 = 0:      M3 = 1:      M4 = 2:      M5 = 3:              End Enum '关联:
Public Enum eLuu:     LNew = 0:    LOld = 1:                                      End Enum '关联:frmCang
Public Enum eBRY:     [e班] = 1:   [e日] = 2:   [e月] = 3:                        End Enum
Public Enum eBool:    B0 = 0:      B1 = 1:                                        End Enum

Public Function nmM(ByVal vm As eM) As String
    Dim nm As String
    If vm = eM.M2 Then
                                        nm = "二煤场"
    ElseIf vm = eM.M3 Then:             nm = "三煤场"
    ElseIf vm = eM.M4 Then:             nm = "四煤场"
    ElseIf vm = eM.M5 Then:             nm = "五煤场"
    End If:                             nmM = nm
End Function
Public Function nmDock(ByVal vDock As eDock) As String '关联:frmDock
    Dim nm As String
    If vDock = eDock.K1_J Then
                                         nm = "万吨码头甲皮带"
    ElseIf vDock = eDock.K1_Y Then:      nm = "万吨码头乙皮带"
    ElseIf vDock = eDock.K2_J Then:      nm = "二吨码头甲皮带"
    ElseIf vDock = eDock.K2_Y Then:      nm = "二吨码头乙皮带"