天津大学自动化2010级计控实验报告.docVIP

计算机控制实验报告 学号：3010203109 班级：自动化2班 姓名：叶林奇 实验一 数字量输入输出 一、实验目的与要求 1.通过实验熟悉并掌握实验装置原理与使用方法，掌握数据采集卡的基本使用方法。 2.通过实验掌握数字输入输出通道数据采集方法。 二、实验结果 1、模板程序运行结果 2、框架程序及运行结果 Public Const SampingTime = 25 设置采样周期,单位ms Sub MyDeviceOpen() 注册数据采集卡 ErrCde = DRV_DeviceOpen(0, DeviceHandle) 注册数据采集卡 Call PCI_1711ErrorTest 调用PCI_1711ErrorTest()子程序,验证函数是否执行成功 End Sub Sub MyOperation(intInput As Integer, intOutput As Integer) lpDioReadPort.Port = intInput 设置数字采样端口号 lpDioReadPort.value = DRV_GetAddress(DiValue) 设置读入数字量存储地址 ErrCde = DRV_DioReadPortByte(DeviceHandle, lpDioReadPort) 读取相应端口的数字量 Call PCI_1711ErrorTest 调用PCI_1711ErrorTest()子程序,验证函数是否执行成功 Call UpdateLed(DiValue) 数据刷新并显示 lpDioWritePort.Port = intOutput 设置数字量输出端口号 lpDioWritePort.Mask = 255 输出端口各位数字量状态都可改变（值为255） lpDioWritePort.state = DiValue 设置输出数字量值 ErrCde = DRV_DioWritePortByte(DeviceHandle, lpDioWritePort) 数字量的输出 Call PCI_1711ErrorTest 调用PCI_1711ErrorTest()子程序,验证函数是否执行成功 End Sub Sub MyDeviceClose() 释放数据采集卡 ErrCde = DRV_DeviceClose(DeviceHandle) 释放数据采集卡 Call PCI_1711ErrorTest 调用子程序,验证函数是否执行成功 End Sub Sub PCI_1711ErrorTest() 验证函数是否执行成功 If (ErrCde 0) Then DRV_GetErrorMessage ErrCde, szErrMsg Response = MsgBox(szErrMsg, vbOKOnly, Error!!) Exit Sub End If End Sub 实验二 A/D、D/A转换实验 实验目的与要求 1、实验掌握模拟量通道中A/D,D/A转换的实现方法，掌握用计算机进行多通道A/D,D/A转换的基本方法。 2、学习掌握A/D,D/A转换的相关知识。 二、实验线路分析 图中，模拟信号的输入输出均采用带权值的加法器。对其分析如下： 三、实验结果与分析 （右下角波形为AI13） （右下角波形为AO1） 对实验结果分析如下： 1、原始斜坡信号 2、AI1波形（0V段由5V下移得到） 3、AO1波形（DA转换输出值限定为0~5V） 4、AI13波形 框架程序： Public Const SampingTime = 10 设置采样周期,单位ms Sub MyDeviceOpen() 注册数据采集卡 ErrCde = DRV_DeviceOpen(0, DeviceHandle) Call PCI_1711ErrorTest 调用PCI_1711ErrorTest()子程序,验证函数是否执行成功 End Sub Sub MyOperation(intchan, lngread As Long, intout As Integer, intchanout As Integer) 初始化设置数据采样通道