PC6408光隔离开关量输入输出接口卡.doc

yte Private Declare Function DI6408All Lib "pc6000.dll" (ByVal nAdd As Integer) As Integer Private Declare Sub DO6408Bit Lib "pc6000.dll" (ByVal nAdd As Integer, ByVal nBit As Integer, ByVal nState As Byte) Private Declare Sub DO6408All Lib "pc6000.dll" (ByVal nAdd As Integer, ByVal nHigh As Byte, ByVal nLow As Byte) Dim nState As Boolean Private Sub Timer1_Timer() ' 多通道输出 Call DO6408All(256, DoOutValue, DoOutValue) If DoOutValue =0 Then AoOutValue = 255 Else AoOutValue =0' 改变数字量输出状态. End If ' 单通道输出 For i=0 To 15 Call DO6408Bit(256, i, nState) nState = Not nState Next i' 多通道输入 Text1 = DI6408All(256) ' 单通道输入 For i=0 To 15 ii= DI6408Bit(256, i) Next i End Sub 8. 产品清单及保修: 产品清单: 1. 6408 开关量输入输出接口卡壹块。 2. 37D 型接头壹套。本产品自售出之日起两年内, 凡用户遵守贮存、运输及使用要求, 而产品质量低于技术指标的, 凭保修单免费维修。因违反操作规定和要求而造成损坏的,需交纳器件和维修费。