dcs與變頻器、adam4000的接口方案(編輯修改稿)
2025-06-16 22:32 本頁面
【文章內(nèi)容簡介】 Stove(j 1).LTZSset = Val(ReadInIFiles(TRAN, SetSpeed amp。 j, 0, iniPaths + )) Next Tport = Val(ReadInIFiles(TRAN, COM, 1, iniPaths + )) Tset = ReadInIFiles(TRAN, SET, 19200,n,8,1, iniPaths + ) IsTran = （ Tport, Tset, , 1） End If Exit Function N: MsgBox 初始化變頻器采集串口失敗！請(qǐng)檢查計(jì)算機(jī) COM口！ IsTran = False End Function Private Function iniADAM4K() 39。初始化 4000模塊 Dim As Long, seting As String, i As Long On Error GoTo N Is4000 = ReadInIFiles(ADAM4000, IS4000, True, iniPaths + ) If Is4000 Then = Val(ReadInIFiles(ADAM4000, COM, 1, iniPaths + )) seting = ReadInIFiles(ADAM4000, SET, 9600,n,8,1, iniPaths + ) Is4000 = (, seting, ) End If Exit Function N: MsgBox 初始化串口采集設(shè)備失敗 iniADAM4K！請(qǐng)檢查計(jì)算機(jī) COM口或是通訊連接電纜！ Is4000 = False End Function 39。采集 變頻器數(shù)據(jù)在 TimerOther定時(shí)器中添加 Private Sub TimerOther_Timer() If IsTran And isRead Then If strTRANCommand = Then If order Mod 4 = 1 Then For i = 0 To StoveNumber 1 If Stove(i).runstate = 1 Then i + 1, k If k 1 Then Stove(i).Speed = k E
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1