文档介绍：大学实验报告
课程名称过程装备控制技术及应用
系 专业 班 姓名 实验名称 对象特性测试实验(实验一) 指导老师
一、 实验目的
掌握一阶系统的阶跃响应测试方法，并记录相应液位的响应曲线；
根据实验得led 二 False
IPAddress = "10. 0. 0. 3" byDat a (1) = 0
RetVal = ADAMTCP_Write6KD0(IPAddress, 6050, 1, 1, 1, byDat a(l))
Labell Caption ="待检测"
Label6. Caption ="待检测"
LabelS. Caption ="待检测"
End
End Sub
Private Sub Command4_C1ick()
sp 二 Vai (Te )
Line (1200, 6240 - sp * 23. 6)-(14640, 6240 - sp * ), RGB© 255, 0)
End Sub
Private Sub Form_Load()
u0 = 0
ul = 0
el = 0
e2 = 0
e3 二 0
RetVal = ADAMTCP 0pen()
开始按钮命令；
采样时间5S；
关闭按钮命令；
IPAddress 二"10. 0. 0. 3"
RetVal 二 ADAMTCP_Connect (IPAddress, 502，2000, 2000, 2000)
If RetVal Then
Beep
MsgBox "Car? t connect" + IPAddress ADAMTCP_Close
Unload Me
End If
wGain(4) = 9
wModuleName = 6017
RetVal = ADAMTCP_Read6KAI(IPAddress,
wModuleName, 1, wGain(O), wHex(0), fValue (0)) DATA = fValue(4)
tep = (DATA - 4) * 100 / 16
b 二 tep
End Sub
Private Sub Form^Unload(Cancel As Integer) ADAMTCP_Di sconnect
ADAMTCP_Close
Unload Me
End Sub
Private Sub Timerl_Timer()
IPAddress = "10. 0. 0. 3" wGain(4) = 9
wModuleName = 6017
RetVal = ADAMTCP_Read6KAI(IPAddress,
wModuleName, 1, wGain(O), wHex(0), fValue (0)) DATA = fValue(4)
tep = (DATA - 4) * 100 / 16
Label4. Caption 二 tep
Line (a / 180 * 1344 + 1200, -b * 23. 6 + 6240)-(st / 180 * 1344 + 1200, -tep * 23. 6 + 6240), RGB(205, 16, 26)
b