自然對(duì)流-最終廣義過(guò)程

1、Dim DATA!, tep!, c!, pretep!, newsp!Dim RetVal As Long, IPAddress As StringDim wID%, wModuleName%Dim q0!, q1!, q2!, e1!, e2!, e3!, u1!, u0!, sp!, b!, f%, kp!, td!, ti!, oupt!, st%, a%, d!, z!, e4! Dim wGain(0 To 9) As IntegerDim wHex(0 To 15) As Integer, fValue(0 To 15) As DoubleDim byData(0 To 127)

2、 As Byte, wData(0 To 63) As IntegerPrivate Sub Command2_Click() Timer1.Enabled = False Timer2.Enabled = False IPAddress = byData(1) = 0 定義寫(xiě)入到加熱電路開(kāi)關(guān)的數(shù)組 RetVal = ADAMTCP_Write6KDO(IPAddress, 6050, 1, 1, 1, byData(1) 主機(jī)開(kāi)關(guān)變量入到模塊的函數(shù),斷開(kāi)加熱電路 Label4.Caption = 待檢測(cè) Label6.Caption = 待檢測(cè) Label8.Caption = 待檢測(cè)End

3、 SubPrivate Sub Command1_Click() sp = Val(Text1.Text) 輸入設(shè)定值 Timer1.Enabled = True Timer3.Interval = 1000 Timer1.Interval = 5000 5秒一次檢測(cè) Line (960, 4980 - sp * 18.9)-(11700, 4980 - sp * 18.9), RGB(0, 255, 0) 根據(jù)坐標(biāo)位置劃出綠色設(shè)定值線End SubPrivate Sub Command3_Click() Timer1.Enabled = False Timer2.Enabled = Fals

4、e IPAddress = byData(1) = 0 RetVal = ADAMTCP_Write6KDO(IPAddress, 6050, 1, 1, 1, byData(1) Label4.Caption = 待檢測(cè) Label6.Caption = 待檢測(cè) Label8.Caption = 待檢測(cè) EndEnd SubPrivate Sub Command4_Click() sp = Val(Text1.Text) Line (960, 4980 - sp * 18.9)-(11700, 4980 - sp * 18.9), RGB(0, 255, 0) 根據(jù)坐標(biāo)位置劃出綠色設(shè)定值線E

5、nd SubPrivate Sub Command5_Click()z = 1End SubPrivate Sub Form_Load() u0 = 0 u1 = 0 e1 = 0 e2 = 0 e3 = 0 td = 0 kp = 120 ti = 0 q0 = kp * (1 + td / 5 + 0) q1 = -kp * (1 + 2 * td / 5) q2 = kp * td / 5 RetVal = ADAMTCP_Open() 打開(kāi)模塊函數(shù)庫(kù) IPAddress = RetVal = ADAMTCP_Connect(IPAddress, 502, 2000, 2000, 200

6、0) 主機(jī)和模塊連接 If RetVal Then Beep MsgBox Cant connect + IPAddress ADAMTCP_Close Unload Me End If wGain(3) = 9 wModuleName = 6024 RetVal = ADAMTCP_Read6KAI(IPAddress, wModuleName, 1, wGain(0), wHex(0), fValue(0) DATA = fValue(3) 設(shè)定輸入通道 tep = (DATA - 4) * 500 / 16 根據(jù)電熱偶輸出電流計(jì)算實(shí)際溫度 b = tepEnd SubPrivate Su

7、b Form_Unload(Cancel As Integer) ADAMTCP_Disconnect ADAMTCP_Close Unload MeEnd SubPrivate Sub Timer1_Timer() 控制過(guò)程 IPAddress = wGain(3) = 9 wModuleName = 6024 RetVal = ADAMTCP_Read6KAI(IPAddress, wModuleName, 1, wGain(0), wHex(0), fValue(0) DATA = fValue(3) tep = (DATA - 4) * 500 / 16 Label4.Caption

8、= tep 顯示實(shí)際溫度 Line (a / 180 * 1074 + 960, -b * 18.9 + 4980)-(st / 180 * 1074 + 960, -tep * 18.9 + 4980), RGB(205, 16, 26) 用紅線根據(jù)坐標(biāo)位置劃出實(shí)際溫度線 b = tep z = 0 e1 = e2 e2 = e3 e3 = (sp - tep) / (500 - 0) 實(shí)際與設(shè)定差值 u1 = u0 + (q0 * e3 + q1 * e2 + q2 * e1) * 5 u1 = u0 + kp * (e3 - e2) u1 = 0.5 + kp * e3 * 4.45 +

9、 z u1 = 0.8 If u1 5 Then u1 = 5 控制最高加熱時(shí)間,不超過(guò)檢測(cè)周期 End If Line (a / 180 * 1074 + 960, -d * 18.9 * 3 + 4980)-(st / 180 * 1074 + 960, -u1 * 18.9 * 3 + 4980), RGB(0, 0, 255) 用藍(lán)色線根據(jù)加熱時(shí)間和坐標(biāo)位置劃出控制曲線 d = u1 Call appedatfile1 Label8.Caption = u1 顯示加熱時(shí)間 a = st Timer2.Interval = Int(u1 * 1000) 將加熱時(shí)間賦值給計(jì)時(shí)器2 byDa

10、ta(1) = 1 RetVal = ADAMTCP_Write6KDO(IPAddress, 6050, 1, 1, 1, byData(1) 接通加熱電路 Timer2.Enabled = TrueEnd SubPrivate Sub Timer2_Timer() byData(1) = 0 時(shí)間到斷開(kāi)加熱電路 RetVal = ADAMTCP_Write6KDO(IPAddress, 6050, 1, 1, 1, byData(1) Timer2.Enabled = FalseEnd SubPrivate Sub Timer3_Timer() sp = Val(Text1.Text) st = st + 1 Label6.Caption =