EEPW论坛

问 我想用68013实现简单的数据传输,但要求很高的可靠性,现在硬件已经出来了,用开发板的软件试了下官方提供的例程(bulkloop)能正常运行.上位机的软件准备用VB来做,调用其驱动ezUSB.sys需要调用API函数creatfile()和iocontrol()由于上位机编程是第一次,所以没经验,现在主要问题是:
1:如何获得设备的句柄?
2:获得句柄后如果想发送数据或读取数据(bulk传输),发送的控制信号(调用iocontrol())的顺序是怎样的?下位机要作怎样的反应呢?
3:有没有用VB编好的样例程序可以参考?
谢谢各位!

答 1: 没有人用过吗? 答 2: 学习！请问你的硬件是哪种模式的啊？
是从FIFO模式的吗？ 答 3: 我没有用到FIFO模式,我的要求主要在于可靠性对速度的要求不是很高.硬件比较容易,照经典电路一次就成功了.
为什么这段程序打不开呢?Createfile()返回的总是-1
哪位用VB做过的指点一下啊,谢谢!

Private Sub Form_Load()
'Handle HidDevice
Dim HidDevice As Long
DevicePathName = "\\.\ezUSB-0"
HidDevice = CreateFile _
　　　　　　　　　 (DevicePathName, _
　　　　　　　　　 GENERIC_WRITE, _
　　　　　　　　　 FILE_SHARE_WRITE, _
　　　　　　　　　 0, _
　　　　　　　　　 OPEN_EXISTING, _
　　　　　　　　　 0, _
　　　　　　　　　 0)
　　　　　　　　　
　　　　'INVALID_HANDLE_VALUE = -1
　　　 If (HidDevice = INVALID_HANDLE_VALUE) Then
　　　　　 'OpenDevice = False
　　　　　
　　　　　
　　　　　 'Form1.Shape6.Height = (MaxTemper - 0) * TemperScale
　　　　
　　　　　 MsgBox "　未发现与之通信的USB设备！" + _
　　　　　　　Chr(13) & Chr(10) + _
　　　　　　　Chr(13) & Chr(10) + _
　　　　　　　" 请确定其硬件设备是否已连接，" + _
　　　　　　　Chr(13) & Chr(10) + _
　　　　　　　"并确定其驱动程序是否已加载。", _
　　　　　　　17, "错误"
　　　　　
　　　　
　　　 Else
　　　 MsgBox "　发现与之通信的USB设备！" + _
　　　　　　　Chr(13) & Chr(10) + _
　　　　　　　Chr(13) & Chr(10) + _
　　　　　　　" 请确定，" + _
　　　　　　　Chr(13) & Chr(10) + _
　　　　　　　"!", _
　　　　　　　1, "成功打开设备"
　　　　　
　　　　　 'OpenDevice = True
　　　 End If
End Sub
Public Declare Function CreateFile _
　　 Lib "kernel32" _
　　　Alias "CreateFileA" _
　　　 (ByVal lpFileName As String, _
　　　 ByVal dwDesiredAccess As Long, _
　　　 ByVal dwShareMode As Long, _
　　　 ByRef lpSecurityAttributes As Long, _
　　　 ByVal dwCreationDisposition As Long, _
　　　 ByVal dwFlagsAndAttributes As Long, _
　　　 ByVal hTemplateFile As Long) _
As Long
'*****************************************************************
'API constants.
'*****************************************************************
'IOCTL Code
'Public Const FILE_DEVICE_UNKNOWN = &H22
Public Const CyUSB_IOCTL_INDEX = &H800
Public Const METHOD_BUFFERED = &H0
Public Const FILE_ANY_ACCESS = &H0
'CreateFile
Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const FILE_SHARE_WRITE = &H2
Public Const OPEN_EXISTING = 3
'Public Const INVALID_HANDLE_VALUE = -1
Public Const INVALID_HANDLE_VALUE = -1