開環(huán)系統(tǒng)數(shù)據(jù)廣義_第1頁
開環(huán)系統(tǒng)數(shù)據(jù)廣義_第2頁
開環(huán)系統(tǒng)數(shù)據(jù)廣義_第3頁
開環(huán)系統(tǒng)數(shù)據(jù)廣義_第4頁
開環(huán)系統(tǒng)數(shù)據(jù)廣義_第5頁
已閱讀5頁，還剩1頁未讀， 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、開環(huán)廣義:程序說明Dim DATA!, tep!, temp1!, c!, pretep!, newsp! Dim RetVal As Long, IPAddress As StringDim wID%, wModuleName%Dim sp!, b!, f%, oupt!, st%, a%, d!, z! Dim wGain(0 To 9) AsegerDim wHex(0 To 15) Aseger, fValue(0 To 15) As DoubleDim byData(0 To 127) As Byte, wData(0 To 63) As egerPrivate Subd2_Clic

2、k() Timer1.Enabled = False Timer2.Enabled = False IPAddress = byData(1) = 0RetVal = ADAMTCP_Write6KPAddress, 6050, 1,1, 1, byData(1) Label4.Caption = 待檢測(cè) Label6.Caption = 待檢測(cè) Label8.Caption = 待檢測(cè)End SubPrivate Subd1_Click() sp = Val(Text1.Text) Timer1.Enabled = True Timer3.erval = 1000 Timer1.erval

3、= 5000Line (1200, 6240 - sp * 23.6)-(14640, 6240 -sp * 23.6), RGB(0, 255, 0)End SubPrivate Subd3_Click() Timer1.Enabled = False Timer2.Enabled = False IPAddress = byData(1) = 0RetVal = ADAMTCP_Write6K PAddress, 6050, 1, 1, 1, byData(1)Label4.Caption = 待檢測(cè) Label6.Caption = 待檢測(cè) Label8.Caption = 待檢測(cè) En

4、dEnd SubPrivate Subd4_Click()定義寫入到加熱電路開關(guān)的數(shù)組；主機(jī)開關(guān)變量入到模塊的函數(shù),斷開加熱電路；輸入設(shè)定值；5 秒一次檢測(cè)；根據(jù)坐標(biāo)位置劃出綠色設(shè)定值線；sp = Val(Text1.Text)Line (1200, 6240 - sp * 23.6)-(14640, 6240 -sp * 23.6), RGB(0, 255, 0)End SubPrivate Subd5_Click() z = 4End SubPrivate Sub Form_Load() temp1 = 0z = 2RetVal = ADAMTCP_Open() IPAddress = R

5、etVal = ADAMTCP_Connect(IPAddress, 502, 2000, 2000, 2000)If RetVal Then BeepMsgBox Cant connect + IPAddress ADAMTCP_CloseUnload Me End If wGain(4) = 9wModuleName = 6017RetVal = ADAMTCP_Read6KAI(IPAddress, wModuleName, 1, wGain(0), wHex(0), fValue(0)DATA = fValue(4)tep = (DATA - 4) * 100 / 16 + 2.9b

6、= tep End SubPrivate Sub Form_Unload(Cancel Aseger) ADAMTCP_DisconnectADAMTCP_Close Unload MeEnd SubPrivate Sub Timer1_Timer() IPAddress = wGain(4) = 9wModuleName = 6017RetVal = ADAMTCP_Read6KAI(IPAddress, wModuleName, 1, wGain(0), wHex(0), fValue(0)DATA = fValue(4)tep = (DATA - 4) * 100 / 16 + 2.9L

7、abel4.Caption = tep Label10.Caption = tep - temp1temp1 = tep輸入設(shè)定值；根據(jù)坐標(biāo)位置劃出綠色設(shè)定值線；打開模塊函數(shù)庫；主機(jī)和模塊連接；不知道什么量；?；設(shè)定輸入通道；根據(jù)電熱偶輸出電流計(jì)算實(shí)際溫度；控制過程；顯示實(shí)際溫度；Line (a / 180 * 1344 + 1200, -b * 23.6 +6240)-(st / 180 * 1344 + 1200, -tep * 23.6 + 6240),RGB(205, 16, 26)b = tep u1 = zLine (a / 180 * 1344 + 1200, -d * 23.6

8、 * 3 +6240)-(st / 180 * 1344 + 1200, -u1 * 23.6 * 3 +6240), RGB(0, 0, 255)d = u1Call appedatfile1 Label8.Caption = u1 a = stTimer2.erval =(u1) * 1000) byData(1) = 1RetVal = ADAMTCP_Write6KPAddress, 6050, 1, 1, 1, byData(1)Timer2.Enabled = True End SubPrivate Sub Timer2_Timer() byData(1) = 0RetVal =

9、ADAMTCP_Write6KPAddress, 6050, 1, 1, 1, byData(1)Timer2.Enabled = False End SubPrivate Sub Timer3_Timer() sp = Val(Text1.Text) st = st + 1 Label6.Caption = stEnd SubSub appedatfile1()Open C:s and SettingsAdministrator桌面開環(huán)特性 04.txt For Append As #1Write #1, st; Spc(8); tep; Spc(8); u1 Close #1End Sub

10、用紅線根據(jù)坐標(biāo)位置劃出實(shí)際溫度線；實(shí)際與設(shè)定差值；用藍(lán)色線根據(jù)加熱時(shí)間和坐標(biāo)位置劃出控制曲線；顯示加熱時(shí)間；將加熱時(shí)間賦值給計(jì)時(shí)器 2；接通加熱電路；時(shí)間到斷開加熱電路；秒表顯示； 數(shù)據(jù)表格（抽取部分）時(shí)間（s）溫度（）時(shí)間（s）溫度（）時(shí)間（s）溫度（）589887.04893610587.86734590387.04283611087.12981590887.04893611587.07335591386.91771612087.00468591886.81088612586.94212633086.92381592387.07945613087.01689633586.891775928

11、87.07335613586.91161634087.06114593387.06725614086.93602634586.90398593887.05504614586.96654635087.05504594387.02299615086.99858635587.22289594886.98027615586.95433636086.94212595387.01689616086.93602636586.96654595887.05504616586.90398637087.04893596387.07335617087.24272596886.78036617587.248835973

12、86.78036618087.99248597886.79257618586.92992639086.96654598386.81088619086.95433639587.22289598886.8353619586.99858640087.90398620086.95433640587.87344620586.92992641086.91771600386.85513621086.91771641587.1176600886.84293621586.89177642087.02299601387.12981622086.91161642687.24883K=2.1（無量剛）31.6(有量剛)T=1268=177601887.04893643187.22289602387.00468643687.10539602887.98027644186.94823603387.94212644687.26103603886.91161624587.26103604386.93602625087.04893604887.09166605486.98637626087.00468605986.95433626587.03673647186.98637606486.95433627087.09166647687.27324

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(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ì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論