frm_main.frm

VB做的工控软件INTOUCH7和DDE通讯的例子

''''List1.AddItem "12  TI2108   工艺氩管道温度              ℃        0-50      " & "         " & S_Data(22)
''''==================================================================
'''
''''=======================氩贮存===========================================
'''    S_F = 0
'''    With Lbl_Com(23)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40641 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 7500
'''    S_Data(23) = Str(Val(Lbl_Com(23).Caption) * S_M / S_N + S_F)
'''    'S_Data(23) = int(Val(Lbl_Com(23).Caption) * S_M / S_N + S_F)
'''    'S_Data(23) = fix(Val(Lbl_Com(23).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "37  LIA2202  液氩贮槽SV2201液位          mm        0-7500    " & "         " & S_Data(23)
'''    With Lbl_Com(24)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40608"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 6
'''    S_Data(24) = Str(Val(Lbl_Com(24).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "30  PI2202   液氢汽化器出口压力         Kpa       0-6       " & "         " & S_Data(24)
'''    With Lbl_Com(25)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40627 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 50
'''    S_Data(25) = Str(Val(Lbl_Com(25).Caption) * S_M / S_N + S_F)
'''    'S_Data(25) = int(Val(Lbl_Com(25).Caption) * S_M / S_N + S_F)
'''    'S_Data(25) = fix(Val(Lbl_Com(25).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "18  TIS2201  氩汽化器出口温度            ℃        0-50      " & "         " & S_Data(25)
''''==================================================================
'''
''''=======================氩纯化===========================================
'''    S_F = 0
'''    With Lbl_Com(26)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40735 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 60
'''    S_Data(26) = Str(Val(Lbl_Com(26).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "22  FIC2171  氢气流量                  M3/H       0-60      " & "         " & S_Data(26)
'''    With Lbl_Com(27)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40623 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_Data(27) = Str(Val(Lbl_Com(27).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "14  TI2171   氢气温度                    ℃        0-50      " & "         " & S_Data(27)
'''    With Lbl_Com(28)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40607 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 250
'''    S_Data(28) = Str(Val(Lbl_Com(28).Caption) * S_M / S_N + S_F)
'''    'S_Data(28) = int(Val(Lbl_Com(28).Caption) * S_M / S_N + S_F)
'''    'S_Data(28) = fix(Val(Lbl_Com(28).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "29  PI2171   氢气管道压力               Kpa       0-250     " & "         " & S_Data(28)
'''    With Lbl_Com(29)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40603 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 400
'''    S_Data(29) = Str(Val(Lbl_Com(29).Caption) * S_M / S_N + S_F)
'''    'S_Data(29) = int(Val(Lbl_Com(29).Caption) * S_M / S_N + S_F)
'''    'S_Data(29) = fix(Val(Lbl_Com(29).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "25  PIC2102  混合气管道压力             Kpa       0-400     " & "         " & S_Data(29)
'''    With Lbl_Com(30)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40614 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_Data(30) = Str(Val(Lbl_Com(30).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "5   TI2101   粗氩进氩压气前温度          ℃        0-50      " & "         " & S_Data(30)
'''    With Lbl_Com(31)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40602 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 40
'''    S_Data(31) = Str(Val(Lbl_Com(31).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "24  PI2101   精氩管道压力               Kpa       0-40      " & "         " & S_Data(31)
'''    With Lbl_Com(32)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40734"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 1000
'''    S_Data(32) = Str(Val(Lbl_Com(32).Caption) * S_M / S_N + S_F)
'''    'S_Data(32) = int(Val(Lbl_Com(32).Caption) * S_M / S_N + S_F)
'''    'S_Data(32) = fix(Val(Lbl_Com(32).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "20  FIC2101  粗氩流量                  M3/H       0-1000    " & "         " & S_Data(32)
'''    With Lbl_Com(33)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40622 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_Data(33) = Str(Val(Lbl_Com(33).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "13  TIA2151  氩压机进口温度              ℃        0-50      " & "         " & S_Data(33)
'''    With Lbl_Com(34)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40606 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 40
'''    S_Data(34) = Str(Val(Lbl_Com(34).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "28  PIA2151  氩压机进口压力             Kpa       0-40      " & "         " & S_Data(34)
'''    With Lbl_Com(35)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40615 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_Data(35) = Str(Val(Lbl_Com(35).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "6   TI2102   混合器出口温度              ℃        0-50      " & "         " & S_Data(35)
'''    With Lbl_Com(36)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40635 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 50
'''    S_Data(36) = Str(Val(Lbl_Com(36).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "21  FI2102   混合气出口流量            M3/H       0-50      " & "         " & S_Data(36)
'''    With Lbl_Com(37)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40604 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 600
'''    S_Data(37) = Str(Val(Lbl_Com(37).Caption) * S_M / S_N + S_F)
'''    'S_Data(37) = int(Val(Lbl_Com(37).Caption) * S_M / S_N + S_F)
'''    'S_Data(37) = fix(Val(Lbl_Com(37).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "26  PIA2103  氩压机出口压力             Kpa       0-600     " & "         " & S_Data(37)
'''    With Lbl_Com(38)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40616 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 600
'''    S_Data(38) = Str(Val(Lbl_Com(38).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "7   TIAS2103 纯化器温度                  ℃        0-600     " & "         " & S_Data(38)
'''    With Lbl_Com(39)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40617 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_Data(39) = Str(Val(Lbl_Com(39).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "8   TI2104   纯化器出口温度              ℃        0-600     " & "         " & S_Data(39)
'''    With Lbl_Com(40)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40618 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 150
'''    S_Data(40) = Str(Val(Lbl_Com(40).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "9   TI2105   空冷器出口温度              ℃        0-150     " & "         " & S_Data(40)
'''    With Lbl_Com(41)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40631"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 5
'''    S_Data(41) = Str(Val(Lbl_Com(41).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "41  AICA2102 工艺氩中过量氢分析         %.VOL.H2   0-5       " & "         " & S_Data(41)
'''    With Lbl_Com(42)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40620 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 50
'''    S_Data(42) = Str(Val(Lbl_Com(42).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "11  TIA2107  工艺氩进氩干燥器温度        ℃        0-50      " & "         " & S_Data(42)
'''    With Lbl_Com(43)
'''        .LinkTopic = ComDrv
'''        .LinkItem = "40619 S"
'''        .LinkTimeout = 80
'''        .LinkMode = vbLinkAutomatic
'''    End With
'''    S_M = 100
'''    S_Data(43) = Str(Val(Lbl_Com(43).Caption) * S_M / S_N + S_F)
'''    DoEvents
''''List1.AddItem "10  TI2106   工艺氩出WE2101温度          ℃        0-100     " & "         " & S_Data(43)
''''==================================================================
'''    Call UpdateDB
'''    Timer_INTOUCH.Enabled = True
'''    Timer_INTOUCH.Interval = 1000
'''End Sub
'''
'''Private Sub UpdateDB()
'''On Error GoTo Err_UpdateDB:
'''    If rs.State = 1 Then rs.Close
'''    strcon = "update tab_1ArTower_Com set N_AI704=" & S_Data(1) & ",N_AIAS703=" & S_Data(2) & ",N_TI701=" & S_Data(3) & ",N_LIC701=" & S_Data(4) & ",N_AI701=" & S_Data(5) & ",N_PDI701=" & S_Data(6) & ",N_TI703=" & S_Data(7) & ",N_PIC701=" & S_Data(8) & ",N_PDIC702=" & S_Data(9) & ",N_LIC704=" & S_Data(10) & ",N_LICAS702=" & S_Data(11) & "," & _
'''        "N_LIC703=" & S_Data(12) & ",N_TI751=" & S_Data(13) & ",N_FI751=" & S_Data(14) & ",N_TIC702=" & S_Data(15) & ",N_PIC2106=" & S_Data(16) & ",N_TIS2181=" & S_Data(17) & ",N_TIAS2182=" & S_Data(18) & ",N_TI2183=" & S_Data(19) & ",N_AIAS2104=" & S_Data(20) & ",N_AIAS2103=" & S_Data(21) & ",N_TI2108=" & S_Data(22) & ",N_LIA2202=" & S_Data(23) & ",N_PI2202=" & S_Data(24) & ",N_TIS2201=" & S_Data(25) & ",N_FIC2171=" & S_Data(26) & ",N_TI2171=" & S_Data(27) & "," & _
'''        "N_PI2171=" & S_Data(28) & ",N_PIC2102=" & S_Data(29) & ",N_TI2101=" & S_Data(30) & ",N_PI2101=" & S_Data(31) & ",N_FIC2101=" & S_Data(32) & ",N_TIA2151=" & S_Data(33) & ",N_PIA2151=" & S_Data(34) & ",N_TI2102=" & S_Data(35) & ",N_FI2102=" & S_Data(36) & ",N_PIA2103=" & S_Data(37) & ",N_TIAS2103=" & S_Data(38) & ",N_TI2104=" & S_Data(39) & ",N_TI2105=" & S_Data(40) & ",N_AICA2102=" & S_Data(41) & ",N_TIA2107=" & S_Data(42) & ",N_TI2106=" & S_Data(43)
'''    rs.Open strcon, cnn, adOpenStatic, adLockOptimistic
'''    Exit Sub
'''Err_UpdateDB:
'''    Resume Next
'''End Sub
Private Sub StartClient()
On Error Resume Next
    Timer_INTOUCH.Enabled = False
    Timer_INTOUCH.Interval = 0
    
    S_N = 10000
'=======================氩提取===========================================
    S_F = 0
    With Lbl_Com(1)
        .LinkTopic = ComDrv
        .LinkItem = "40630"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 20           '80---100
    S_Data(1) = Str(Val(Lbl_Com(1).Caption) * S_M / S_N + S_F)
    DoEvents
'!List1.AddItem "40  AI704    粗氩中含氩量               %.VOL.Ar   80-100    " & "         " & S_Data(1)
    With Lbl_Com(2)
        .LinkTopic = ComDrv
        .LinkItem = "40629 s"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 5
    S_Data(2) = Str(Val(Lbl_Com(2).Caption) * S_M / S_N + S_F)
    DoEvents
'!List1.AddItem "39  AIAS703  粗氩塔粗氩中含氧量         %.VOL.O2   0-5       " & "         " & S_Data(2)
    With Lbl_Com(3)
        .LinkTopic = ComDrv
        .LinkItem = "40611 S"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_F = -200
    S_M = 250
    S_Data(3) = Str(Val(Lbl_Com(3).Caption) * S_M / S_N + S_F)
'    S_Data(3) = Int(Val(Lbl_Com(3).Caption) * S_M / S_N + S_F)
'    S_Data(3) = Fix(Val(Lbl_Com(3).Caption) * S_M / S_N + S_F)
    DoEvents
'!List1.AddItem "1   TI701    粗氩塔回流液空温度          ℃        -200--50  " & "         " & S_Data(3)
    With Lbl_Com(4)
        .LinkTopic = ComDrv
        .LinkItem = "40637 S"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_F = 0
    S_M = 1000
    S_Data(4) = Str(Val(Lbl_Com(4).Caption) * S_M / S_N + S_F)
    'S_Data(4) = int(Val(Lbl_Com(4).Caption) * S_M / S_N + S_F)
    'S_Data(4) = fix(Val(Lbl_Com(4).Caption) * S_M / S_N + S_F)
    DoEvents
'!List1.AddItem "33  LIC701   粗氩冷凝器液空侧液面        mm        0-1000    " & "         " & S_Data(4)
    With Lbl_Com(5)
        .LinkTopic = ComDrv
        .LinkItem = "40628"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 20
    S_Data(5) = Str(Val(Lbl_Com(5).Caption) * S_M / S_N + S_F)
    DoEvents
'!List1.AddItem "38  AI701    粗氩塔氩馏分含氩量         %.VOL.Ar   0-20      " & "         " & S_Data(5)
    With Lbl_Com(6)
        .LinkTopic = ComDrv
        .LinkItem = "40609 S"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 10
    S_Data(6) = Str(Val(Lbl_Com(6).Caption) * S_M / S_N + S_F)
    DoEvents
'!List1.AddItem "31  PDI701   粗氩塔阻力压力              Kpa       0-10      " & "         " & S_Data(6)
    With Lbl_Com(7)
        .LinkTopic = ComDrv
        .LinkItem = "40642"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_F = -200
    S_M = 250
    S_Data(7) = Str(Val(Lbl_Com(7).Caption) * S_M / S_N + S_F)
    DoEvents
'!List1.AddItem "3   TI703    液空进塔温度                ℃        -200--50  " & "         " & S_Data(7)
    With Lbl_Com(8)
        .LinkTopic = ComDrv
        .LinkItem = "40151"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 100
    S_F = 0
    S_Data(8) = Str(Val(Lbl_Com(8).Caption) * S_M / S_N + S_F)
    'S_Data(8) = int(Val(Lbl_Com(8).Caption) * S_M / S_N + S_F)
    'S_Data(8) = fix(Val(Lbl_Com(8).Caption) * S_M / S_N + S_F)
    DoEvents
'List1.AddItem "23  PIC701   精氩塔压力                 Kpa       0-100     " & "         " & S_Data(8)
    With Lbl_Com(9)
        .LinkTopic = ComDrv
        .LinkItem = "40610 S"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 30
    S_Data(9) = Str(Val(Lbl_Com(9).Caption) * S_M / S_N + S_F)
    DoEvents
'!List1.AddItem "32  PDIC702  精氩塔阻力压力              Kpa       0-30      " & "         " & S_Data(9)
    With Lbl_Com(10)
        .LinkTopic = ComDrv
        .LinkItem = "40638 S"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 400
    S_Data(10) = Str(Val(Lbl_Com(10).Caption) * S_M / S_N + S_F)
    DoEvents
'!List1.AddItem "36  LIC704   精氩塔工艺氩液面            mm        0-400     "  & "         " & S_Data(10)
    With Lbl_Com(11)
        .LinkTopic = ComDrv
        .LinkItem = "40640"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 600
    S_Data(11) = Str(Val(Lbl_Com(11).Caption) * S_M / S_N + S_F)
    'S_Data(11) = int(Val(Lbl_Com(11).Caption) * S_M / S_N + S_F)
    'S_Data(11) = fix(Val(Lbl_Com(11).Caption) * S_M / S_N + S_F)
    DoEvents
'List1.AddItem "34  LICAS702 精氩冷凝器液氮侧液面        mm        0-600     " & "         " & S_Data(11)
    With Lbl_Com(12)
        .LinkTopic = ComDrv
        .LinkItem = "40639 S"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic