|
我也遇到類似問題
作業系統: win7 32bit 繁體中文
USB2LTP版本: 第三版
驅動程式版本: 1.6.2013.524
驅動程式日期: 2013/5/24
我寫了一段VB6小程式,我會引用到IO.DLL這個通用函示庫
我只會用到LPT的D0~D7腳,一個INIT腳(C2),還有ACK腳(S6),下面這一段程式主要是送出給LPT設備,
它會回應我一個ACK,當我用實體的LPT都沒問題,但是用了USB2LPT就會出現藍屏接著重開機,
不知道哪位先進有方法可以解決?謝謝!
Public Declare Sub SetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Public Declare Sub ClrPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Public Declare Sub NotPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Public Declare Function GetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte) As Boolean
Public Const DataReg = &H278
Public Const StatusReg = &H279
Public Const CtlReg = &H27A
ClrPortBit CtlReg, 3
SetPortBit CtlReg, 2
ClrPortBit CtlReg, 5 '將DataPort設定為輸出
PortOut DataReg, Value '輸出命令
' For j = 1 To 20 '100
' Next j
'3向交握<以下>
Dim Ack As Boolean
'提出Request
ClrPortBit CtlReg, 2
ChkAck: '等待回應Ack
Ack = GetPortBit(StatusReg, 6)
If Ack = True Then GoTo ChkAck
|
|