开环系统数据广义

1、开环广义:程序说明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 = 待检测 Label6.Caption = 待检测 Label8.Caption = 待检测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 = 待检测 Label6.Caption = 待检测 Label8.Caption = 待检测 En

4、dEnd SubPrivate Subd4_Click()定义写入到加热电路开关的数组；主机开关变量入到模块的函数,断开加热电路；输入设定值；5 秒一次检测；根据坐标位置划出绿色设定值线；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输入设定值；根据坐标位置划出绿色设定值线；打开模块函数库；主机和模块连接；不知道什么量；?；设定输入通道；根据电热偶输出电流计算实际温度；控制过程；显示实际温度；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桌面开环特性 04.txt For Append As #1Write #1, st; Spc(8); tep; Spc(8); u1 Close #1End Sub

10、用红线根据坐标位置划出实际温度线；实际与设定差值；用蓝色线根据加热时间和坐标位置划出控制曲线；显示加热时间；将加热时间赋值给计时器 2；接通加热电路；时间到断开加热电路；秒表显示； 数据表格（抽取部分）时间（s）温度（）时间（s）温度（）时间（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