试验一
1． 模版程序
![](https://wkrtcs.bdimg.com/rtcs/image?w=553&md5sum=b759008d268bf1ccae274fbe9f6caddb&sign=507aa9816f&rtcs_flag=1&rtcs_ver=3.1&l=webapp&bucketNum=27&ipr={"t":"img","w":"553","h":"415","dataType":"png","c":"word/media/image1.png","imgOriW":1024,"imgOriH":768})
![](https://wkrtcs.bdimg.com/rtcs/image?w=553&md5sum=b759008d268bf1ccae274fbe9f6caddb&sign=507aa9816f&rtcs_flag=1&rtcs_ver=3.1&l=webapp&bucketNum=27&ipr={"t":"img","w":"553","h":"415","dataType":"png","c":"word/media/image2.png","imgOriW":1024,"imgOriH":768})
![](https://wkrtcs.bdimg.com/rtcs/image?w=553&md5sum=b759008d268bf1ccae274fbe9f6caddb&sign=507aa9816f&rtcs_flag=1&rtcs_ver=3.1&l=webapp&bucketNum=27&ipr={"t":"img","w":"553","h":"415","dataType":"png","c":"word/media/image3.png","imgOriW":1024,"imgOriH":768})
![](https://wkrtcs.bdimg.com/rtcs/image?w=553&md5sum=b759008d268bf1ccae274fbe9f6caddb&sign=507aa9816f&rtcs_flag=1&rtcs_ver=3.1&l=webapp&bucketNum=27&ipr={"t":"img","w":"553","h":"415","dataType":"png","c":"word/media/image4.png","imgOriW":1024,"imgOriH":768})
2.框架程序
代码Sub MyDeviceOpen()
ErrCde=DRV_DeviceOpen(0,DeviceHandle)
Call 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
Call UpdateLed(DiValue)
lpDioWritePort.Port=intOutput
lpDioWritePort.Mask=255
lpDioWritePort.state=DiValue
ErrCde=DRV_DioWritePortByte(DeviceHandle,lpDioWritePort)
Call PCI_1711ErrorTest
Sub MyDeviceClose()
ErrCde=DRV_DeviceClose(DeviceHandle)
Call PCI_1711ErrorTest
End Sub
![](https://wkrtcs.bdimg.com/rtcs/image?w=553&md5sum=b759008d268bf1ccae274fbe9f6caddb&sign=507aa9816f&rtcs_flag=1&rtcs_ver=3.1&l=webapp&bucketNum=27&ipr={"t":"img","w":"553","h":"415","dataType":"png","c":"word/media/image5.png","imgOriW":1024,"imgOriH":768})
本文来源：https://www.2haoxitong.net/k/doc/4920070a16fc700abb68fc26.html
文档为doc格式