【正文】 寫USB端點2。來源：說明：pData為指向發(fā)送數(shù)據(jù)緩沖區(qū)的指針，iLen為發(fā)送數(shù)據(jù)長度。D12端點2緩沖區(qū)為64字節(jié)，iLen不大于64。該函數(shù)主要用于傳送用戶數(shù)據(jù)。返回：0 錯誤=0 正確舉例：unsigned char databuff[8]={’H’,’e’,’l’,’l’, ’!’,’D’,’1’,’2’}；DWORD st= WritePort2 (databuff,)；將databaff中前8個字節(jié)寫入USB端點2vb編程接口示例Public Declare Function ReadPort1 Lib (ByRef pData As Byte, ByVal iLen As Integer) As IntegerPublic Declare Function WritePort1 Lib (ByRef pData As Byte, ByVal iLen As Integer) As IntegerPublic Declare Function ReadPort2 Lib (ByRef pData As Byte, ByVal iLen As Integer) As IntegerPublic Declare Function WritePort2 Lib (ByRef pData As Byte, ByVal iLen As Integer) As Integer心血管參數(shù)測試功能模塊實驗在窗體命令按鈕進行數(shù)據(jù)通訊Private Sub Command1_Click() Dim sam As VariantDim Rebuffer(16) As ByteDim i As IntegerRebuffer(0) = 1 39。測試項目標志 1：心血管功能sam = WritePort1(Rebuffer(0), 1)If sam 0 ThenMsgBox 打開驅(qū)動失敗,請查看USB驅(qū)動是否加載 ！ Exit subEnd IfDo While (True)sam = ReadPort2(Rebuffer(0), 16) ’16一次讀取的字節(jié)數(shù)If sam 0 Then MsgBox 打開驅(qū)動失敗,請查看USB驅(qū)動是否加載 ！ Exit SubElseFor i = 0 To 15 ‘循環(huán)對Rebuffer（0）到Rebuffer（15）的數(shù)組的值在picturebox控件中顯示Next iEnd If‘如要結(jié)束通訊，向下位機發(fā)以下兩條命令Rebuffer(0) = 10 39。結(jié)束數(shù)據(jù)sam = WritePort1(Rebuffer(0), 1) DoEventsLoopEnd sub肺功能參數(shù)測試功能模塊實驗在窗體命令按鈕進行數(shù)據(jù)通訊Private Sub Command1_Click() Dim sam As VariantDim Rebuffer(16) As ByteDim i As IntegerRebuffer(0) = 2 39。測試項目標志 2：肺功能sam = WritePort1(Rebuffer(0), 1)If sam 0 ThenMsgBox 打開驅(qū)動失敗,請查看USB驅(qū)動是否加載 ！ Exit subEnd IfDo While (True)sam = ReadPort2(Rebuffer(0), 16) ’16一次讀取的字節(jié)數(shù)If sam 0 Then MsgBox 打開驅(qū)動失敗,請查看USB驅(qū)動是否加載 ！ Exit SubElseFor i = 0 To 15 ‘循環(huán)對255Rebuffer（0）到255Rebuffer（15）的數(shù)組的值在picturebox控件中顯示Next iEnd If‘如要結(jié)束通訊，向下位機發(fā)以下兩條命令Rebuffer(0) = 10 39。結(jié)束數(shù)據(jù)sam = WritePort1(Rebuffer(0), 1) DoEventsLoopEnd sub溫度測試功能模塊實驗在窗體命令按鈕進行數(shù)據(jù)通訊Private Sub Command1_Click() Dim sam As VariantDim Rebuffer(16) As ByteDim i As IntegerRebuffer(0) = 3 39。測試項目標志 3：溫度sam = WritePort1(Rebuffer(0), 1)If sam 0 ThenMsgBox 打開驅(qū)動失敗,請查看USB驅(qū)動是否加載 ！ Exit subEnd IfDo While (True)sam = ReadPort2(Rebuffer(0), 16) ’16一次讀取的字節(jié)數(shù)If sam 0 Then MsgBox 打開驅(qū)動失敗,請查看USB驅(qū)動是否加載 ！ Exit SubElseFor i = 0 To 15 ‘循環(huán)對Rebuffer（0）到Rebuffer（15）的數(shù)組的值在text控件中顯示Next iEnd If‘如要結(jié)束通訊，向下位機發(fā)以下兩條命令Rebuffer(0) = 10 39。結(jié)束數(shù)據(jù)sam = WritePort1(Rebuffer(0), 1) DoEventsLoopEnd sub握力測試功能模塊實驗在窗體命令按鈕進行數(shù)據(jù)通訊Private Sub Command1_Click() Dim sam As VariantDim Rebuffer(16) As ByteDim i As IntegerRebuffer(0) = 4 39。測試項目標志 4：握力sam = WritePort1(Rebuffer(0), 1)If sam 0 ThenMsgBox 打開驅(qū)動失敗,請查看USB驅(qū)動是否加載 ！ Exit subEnd IfDo While (True)sam = ReadPort2(Rebuffer(0), 16) ’16一次讀取的字節(jié)數(shù)If sam 0 Then MsgBox 打開驅(qū)動失敗,請查看USB驅(qū)動是否加載 ！ Exit SubElseFor i = 0 To 15 ‘循環(huán)對Rebuffer（0）到Rebuffer（15）的數(shù)組的值在picturebox控件中顯示Next iEnd If‘如要結(jié)束通訊，向下位機發(fā)以下兩條命令Rebuffer(0) = 10 39。結(jié)束數(shù)據(jù)sam = WritePort1(Rebuffer(0), 1) DoEventsLoopEnd sub血壓測量功能模塊實驗在窗體命令按鈕進行數(shù)據(jù)通訊Private Sub Command1_Click() Dim sam As VariantDim rec(2) As ByteDim tet(1) As Bytetet(0) = 6 39。測試項目標志 6：血壓sam = WritePort1(tet(0) = 6, 1)If sam 0 ThenMsgBox 打開驅(qū)動失敗,請查看USB驅(qū)動是否加載 ！ Exit subEnd IfEnd subPrivate Sub Command2_Click() ‘在USB燈重新點亮時，“數(shù)據(jù)”按鈕執(zhí)行以下命令rec(0) = 0rec(1) = 0 = rec(0) = rec(1)tet(0) = 5If WritePort1(tet(0), 1) 0 Then MsgBox ( 寫入數(shù)據(jù)出錯，請檢查USB驅(qū)動是否加載 ！) Exit Sub End If If ReadPort2(rec(0), 2) 0 Then MsgBox ( 讀取數(shù)據(jù)出錯，請檢查USB驅(qū)動是否加載 ！) Exit Sub End If = rec(0) = rec(1)tet(0) = 10 39。結(jié)束數(shù)據(jù)sam = WritePort1(tet(0), 1)End Sub 心電測量功能模塊實驗在窗體命令按鈕進行數(shù)據(jù)通訊‘單導聯(lián)VIPrivate Sub Command1_Click() Dim sam As VariantDim Rebuffer(16) As ByteDim i As IntegerRebuffer(0) = 0 39。單導測試標志 0sam = WritePort1(Rebuffer(0), 1)If sam 0 ThenMsgBox 打開驅(qū)動失敗,請查看USB驅(qū)動是否加載 ！ Exit subEnd IfDo While (True)sam = ReadPort2(Rebuffer(0), 16) ’16一次讀取的字節(jié)數(shù)If sam 0 Then MsgBox 打開驅(qū)動失敗,請查看USB驅(qū)動是否加載 ！ Exit SubElseFor i = 0 To 15 ‘循環(huán)對Rebuffer（0）到Rebuffer（15）的數(shù)組的值在picturebox控件中顯示Next iEnd If‘如要結(jié)束通訊，向下位機發(fā)以下兩條命令Rebuffer(0) = 10 39。結(jié)束數(shù)據(jù)sam = WritePort1(Rebuffer(0), 1) DoEventsLoopEnd sub‘三導聯(lián)(VI 、VII、VIII)通訊的基本模式同單導聯(lián)‘導聯(lián)之間的切換, VI導聯(lián) 轉(zhuǎn)到VII導聯(lián)Rebuffer(0) = 10 sam = WritePort1(Rebuffer(0), 1) If sam = 0 Then Rebuffer(0) = 7 sam = WritePort1(Rebuffer(0), 1) If sam 0 Then MsgBox ( 寫入數(shù)據(jù)錯誤一，請檢查USB驅(qū)動是否加載 ！)End If End if‘VII導聯(lián) 轉(zhuǎn)到VIII導聯(lián)Rebuffer(1) = 10sam = WritePort1(Rebuffer(1), 1)If sam = 0 Then Rebuffer(1) = 5 sam = WritePort1(Rebuffer(1), 1) If sam 0 Then MsgBox ( 寫入數(shù)據(jù)錯誤三，請檢查USB驅(qū)動是否加載 ！) End IfEnd if‘VIII導聯(lián) 轉(zhuǎn)到VI導聯(lián)Rebuffer(1) = 10 sam = WritePort1(Rebuffer(1), 1) If sam = 0 Then Rebuffer(1) = 0 sam = WritePort1(Rebuffer(1), 1) If sam 0 Then MsgBox ( 寫入數(shù)據(jù)錯誤六，請檢查USB驅(qū)動是否加載 ！)End If End if附錄6 軟件及USB驅(qū)動安裝軟件平臺實驗箱應用軟件應用于32位win9X或Win2000或WinXP平臺。推薦顯示器屏幕分辨率設置為1024*768，計算機具備USB接口。軟件安裝實驗箱應用軟件已全部刻入光盤，首先將光盤裝入計算機光驅(qū)，打開光盤“install_jiaoxue”子目錄，雙擊Setup安裝程序，然后一切如一般通用軟件的安裝方法一樣自動運行程序安裝，只要按照安裝程序的提示操作，直到屏幕給出“軟件已安裝成功”的提示為止，這就表明實驗箱應用軟件已成功地安裝在計算機的硬盤內(nèi)，同時計算機桌面上出現(xiàn)快捷符號。USB驅(qū)動安裝 方法一：在實驗箱應用軟件已成功安裝的情況下，不要連接USB連接線，雙擊快捷符號，運行實驗箱應用軟件，點擊菜單“附錄(amp。F)”下的子菜單“USB驅(qū)動安裝(amp。Q)”，點擊“install”按鈕，在USB驅(qū)動安裝成功后，點擊“X”，關閉USB驅(qū)動安裝。插好USB連接線，此時軟件的一切安裝工作完成（如果實驗箱的電源連接好，USB指示燈點亮）。如果計算機的操作系統(tǒng)是win9X，在USB驅(qū)動安裝成功后，計算機要重新啟動。方法二：在實驗箱應用軟件已成功安裝的情況下，不要連接USB連接線，打開光盤“install_jiaoxue\驅(qū)動程序\D12_USB驅(qū)動安裝補丁”子目錄，點擊“install”按鈕，在USB驅(qū)動安裝成功后，點擊“X”，關閉USB驅(qū)動安裝。插好USB連接線，此時軟件的一切安裝工作完成（如果實驗箱的電源連接好，USB指示燈點亮）。如果計算機的操作系統(tǒng)是win9X，在USB驅(qū)動安裝成功后，計算機要重新啟動。59 / 59