SCM

Development Platform:
HTML/CSS

Class1.cls：Code Content
							VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Class3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
' this is the interface to the HID controller DLL - you should not
' normally need to change anything in this file.
'
' WinProc() calls your main form 'event' procedures - these are currently
' set to..
'
' MainForm.OnPlugged(ByVal pHandle as long)
' MainForm.OnUnplugged(ByVal pHandle as long)
' MainForm.OnChanged()
' MainForm.OnRead(ByVal pHandle as long)
Option Explicit
Public Function readhid(ByRef Buffer() As Byte) As Boolean
        
        readhid = HidReadEx(VendorID, ProductID, BufferIn(0))
        Buffer(0) = BufferIn(0)
        Buffer(1) = BufferIn(1)
        Buffer(2) = BufferIn(2)
        Buffer(3) = BufferIn(3)
        Buffer(4) = BufferIn(4)
        Buffer(5) = BufferIn(5)
        Buffer(6) = BufferIn(6)
        Buffer(7) = BufferIn(7)
        Buffer(8) = BufferIn(8)
        Buffer(9) = BufferIn(9)
        Buffer(10) = BufferIn(10)
        Buffer(11) = BufferIn(11)
        Buffer(12) = BufferIn(12)
        Buffer(13) = BufferIn(13)
        Buffer(14) = BufferIn(14)
        Buffer(15) = BufferIn(15)
        Buffer(16) = BufferIn(16)
        
        
 '      If hidRead(0, BufferIn(0)) Then
            ' ** YOUR CODE HERE **
            ' first byte is the report ID, e.g. BufferIn(0)
            ' the other bytes are the data from the microcontrolller...
            
 '       End If
End Function
Public Function writehid(ByRef Buffer() As Byte) As Boolean
        BufferOut(0) = Buffer(0)
        BufferOut(1) = Buffer(1)
        BufferOut(2) = Buffer(2)
        BufferOut(3) = Buffer(3)
        BufferOut(4) = Buffer(4)
        BufferOut(5) = Buffer(5)
        BufferOut(6) = Buffer(6)
        BufferOut(7) = Buffer(7)
        BufferOut(8) = Buffer(8)
        BufferOut(9) = Buffer(9)
        BufferOut(10) = Buffer(10)
        BufferOut(11) = Buffer(11)
        BufferOut(12) = Buffer(12)
        BufferOut(13) = Buffer(13)
        BufferOut(14) = Buffer(14)
        BufferOut(15) = Buffer(15)
        BufferOut(16) = Buffer(16)
        
        writehid = hidWriteEx(VendorID, ProductID, BufferOut(0))
End Function
Public Function ConnectToHID(ByVal pHostWin As Long) As Boolean
 '  bufferin(0) = 1
    ConnectToHID = HidConnect(pHostWin)
 '  FPrevWinProc = SetWindowLong(FWinHandle, GWL_WNDPROC, AddressOf WinProc)
End Function

						