frm_main.frm

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

    End With
    S_M = 1600
    S_Data(12) = Str(Val(Lbl_Com(12).Caption) * S_M / S_N + S_F)
    'S_Data(12) = int(Val(Lbl_Com(12).Caption) * S_M / S_N + S_F)
    'S_Data(12) = fix(Val(Lbl_Com(12).Caption) * S_M / S_N + S_F)
    DoEvents
'List1.AddItem "35  LIC703   精氩塔纯液氩液面            mm        0-1600    " & "         " & S_Data(12)
    With Lbl_Com(13)
        .LinkTopic = ComDrv
        .LinkItem = "40613 S"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_F = 0
    S_M = 50
    S_Data(13) = Str(Val(Lbl_Com(13).Caption) * S_M / S_N + S_F)
    DoEvents
'List1.AddItem "4   TI751    精氩塔余气放空温度          ℃        0-50      " & "         " & S_Data(13)
    With Lbl_Com(14)
        .LinkTopic = ComDrv
        .LinkItem = "40643 S"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 25
    S_Data(14) = Str(Val(Lbl_Com(14).Caption) * S_M / S_N + S_F)
    DoEvents
'List1.AddItem "19  FI751    精氩塔余气放空流量        M3/H       0-25      " & "         " & S_Data(14)
    With Lbl_Com(15)
        .LinkTopic = ComDrv
        .LinkItem = "40612 S"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_F = -200
    S_M = 250
    S_Data(15) = Str(Val(Lbl_Com(15).Caption) * S_M / S_N + S_F)
    DoEvents
'List1.AddItem "2   TIC702   精氩塔工艺氩进口温度        ℃        -200--50  " & "         " & S_Data(15)
'==================================================================

'=======================氩干燥===========================================
    S_F = 0
    With Lbl_Com(16)
        .LinkTopic = ComDrv
        .LinkItem = "40605 S"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 500
    S_Data(16) = Str(Val(Lbl_Com(16).Caption) * S_M / S_N + S_F)
    'S_Data(16) = int(Val(Lbl_Com(16) .Caption) * S_M / S_N + S_F)
    'S_Data(16) = fix(Val(Lbl_Com(16) .Caption) * S_M / S_N + S_F)
    DoEvents
'List1.AddItem "27  PIC2106  工艺氩进冷箱前压力         Kpa       0-500     " & "         " & S_Data(16)
    With Lbl_Com(17)
        .LinkTopic = ComDrv
        .LinkItem = "40624 S"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 600
    S_Data(17) = Str(Val(Lbl_Com(17).Caption) * S_M / S_N + S_F)
    DoEvents
'List1.AddItem "15  TIS2181  干燥器再生氮气温度          ℃        0-600     " & "         " & S_Data(17)
    With Lbl_Com(18)
        .LinkTopic = ComDrv
        .LinkItem = "40625 S"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_Data(18) = Str(Val(Lbl_Com(18).Caption) * S_M / S_N + S_F)
    DoEvents
'List1.AddItem "16  TIAS2182 电加热器加热元件温度        ℃        0-600     " & "         " & S_Data(18)
    With Lbl_Com(19)
        .LinkTopic = ComDrv
        .LinkItem = "40626 S"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 300
    S_Data(19) = Str(Val(Lbl_Com(19).Caption) * S_M / S_N + S_F)
    DoEvents
'List1.AddItem "17  TI2183   干燥器氮气放空温度          ℃        0-300     " & "         " & S_Data(19)
    With Lbl_Com(20)
        .LinkTopic = ComDrv
        .LinkItem = "40633"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 10
    S_Data(20) = Str(Val(Lbl_Com(20).Caption) * S_M / S_N + S_F)
    DoEvents
'List1.AddItem "43  AIAS2104 工艺氩中含氧量           ppm. VOL.O2 0-10      " & "         " & S_Data(20)
    With Lbl_Com(21)
        .LinkTopic = ComDrv
        .LinkItem = "40632"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 100
    S_Data(21) = Str(Val(Lbl_Com(21).Caption) * S_M / S_N + S_F)
    DoEvents
'List1.AddItem "42  AIA2103  工艺氩水分               ppm. VOL.H2 0-100     " & "         " & S_Data(21)
    With Lbl_Com(22)
        .LinkTopic = ComDrv
        .LinkItem = "40621 S"
        .LinkTimeout = 80
        '.LinkMode = vbLinkAutomatic
    End With
    S_M = 50
    S_Data(22) = Str(Val(Lbl_Com(22).Caption) * S_M / S_N + S_F)
    DoEvents
'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 TestProcedure()
On Error GoTo Err_TestProcedure:
    Dim I As Long
    For I = 1 To Link_num
        S_Data(I) = I * 2
    Next I
    Call UpdateDB
    Exit Sub
Err_TestProcedure:
   msg = "Error # " & Str(Err.Number) & " was generated by " _
         & Err.Source & Chr(13) & Err.Description
   MsgBox msg, , "Error", Err.HelpFile, Err.HelpContext
   Err.Clear
End Sub

Private Sub Timer_INTOUCH_Timer()
    Call StartClient
End Sub