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]
引用
�
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal ......
