【正文】 要使用如下函數(shù)關(guān)鍵的問題是：首先，必須在您的源程序中包含如下語句()：include “C:\USB203\INCLUDE\” 注：以上語句采用默認(rèn)路徑，當(dāng)然也可以把此文件拷到您的源程序目錄中。為了驅(qū)動程序和相關(guān)接口盡量精煉快速，所以沒有加任何調(diào)試代碼，因此用戶在使用VC接口的時候應(yīng)使用發(fā)行版本進行源代碼編譯（Win32 Release），而不應(yīng)該使用調(diào)試版本（Win32 Debug）。Visual Basic: 要使用如下函數(shù)一個關(guān)鍵的問題是首先必須將我們提供的模塊文件加入到VB工程中。．函數(shù)原型說明 關(guān)于Visual C++（for Visual C++）（for Visual Basic）。所以用戶若在解釋環(huán)境中運行這些代碼，我們不保證能順利運行。define USBERR_SUCCESS 0 成功define USBERR_INVALIDGUID 1 錯的GUID，可能設(shè)備沒有安裝。define USBERR_NOMEMORYFORDEVICEDATA 3 沒能分配內(nèi)存。define USBERR_CANNOTOPENPIPE 5 不能打開“管道”。define USBERR_CANNOTWRITEINFOPIPE 7 “寫”信息管道出錯。define USBERR_CANNOTREADMAINPIPE 9 “讀”數(shù)據(jù)管道出錯。int _stdcall USBDLLDone()。int _stdcall USB_Inport(char Addr)。int _stdcall USB_BulkInport(char Addr, WORD Len, void * Data, int * ReadLen)。int _stdcall USB_ReadADOnce(void *Data,int *ReadLen)。下面是函數(shù)功能的詳細(xì)說明。應(yīng)用程序在調(diào)用其他函數(shù)之前應(yīng)該首先調(diào)用本函數(shù)，本函數(shù)的主要功能是初始化設(shè)備句柄，以及確認(rèn)設(shè)備沒有被占用。如果沒能初始化設(shè)備句柄，則會返回錯誤15之一。本函數(shù)的功能是釋放設(shè)備句柄。讀狀態(tài)輸入信息：int _stdcall USB_GetStatus( )。從數(shù)據(jù)總線讀一個字節(jié)：int _stdcall USB_Inport(char Addr)。輸出一個字節(jié)的數(shù)據(jù)：int _stdcall USB_Outport(char Addr, char Data)。批量讀數(shù)據(jù)：int _stdcall USB_BulkInport(char Addr, WORD Len, void * Data, int * ReadLen)。Addr是將要輸出在地址總線上的地址，Len指示數(shù)據(jù)長度（以64字節(jié)為單位），Data指向一個應(yīng)用程序提供的數(shù)據(jù)緩沖區(qū)，ReadLen指示讀到了多少數(shù)據(jù)（以字節(jié)為單位）。設(shè)置AD并讀取轉(zhuǎn)換值：int _stdcall USB_ReadADOnce(void * Data , int * ReadLen)。設(shè)置控制總線：int _stdcall USB_SetControl(char Data)。獲得錯誤信息：int _stdcall USB_LastError( )。代碼含義參照上述說明。本系統(tǒng)主要功能是用于ＵＳＢ接口數(shù)據(jù)傳輸速率檢測，要完成此功能，需要模擬數(shù)據(jù)輸入系統(tǒng)，模擬數(shù)據(jù)輸出系統(tǒng)，檢測程序，數(shù)據(jù)庫系統(tǒng)幾大部分組成，這幾個相對獨立的子系統(tǒng)通過ＶＢ程序軟件進行聯(lián)系．首先，為了更簡潔明了的編寫此程序，現(xiàn)將上位機的程序框圖繪制如下：啟動USB程序檢測USB設(shè)備設(shè)置設(shè)備參數(shù)接受模擬信號數(shù)據(jù)接受數(shù)據(jù)偉有效數(shù)據(jù)？啟動檢測程序數(shù)據(jù)分析數(shù)據(jù)的存儲顯示等待下組模擬信號數(shù)據(jù)結(jié)束 ． VB程序設(shè)計Option ExplicitDim lvwItem As ListItemDim strGet As StringDim i As IntegerDim blUp As BooleanDim blDown As BooleanDim driverIndex As IntegerPrivate Sub cboI2cType_Click() i2cType = () End SubSub InitialControl() With Lvw . , , 調(diào)用函數(shù), 3000 . , , 返回狀態(tài), 1000 . , , 狀態(tài)說明, 3100 End With End SubPrivate Sub cmdADRead_Click() End SubPrivate Sub cmdExit_Click() USB20C_Done Unload Me End SubPrivate Sub cmdInitial_Click() 39。DevNo 第幾個連接到當(dāng)前系統(tǒng)的模塊。 Call CloseDrive 39。模塊是否工作于高速模式 gApibl = USB20C_WorkAtHighSpeed If gApibl Then Call AddMessageList(USB20C_WorkAtHighSpeed, gApibl, 系統(tǒng)工作在高速模式) Else Call AddMessageList(USB20C_WorkAtHighSpeed, gApibl, 系統(tǒng)工作在全速模式) End If 39。gApiLong = USB20C_Done() 39。MsgBox GetErrorCode amp。gApibl = USB20C_Output(, CByte(255)) If gApibl Then Call AddMessageList(USB20C_Output, gApibl, 調(diào)用成功) Else Call AddMessageList(USB20C_Output, gApibl, 調(diào)用失敗) End If End SubPrivate Sub cmdReadAD_Click() 1End SubPrivate Sub cmdSetNumber_Click() End SubPrivate Sub cmdUp_Click() With cmdUp If .Caption = 輸入 Then blUp = True .Caption = 輸出 Call USB20C_Output(2, 3) Call USB20C_Output(2, 1) If blDown = False And blUp Then 39。HFF00amp。RGB(255, 0, 0) Else Shape1(i).FillColor = RGB(0, 0, 0) End If Next i End SubPrivate Sub cmdDown_Click() With cmdDown If .Caption = 輸入 Then blDown = True .Caption = 輸出 Call cmdDownColor(False) If blUp = True Then Call USB20C_Output(2, 3) Else Call USB20C_Output(2, 2) End If Call TxtShape2Enabled(True) Exit Sub Else .Caption = 輸入 Call cmdDownColor(True) If blUp = False And blDown Then Call USB20C_Output(2, 0) Else Call USB20C_Output(2, 0) Call USB20C_Output(2, 1) End If Call TxtShape2Enabled(False) blDown = False End If End With End SubSub cmdDownColor(blColor As Boolean) Dim i As Integer For i = 1 To 8 If blColor Then Shape2(i).FillColor = amp。 39。H7 gApibl = USB20C_Output(2, 1) ArrData(0) = amp。HF ArrData(3) = amp。HB ArrData(5) = 1 gApibl = USB20C_MultInput(6, ArrData(0)) 39。 Round((ArrData(i) * ) / 4095, 5) amp。H0 gApibl = USB20C_Output(2, 1) End SubPrivate Sub Command3_Click() 1 End SubPrivate Sub Form_Load() Call InitialControl Call (Me, sBar) Call AddcboIc2Type Call Scan_UsbDriver Call cmdUpColor(True) Call cmdDownColor(True) End SubPrivate Sub Form_Resize() On Error Resume Next Call (Me, sBar) = 150 = With Lvw .Width = 50 .Top = .Height + 20 = .Left = + + 100 39。 gApiLong amp。, vbQuestion, TiShi Exit Sub End If End With gApiLong = USB20C_Init(driverIndex, i2cType)