【正文】 個設(shè)備) Else Call AddMessageList(USB20C_EnumDeviceCount, gApiLong, 當(dāng)前系統(tǒng)未連接任何模塊) MsgBox 系統(tǒng)未連接到任何設(shè)備。 .Height = .Top + 700 = + End With End SubSub AddMessageList(Optional ByVal strCallType As String, Optional ByVal gValue As String, Optional ByVal strShuoMing As String) On Error Resume Next Dim ip As Integer Dim iCheck As Integer With Lvw ip = . For iCheck = 1 To ip .ListItems(iCheck).Checked = False Next iCheck Set lvwItem = .(, , strCallType, , 1) (1) = gValue (2) = strShuoMing If ip 0 Then .ListItems(ip + 1).Checked = True .SetFocus .ListItems(ip + 1).EnsureVisible End If End With End SubSub AddcboIc2Type() With cboI2cType .AddItem I2C24c01 .AddItem I2C24c02 .AddItem I2C24c04 .AddItem I2C24c16 .AddItem I2C24c32 .AddItem I2C24c64 .AddItem I2C24c128 .AddItem I2C24c256 .ListIndex = 0 End With End SubSub Scan_UsbDriver() USB20C_Done gApiLong = USB20C_EnumDeviceCount With cboDriver .Clear If gApiLong 0 Then For i = 1 To gApiLong .AddItem i Next i .ListIndex = 0 driverIndex = .ListIndex Call AddMessageList(USB20C_EnumDeviceCount, gApiLong, 已連接 amp。 V Next i Dim strErrTxt As String strErrTxt = (USB20C_GetLastError) MsgBox (strErrTxt) End SubPrivate Sub Command2_Click() Dim sByte As Byte sByte = amp。Num≤60 If gApibl Then Call AddMessageList(USB20C_MultInput, gApibl, 調(diào)用成功) Else Call AddMessageList(USB20C_MultInput, gApibl, 調(diào)用失敗) End If For i = 0 To 5 A1= amp。H4 ArrData(4) = amp。HB ArrData(1) = 0 ArrData(2) = amp。 RGB(255, 0, 0) Else Shape2(i).FillColor = RGB(0, 0, 0) End If Next i End SubPrivate Sub Command1_Click() Dim i As Integer = amp。HFF00amp。 39。 Call USB20C_Output(2, 1) Else Call USB20C_Output(2, 1) Call USB20C_Output(2, 3) End If Call cmdUpColor(False) Call TxtShape1Enabled(True) Exit Sub Else .Caption = 輸入 If blDown = False And blUp Then Call USB20C_Output(2, 0) Else Call USB20C_Output(2, 2) End If blUp = False Call cmdUpColor(True) Call TxtShape1Enabled(False) End If End With End SubSub TxtShape1Enabled(ebl As Boolean) = eblEnd SubSub TxtShape2Enabled(ebl As Boolean) = eblEnd SubSub cmdUpColor(blColor As Boolean) Dim i As Integer For i = 1 To 8 If blColor Then Shape1(i).FillColor = amp。 USB20C_GetLastError If gApibl Then Call AddMessageList(USB20C_SetAddress, gApibl, 調(diào)用成功) Else Call AddMessageList(USB20C_SetAddress, gApibl, 調(diào)用失敗) End If = iAdd gApiLong = USB20C_Input() gApiLong = USB20C_Input() If gApiLong Then Call AddMessageList(USB20C_Intput, gApiLong, 調(diào)用成功) Else Call AddMessageList(USB20C_Intput, gApiLong, 調(diào)用失敗) End If = 8 gApibl = USB20C_Output(, CByte(255)) 39。Call AddMessageList(USB20C_Done, gApiLong, 斷開與當(dāng)前設(shè)備的連接) End SubPrivate Sub cmdIo_Click() Dim iAdd As Byte Dim strHex As String strHex = FF For i = 1 To Len(strHex) iAdd = iAdd * 16 + GetVal(Mid(UCase(strHex), i, 1)) Next i gApibl = USB20C_SetAddress(iAdd) 39。斷開與模塊的連接 39。關(guān)閉已打開的設(shè)備 gApiLong = USB20C_Init(driverIndex, i2cType) If gApiLong 0 Then Select Case gApiLong Case 1 Call AddMessageList(USB20C_Init, gApiLong, 全速()模式) Case 2 Call AddMessageList(USB20C_Init, gApiLong, 高速()模式) End Select Else Call AddMessageList(USB20C_Init, gApiLong, 調(diào)用錯誤) Exit Sub End If 39。DevNo = 0表示第1個連接到當(dāng)前系統(tǒng)的模塊。確定當(dāng)前系統(tǒng)上連接了幾個本模塊? 39。 程序設(shè)計 因程序的驅(qū)動程序在USB20C模塊里已經(jīng)有了，所以在這就不用再編寫，而在此編寫的程序主要為PC機的上位機程序。返回USB操作的錯誤代碼。本函數(shù)的功能是把數(shù)據(jù)Data輸出到控制總線，低4位數(shù)據(jù)有效。獲得16個字節(jié)，8個字，對應(yīng)8個模擬通道的轉(zhuǎn)換數(shù)據(jù)。例如：需要讀32k字節(jié)數(shù)據(jù)，則數(shù)據(jù)緩沖區(qū)至少要32k，Len應(yīng)該為512，如果讀數(shù)據(jù)成功則ReadLen應(yīng)為32768。需要讀大量數(shù)據(jù)時使用本函數(shù)。本函數(shù)先把地址Addr寫入地址總線，然后把數(shù)據(jù)Data寫入數(shù)據(jù)總線（總線上的WR會產(chǎn)生一個低電平脈沖）。本函數(shù)先把地址Addr寫入地址總線，然后從數(shù)據(jù)總線讀一個字節(jié)數(shù)據(jù)（總線上的RD會產(chǎn)生一個低電平脈沖），函數(shù)返回值為數(shù)據(jù)。本函數(shù)的功能是讀當(dāng)前狀態(tài)總線的數(shù)據(jù)，函數(shù)返回輸入狀態(tài)，低4位數(shù)據(jù)有效。應(yīng)用程序結(jié)束之前應(yīng)該調(diào)用本函數(shù)以釋放設(shè)備句柄。結(jié)束函數(shù)：int _stdcall USBDLLDone()。如果在本調(diào)用之前本DLL已經(jīng)被另一個應(yīng)用程序使用，則本次調(diào)用會返回 USBERR_INVALIDUSER 錯誤。初始化函數(shù)：int _stdcall USBDLLInit()。int _stdcall USB_LastError( )。int _stdcall USB_SetControl(char Data)。int _stdcall USB_Outport(char Addr, char Data)。int _stdcall USB_GetStatus( )