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]
引用
�
相关问答：
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
大家好，我用上面一个东西赋值 TF1.text = & ......
VB偶学得不错，现在大一，高三的时候就学VB了，现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年，对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
问题：对sql语句中单、双引号模糊。既然 Text1.Text就表示 ......
