下載本文檔
版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
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 定義寫入到加熱電路開(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 =
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 服裝定做合同范例
- 利潤(rùn)合同范例股
- 物業(yè)勞務(wù)合同范例版
- 漢川家裝裝修合同范例
- 技術(shù)保密加盟合同范例
- 食堂管理聘請(qǐng)合同范例
- 個(gè)人 家政 合同范例
- 行業(yè)性合同范例
- 15造價(jià)咨詢合同范例
- 青海民族大學(xué)《媒介環(huán)境學(xué)》2023-2024學(xué)年第一學(xué)期期末試卷
- 山東文旅集團(tuán)有限公司招聘筆試題庫(kù)2024
- 課外文言文閱讀 專項(xiàng)訓(xùn)練-2025年中考語(yǔ)文復(fù)習(xí)突破(江蘇專用)(解析版)
- 《保險(xiǎn)科技》課件-第一章 保險(xiǎn)科技應(yīng)用導(dǎo)論
- 光伏發(fā)電工程監(jiān)理質(zhì)量評(píng)估報(bào)告
- 2025年中考英語(yǔ)熱點(diǎn)時(shí)文閱讀-發(fā)明創(chuàng)造附解析
- 2024版簡(jiǎn)單搬運(yùn)協(xié)議書
- 2024-2025學(xué)年七年級(jí)英語(yǔ)上冊(cè)第一學(xué)期 期末綜合模擬考試卷(滬教版)(一)
- 模塊7 直流傳動(dòng)內(nèi)燃機(jī)車電力傳動(dòng)系統(tǒng)《列車電力傳動(dòng)與控制》教學(xué)課件
- 中國(guó)絲綢智慧樹(shù)知到答案2024年浙江理工大學(xué)
- 中國(guó)文化-古今長(zhǎng)安(雙語(yǔ))智慧樹(shù)知到答案2024年西安歐亞學(xué)院
- 品管圈活動(dòng)提高氧氣霧化吸入注意事項(xiàng)知曉率
評(píng)論
0/150
提交評(píng)論