计算机控制技术复习点.doc

1. 开环控制系统开环控制系统是指控制器按照先验的控制方案对对象或系统进行控制，使被控制对象或系统能按照约定来运动或变化。2 闭环控制系统增加了一个比较环节和一个来自被控参数的反馈信号3 操作指导控制系统OGC、操作指导系统是基于生产过程数据直接采集的非在线的闭环控制系统直接数字控制系统DDC、直接数字系统是计算机控制系统最基本形式，也是应用最多的一类计算机控制系统，可以实现在线控制。监督控制系统SCC、计算机监督控制系统是一种两级计算机控制系统该类系统类似计算机操作指导控制系统。集散控制系统DCS(分布式控制系统)、采用分散控制、集中操作、分级管理、分而自治、综合协调。一般分为四级：过程控制级、控制管理级、生产管理级和经营管理级。现场总线控制系统FCS现场总线控制系统利用现场总线将各智能现场设备，各级计算机和自动化设备互联，形成了一个数字式全分散双向串行传输，多分支结构和多点通信的通信网络。计算机集成制造系统CIMS计算机集成制造是将工业生产的全过程集成由计算机网络和系统在统一模式进行，包括从设计、工艺、加工制造到产品的检验出厂一体化的模式。目前已将制造集成转换为信息集成。4 执行器是过程计算机控制系统中的一个重要组成部分。其作用是接收控制器送来的控制信号，改变被控介质的流量，从而将被控变量维持在所要求的数值上或一定的范围内。有各种不同的分类方法： 按动力能源分类 分为气动、电动、液动执行器。 特点是结构简单、动作可靠、平稳、输出推力较大、维修方便、防火防爆，价格较低； 按动作极性分类 分为正作用、反作用执行器 按动作行程分类 分为角行程、直行程执行器 按动作特性分类 分为比例式、积分式执行器流量特性5 运动控制中常用的执行机构 直流伺服电机 （永磁式和电磁式：串、复、它、并励）具有启动力矩大，调速范围广，控制方便，机械特性和调节特性线性度好等特点。 交流伺服电机 调速范围大，稳定性好，反应快速灵敏 ，无“自转”现象，启动转矩应大， 步进电机（脉冲电机）其功用是将脉冲电信号转换成相应的角位移或直线位移，即给一个脉冲信号，电动机就转动一个角度或前进一步。不需要变换，能直接将数字脉冲信号转换为角位移，很适合采用计算机控制，被广泛应用于简易数控机床、送料机构、仪器仪表等领域 电磁阀 液压阀（功能：压力、方向、流量控制阀） 低压阀 其允许使用压强6Mpa； 中压阀 其允许使用压强16Mpa； 高压阀 其允许使用压强16Mpa；6 总线的定义 总线就是一组信号线的集合，它定义了各引线的信号、电气和机械特性，使计算机系统内部的各部件之间以及外部的各系统之间建立信号联系，进行数据传递和通信。总线的特点规定了各引线的信号、时序、电气和机械特性为计算机系统内部各部件、各模块之间或计算机各系统之间提供了标准的公共信息通路采用总线标准设计、生产的计算机模板和设备具有很强的兼容性 总线传输阶段：申请分配阶段，寻址阶段，数据传输阶段，结束阶段RS-232-C：RS-232-C总线是一种串行外部总线，专门用于数据终端设备DTE和数据通信设备DCE之间的串行通信。RS-232-C总线的机械特性RS-232-C总线的接口连接器采用DB-25插头和插座，其中阳性插头（DB-25-P）与DTE(数据终端设备如手机)相连，阴性插座（DB-25-S）与DCE(数据通信设备如调制解调器)相连。25个引脚只定义了22个。通常使用的RS-232-C接口信号只有9根引脚，其插头插座在RS-232-C的机械特性中都有规定。最基本的三根线是发送数据线2 TXD、接受数据线3 RXD和信号地线7 GND。RS485总线具有以下特点RS485是多发送器的电路标准，是RS-422A性能的扩展，是真正意义上总线标准。 电气特性： 逻辑“1”以两线间的电压差为+2V+6V表示； 逻辑“0”以两线间的电压差为-2V -6V表示。 是采用平衡驱动器和差分接收器组合，抗共模干扰能力增强 数据最高传输速率为10Mbps 最大传输距离为1200m， 在总线上是允许连接多达128个收发器 具有多站能力和多机通信功能7 USB设备的主要特点采用USB接口的设备支持热拔插USB接口可以同时连接127台USB设备。速度方面，USB 1.1总线规范定义了12 Mb/s的带宽，而USB2.0可提供480Mb/s的传输速度。USB总线能够提供500 mA电流，可驱动耗电量较少的设备USB传输方式：控制(Control)传输方式，传输主机与USB设备间的命令等。中断(Interrupt)传输方式，传输主要及时处理的数据。同步(Isochronous)传输方式，传输需要连续、实时、对正确性要求不高的数据。批(Bulk)传输方式，传输要求正确无误的大批量的数据。USB电缆中有四根导线：用于传输差分信号D+和D-，一对电源线VBUS和GND，用于给设备提供+5 V电源。 如D+电平接近Vcc，D-近地，则所连设备为全速设备 如D-电平接近Vcc，D+近地，则所连设备为低速设备 当D+和D-的电压都降到0.8V以下，并持续3.5微秒以上的话，就认为该设备断开连接了。8 数字量输出通道-输出驱动电路：(1)晶体管输出驱动电路 光耦加晶体管，适合小功率直流驱动，动作快，可频繁动作(2)继电器输出驱动电路光耦加晶体管加继电器，适合交直流驱动，动作慢，寿命有限(3)固态继电器输出驱动电路光耦加SSR，适合交流驱动，可频繁动作，抗干扰能力强9 D/A转换器原理：在D/A转换中，要将数字量转换成模拟量，必须先把每一位代码按其“权”的大小转换成相应的模拟量，然后将各分量相加，其总和就是与数字量相应的模拟量，这就是D/A转换的基本原理。D/A转换器的主要组成：基准电压VREF，T型（R-2R）电阻网络，位切换开关BSi （i=0，1，n-1），运算放大器A性能指标:分辨率,稳定时间（又称转换时间）,绝对精度隔离：由于D/A转换器输出直接与被控对象相连，容易通过公共地线引入干扰，因此要采取隔离措施。通常采用光电耦合器（类似于普通三极管的输入-输出特性），使控制器和被控对象只有光的联系，达到隔离的目的。隔离方法分为：模拟信号隔离和数字信号隔离。模拟信号隔离的优点是：只使用少量的光电耦合器，成本低；缺点是调试困难，如果光电耦合器挑选不合适，将会影响变换的精度和线性度。数字信号隔离的优点是调试简单，不影响转换的精度和线性度；缺点是使用较多的光电耦合器，成本高。A/D接口-模拟量输入通道把被控对象的模拟信号转换成计算机可以接收的数字信号模拟量输入通道的组成：多路模拟切换开关，前置放大器，采样保持器，模数转换器（A/D），控制电路等A/D转换三种方法：逐次逼近法，双积分法，电压频率转换法A/D转换器性能指标，分辨率，转换时间，量程，精度外围电路：I/V转换，多路模拟开关，前置放大器，采样保持电路隔离方式同D/A转换器接口隔离技术，主要采用光电耦合器10 触摸屏按工作原理分有五类产品电阻式触摸屏 电容式触摸屏红外线式触摸屏表面声波式触摸屏 遥控力感式触摸屏11 数字控制器的连续化设计步骤 设计假想的连续控制器 选择采样周期 T 将D(s)离散化为D(z) 设计由计算机实现的控制算法 校验常用连续系统离散化（将D(s)离散化为D(z)）的方法：双线性变换法，后向差分法，前向差分法，冲击响应不变法，零极点匹配法，零阶保持法 双线性变换法（第05章第10页）由计算机实现的控制算法利用上式即可实现计算机编程，因此上式称为数字控制器D(z)的控制算法。12 数字滤波和处理进行数字滤波和处理的必要性：存在外部干扰，采样系统多次转换信号会掺杂噪声，直接测得数据可能不可用。数字滤波：在计算机中利用某种计算方法对原始输入数据进行数学处理，去掉原始数据中掺杂的噪声数据，提高信号的真实性，获得最具有代表性的数据集合。数据处理：通过数字滤波得到比较真实的被测参数，有时不能直接使用，还需要做某些处理，如线性化、校正运算、标度变换等。数字滤波方法： 各种滤波方法的特点与应用 平均值滤波适用于周期性干扰； 加权平均递推滤波适用于纯滞后较大的过程； 中值滤波和程序判断滤波适用于偶然出现的脉冲干扰； 惯性滤波适用于高频干扰。 常见数据处理方法 线性化处理： 校正运算 标度变换 越限报警处理 死区处理13 PIDPID是Proportional（比例）、Integral（积分）、Differential（微分）三者的缩写。在过程控制中，按误差信号的比例、积分和微分进行控制的调节器，简称PID调节器，是技术成熟、应用最为广泛的一种调节器。标准模拟的PID：Kc、Ti、Td 分别为模拟调节器的比例增益、积分时间和微分时间, u0为偏差 e=0 时的调节器输出, 又称之为稳态工作点。数字PID：Ki积分系数，Kd微分系数增量PID算法的优点是编程简单, 数据可以递推使用, 占用内存少, 运算快。 理想微分PID与实际微分PID 其区别在于实际微分多了个一阶惯性环节14 PID控制的参数整定整定方法：稳定边界法（临界比例度法），动态特性法（响应曲线法），基于偏差积分指标最小的整定参数法，试凑法。试凑法一般规律：增大比例系数Kc一般将加快系统的响应，使系统的稳定性变差 减小积分时间Ti，将使系统的稳定性变差，使余差（静差）消除加快。增大微分时间Td，将使系统的响应加快，但对扰动有敏感的响应，可使系统稳定性变差。试凑法整定步骤：（1） 首先整定比例部分。（2） 如果纯比例控制有较大余差，则需要加入积分作用。（3） 若使用比例积分控制，反复调整仍达不到满意的效果，则可加入微分环节。 SQL语言性质 SQL语言是一种关系数据库语言，提供数据的定义、查询、更新和控制等功能。 SQL语言不是一个应用程序开发语言，只提供对数据库的操作能力，不能完成屏幕控制、菜单管理、报表生成等功能，可成为应用开发语言的一部分； SQL语言不是一个DBMS，它属于DBMS语言处理程序 组态软件是监控系统不可缺少的部分，其作用是针对不同应用对象，组态生成不同的数据实体。 组态软件功能主要包括： 硬件配置组态功能 数据库组态功能 控制回路组态功能 逻辑控制及批控制组态功能 显示图形生成功能 报表画面生成功能 报警画面生成功能 趋势曲线生成功能 PCI8602功能概述 16位AD精度，250KS/s采样频率单端32路/差分16路 模拟量输入AD缓存：8K字FIFO存储器AD量程：10V、5V、2.5V、010V、05V程控增益：1、2、5、10或1、2、4、8倍 AD触发方式：多种模拟量、数字量触发方式12位DA精度，100KS/s数模转换频率4路模拟量输出，上电自动清零DA量程：05V、010V、5V、10V数字量输入、输出各8路Counter：9种门控方式的16位计数或脉冲发生功能全卡实现无跳线操作 VB对象.属性=属性值100 + 123 结果为 223100 + 123 结果为 100123 Abc + 123 出错 100 & 123 结果为 100123 100 & 123 结果为 100123 Abc & 123 结果为 Abc123 Abc & 123 结果为 Abc123算术运算符（+，-）=字符运算符（&，+）关系运算符（逻辑运算（not，and，or，xor） Sqr（开根号），Int（不大于N的最大整数），要产生1-100的随机整数：Int(Rnd *100)+1，Fix(N)为截断取整，即去掉小数后的数。4.4 循环结构1. For循环语句 (一般用于循环次数已知)形式 For 循环变量初值 to 终值 Step 步长 语句块Exit For 语句块 Next 循环变量4.5.1 Goto 语句 形式: Go To 标号|行号 作用是无条件地转移到标号或行号指定的那行语句. 标号是一个字符序列,行号是一个数字序列。DADim hDevice As Long 设备对象句柄Dim DeviceID As Integer 设备号Dim bReturnStatus As Boolean 函数的返回值Dim OutputRange As Integer DA输出量程选项值Dim nDAChannel As IntegerDim fDAVolt As Single DA输出的电压值Dim nDAData As Integer nDALsb, 存放将电压值换算而成的LSB原码值Private Sub Command1_Click() DeviceID = 0 hDevice = INVALID_HANDLE_VALUE 赋初值，以便准确控测函数的执行情况 hDevice = PCI8602_CreateDevice(DeviceID) 创建设备对象 If hDevice = INVALID_HANDLE_VALUE Then MsgBox (Create Device Error.) Exit Sub End If OutputRange = Me.Combo1.ListIndex 要求用户选择DA量程选项 nDAChannel = Me.Combo2.ListIndex 要求用户选择DA通道号 fDAVolt = CSng(Me.Text1.Text) 输入一个相对量，在0-4095之间取值，若量程是-5V-+5V，则0代表-5V，4095代表+5V 要求用户从键盘上输入DA的电压值 Select Case (OutputRange) Case PCI8602_OUTPUT_0_P5000mV: 05V nDAData = Int(fDAVolt / (5000# / 4096) 将DA电压值转换为原码值 Case PCI8602_OUTPUT_0_P10000mV: 010V nDAData = Int(fDAVolt / (10000# / 4096) 将DA电压值转换为原码值 Case PCI8602_OUTPUT_N5000_P5000mV: 5V nDAData = Int(fDAVolt / (10000# / 4096) + 2048) 将DA电压值转换为原码值 Case PCI8602_OUTPUT_N10000_P10000mV: 10V nDAData = Int(fDAVolt / (20000# / 4096) + 2048) 将DA电压值转换为原码值 Case Else MsgBox 错误的量程 End Select PCI8602_InitDevProDA hDevice, OutputRange, nDAChannel If nDAData 4095 Then nDAData = 4095 End If If ndatata 0 Then nDAData = 0 End If bReturnStatus = PCI8602_WriteDevProDA(hDevice, nDAData, nDAChannel) 输出恒定电压 If bReturnStatus = False Then MsgBox (PCI8602_WriteDeviceDA is Error.) Else Me.Text2.Text = nDAData End If PCI8602_ReleaseDevice (hDevice) 释放设备对象End SubPrivate Sub Form_Load() Me.Combo1.ListIndex = 0 Me.Combo2.ListIndex = 0End SubDIOOption ExplicitDim bDISts(0 To 7) As ByteDim bDOSts(0 To 7) As ByteDim dwErrorCode As IntegerDim strDwError As StringDim strErrorMsg As StringDim hDevice As LongDim DeviceLgcID As IntegerPrivate Sub Command_DO_Click(Index As Integer) Select Case Index Case 0: If bDOSts(0) = 1 Then Me.Command_DO(Index).BackColor = RGB(192, 192, 192) Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 关 bDOSts(0) = 0 Else Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 开 Me.Command_DO(Index).BackColor = RGB(0, 255, 255) bDOSts(0) = 1 End If Case 1: If bDOSts(1) = 1 Then Me.Command_DO(Index).BackColor = RGB(192, 192, 192) Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 关 bDOSts(1) = 0 Else Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 开 Me.Command_DO(Index).BackColor = RGB(0, 255, 255) bDOSts(1) = 1 End If Case 2: If bDOSts(2) = 1 Then Me.Command_DO(Index).BackColor = RGB(192, 192, 192) Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 关 bDOSts(2) = 0 Else Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 开 Me.Command_DO(Index).BackColor = RGB(0, 255, 255) bDOSts(2) = 1 End If Case 3: If bDOSts(3) = 1 Then Me.Command_DO(Index).BackColor = RGB(192, 192, 192) Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 关 bDOSts(3) = 0 Else Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 开 Me.Command_DO(Index).BackColor = RGB(0, 255, 255) bDOSts(3) = 1 End If Case 4: If bDOSts(4) = 1 Then Me.Command_DO(Index).BackColor = RGB(192, 192, 192) Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 关 bDOSts(4) = 0 Else Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 开 Me.Command_DO(Index).BackColor = RGB(0, 255, 255) bDOSts(4) = 1 End If Case 5: If bDOSts(5) = 1 Then Me.Command_DO(Index).BackColor = RGB(192, 192, 192) Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 关 bDOSts(5) = 0 Else Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 开 Me.Command_DO(Index).BackColor = RGB(0, 255, 255) bDOSts(5) = 1 End If Case 6: If bDOSts(6) = 1 Then Me.Command_DO(Index).BackColor = RGB(192, 192, 192) Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 关 bDOSts(6) = 0 Else Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 开 Me.Command_DO(Index).BackColor = RGB(0, 255, 255) bDOSts(6) = 1 End If Case 7: If bDOSts(7) = 1 Then Me.Command_DO(Index).BackColor = RGB(192, 192, 192) Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 关 bDOSts(7) = 0 Else Me.Command_DO(Index).Caption = 开关 + CStr(Index) + 开 Me.Command_DO(Index).BackColor = RGB(0, 255, 255) bDOSts(7) = 1 End If End Select If PCI8602_SetDeviceDO(hDevice, bDOSts(0) = False Then 开关量输出 dwErrorCode = PCI8602_GetLastErrorEx(PCI8602_SetDeviceDO, strErrorMsg) strDwError = dwErrorCode MsgBox dwErrorCode = + strDwError + strErrorMsg End If End SubPrivate Sub Command_ReadDI_Click() If PCI8602_GetDeviceDI(hDevice, bDISts(0) = False Then 开关量输入 dwErrorCode = PCI8602_GetLastErrorEx(PCI8602_GetDeviceDI, strErrorMsg) strDwError = dwErrorCode MsgBox dwErrorCode = + strDwError + strErrorMsg End If If bDISts(0) = 1 Then Me.Command_DI(0).Caption = 开关0开 Me.Command_DI(0).BackColor = RGB(0, 255, 255) Else Me.Command_DI(0).Caption = 开关0关 Me.Command_DI(0).BackColor = RGB(192, 192, 192) End If If bDISts(1) = 1 Then Me.Command_DI(1).Caption = 开关1开 Me.Command_DI(1).BackColor = RGB(0, 255, 255) Else Me.Command_DI(1).Caption = 开关1关 Me.Command_DI(1).BackColor = RGB(192, 192, 192) End If If bDISts(2) = 1 Then Me.Command_DI(2).Caption = 开关2开 Me.Command_DI(2).BackColor = RGB(0, 255, 255) Else Me.Command_DI(2).Caption = 开关2关 Me.Command_DI(2).BackColor = RGB(192, 192, 192) End If If bDISts(3) = 1 Then Me.Command_DI(3).Caption = 开关3开 Me.Command_DI(3).BackColor = RGB(0, 255, 255) Else Me.Command_DI(3).Caption = 开关3关 Me.Command_DI(3).BackColor = RGB(192, 192, 192) End If If bDISts(4) = 1 Then Me.Command_DI(4).Caption = 开关4开 Me.Command_DI(4).BackColor = RGB(0, 255, 255) Else Me.Command_DI(4).Caption = 开关4关 Me.Command_DI(4).BackColor = RGB(192, 192, 192) End If If bDISts(5) = 1 Then Me.Command_DI(5).Caption = 开关5开 Me.Command_DI(5).BackColor = RGB(0, 255, 255) Else Me.Command_DI(5).Caption = 开关5关 Me.Command_DI(5).BackColor = RGB(192, 192, 192) End If If bDISts(6) = 1 Then Me.Command_DI(6).Caption = 开关6开 Me.Command_DI(6).BackColor = RGB(0, 255, 255) Else Me.Command_DI(6).Caption = 开关6关 Me.Command_DI(6).BackColor = RGB(192, 192, 192) End If If bDISts(7) = 1 Then Me.Command_DI(7).Caption = 开关7开 Me.Command_DI(7).BackColor = RGB(0, 255, 255) Else Me.Command_DI(7).Caption = 开关7关 Me.Command_DI(7).BackColor = RGB(192, 192, 192) End If End SubPrivate Sub Form_Load() DeviceLgcID = 0 hDevice = PCI8602_CreateDevice(DeviceLgcID) If hDevice = INVALID_HANDLE_VALUE Then dwErrorCode = PCI8602_GetLastErrorEx(PCI8602_CreateDevice, strErrorMsg) strDwError = dwErrorCode MsgBox dwErrorCode = + strDwError + strErrorMsg Exit Sub End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) If PCI8602_ReleaseDevice(hDevice) = False Then MsgBox PCI8602_ReleaseDevice Error. End IfEnd SubADOption ExplicitDim InputRange As IntegerDim ADBuffer(0 To 8191) As Long 分配缓冲区(存储原始数据)Dim hDevice As LongDim DeviceLgcID As IntegerDim dwErrorCode As IntegerDim strDwError As StringDim strErrorMsg As StringDim ADPara As PCI8602_PARA_AD 硬件参数Dim nReadSizeWords As Long 每次读取AD数据的长度(字)Dim nRetSizeWords As LongDim nADChannel As IntegerDim ADData As IntegerDim fVolt As DoubleDim strTemp As StringDim bRun As BooleanPrivate Sub Combo_Freq_Click() If hDevice = INVALID_HANDLE_VALUE Then MsgBox 设备不存在 Exit Sub End If ADPara.Frequency = CLng(Me.Combo_Freq.Text) PCI8602_SetDevFreqencyAD hDevice, ADPara.Frequency End SubPrivate Sub Command_Start_Click() If hDevice = INVALID_HANDLE_VALUE Then MsgBox 设备不存在 Exit Sub End If InputRange = Me.Combo_InputRange.ListIndex 要求用户从键盘上选择输入量程 预置硬件参数 ADPara.ADMode = PCI8602_ADMODE_SEQUENCE AD模式为连续模式 ADPara.FirstChannel = 0 首通道 ADPara.LastChannel = 3 末通道 ADPara.Frequency = CLng(Me.Combo_Freq.Text) 采样频率(Hz) ADPara.GroupInterval = 50 组间间隔(uS) ADPara.LoopsOfGroup = 1 组内各通道点数 ADPara.InputRange = InputRange 模拟量输入量程范围 ADPara.TriggerMode = PCI8602_TRIGMODE_SOFT 触发模式为软件触发 ADPara.TriggerSource = PCI8602_TRIGSRC_ATR 触发源 ADPara.TriggerType = PCI8602_TRIGTYPE_EDGE 触发类型为边沿触发 ADPara.TriggerDir = PCI8602_TRIGDIR_NEGATIVE 触发方向为负向 ADPara.TrigWindow = 40 触发灵敏度 ADPara.ClockSource = PCI8602_CLOCKSRC_IN 时钟源选用板内时钟源 ADPara.bClockOutput = False 禁止时钟输出 If PCI8602_InitDeviceProAD(hDevice, ADPara) = False Then 初始化硬件 dwErrorCode = PCI8602_GetLastErrorEx(PCI8602_InitDeviceProAD, strErrorMsg) strDwError = dwErrorCode MsgBox dwErrorCode = + strDwError + strErrorMsg End If Sleep 10 Dim ChannelCount As Integer ChannelCount = ADPara.LastChannel - ADPara.FirstChannel + 1 nReadSizeWords = 8192 - 8192 Mod ChannelCount 将数据长度字转换为双字 If PCI8602_StartDeviceProAD(hDevice) = False Then 启动设备 dwErrorCode = PCI8602_GetLastErrorEx(PCI8602_StartDeviceProAD, strErrorMsg) strDwError = dwErrorCode MsgBox dwErrorCode = + strDwError + strErrorMsg End If Me.Command_Start.Enabled = False Me.Command_Stop.Enabled = True Me.Combo_Freq.Enabled = False Me.Combo_InputRange.Enabled = False Timer1.Enabled = True End SubPrivate Sub Command_Stop_Click() Timer1.Enabled = False If PCI8602_ReleaseDeviceProAD(hDevice) = False Then 释放AD MsgBox PCI8602_ReleaseDeviceProAD Error. End If Me.Command_Start.Enabled = True Me.Command_Stop.Enabled = False Me.Combo_Freq.Enabled = True Me.Combo_InputRange.Enabled = True End SubPrivate Sub Form_Load() Me.Combo_InputRange.ListIndex = 0 Me.Combo_Freq.ListIndex = 5 DeviceLgcID = 0 hDevice = PCI8