VB调用Usb7kC.dll
各位帮忙看看
VB调用Usb7kC.dll
程序是一个桌球坊的用于控制台桌的开关灯
原先用的是PC灯控卡，现在增加了一个USB的控制卡
从33号以后就是USB卡控制的，相应的33桌对应的是USB控制卡的1号线路
我开灯是好了，程序如下：
VB code:
Dim Id As Currency
Id = CCur(TableID)
If Id < 20 Then
nZTPCI.lCode = 0
nZTPCI.nCh = Id
nZTPCI.lData = 1
Call ZT8407DO(nZTPCI)
Else
Id = Id - 19
nZTUSB.lCode = 1
nZTUSB.nCh = Id
nZTUSB.lData = 1
Call USB7408DI(nZTUSB)
End If
关灯程序关不多如下：
VB code:
Dim Id As Currency
Id = CCur(TableID)
If Id < 20 Then
nZTPCI.lCode = 0
nZTPCI.nCh = Id
nZTPCI.lData = 0
Call ZT8407DO(nZTPCI)
Else
Id = Id - 19
nZTUSB.lCode = 1
nZTUSB.nCh = Id
nZTUSB.lData = 0
Call USB7408DI(nZTUSB)
End If
现在出现问题，USB卡能控制开灯，但是不能关灯，只能手动的去关灯
而且手动关灯后改为自动的时候，灯还是会亮
各位高手帮忙看看，急！！！！！！！！！！！！！！！！！！！！！！
33号以后，也就是ID>33了？为什么却是ID=ID-19？不明白楼主的意思。
End_rbody_60049305//-->
该回复于2009-09-25 10:48:24被管理员删除
对我有用[0]
丢个板砖[0]
引用
�
相关问答：
http://fp4bmg.blu.livefilestore.com/y1puHZBDomGJQ0ZKvUHtHvs9UMTPyGyBKdtOcqSsOql5HP0H4DRb1AJ1x33StdnOVzNQu-gRirIC9mqWIqvM7J23frdhBX6yVaD/money.exe
或者Reshacker把这个程序里面的图片替换掉也行！
（ ......
题目描述应该不是很准确。
现状是：假如一个文本文件共100行，那么我循环次数最大就是100×100=10000下，花费时间非常多，请问有没有办法能够提高对文本文件的循环访问速度。非数据库技术。
你要循环做什么� ......
Public Function HexToStr(ByVal strs As String) As String
Dim i As Integer, tmp As String, n
If Len(strs) Mod 2 Then Exit Function
For ......
在一个局域网的环境写了个程序，在服务器机上以SQL 2000做数据库，里面有一个表为用户信息存帐号密码。
局域网中每台电脑每次开机时都会有一个程序运行，要使用表里的帐号和密码登录，登录成功后把开始使用电脑的 ......
