1、系統部分功能程序的實現（1）端口控制的實現 當打開檢測界面時，上位機端口默認COM1打開，使用者需選擇相應的端口，具體執行代碼如下：If MSComm1.PortOpen Then 先關閉原打開的端口，以便重新打開新端口MSComm1.PortOpen = FalseEnd IfMSComm1.CommPort = Index + 1 根據端口索引設置COM號MSComm1.PortOpen = TrueIf MSComm1.PortOpen ThenLabel1.Caption = "OBD端口COM" & Index + 1 & "已打開！&q

2、uot; 提示打開的端口號ElseLabel1.Caption = "OBD端口COM" & Index + 1 & "無法打開！" 若所選擇端口無法打開則提示（2） 儀器控制功能的實現本次設計中，程序通過以下命令，可實現相應的控制功能：outnum(1) = "控制代碼" '將相應控制命令以字符串賦值給outmum()數組MSComm1.Output = outnum&0x0d 對儀器發送控制命令MODE03讀取故障碼MODE04清除故障碼實現各種功能的控制代碼如下：outnum(1) = "

3、;0101" 用MODE01命令0101讀取故障碼數量，如果返回410181076504，則（81）H=129，共有129-128個故障碼outnum(1) = "0105" 用MODE01命令0105讀取發動機水溫，返回如果41057B，7B表示水溫123D，水溫是123-40=80度outnum(1) = "010C" 用MODE01命令010C讀取發動機轉速，如410C1AF8，1AF8=6904，轉速=6904/4=1726rpmoutnum(1) = "03" 用MODE03命令03讀取故障碼outnum(1) =

4、 "04" 用MODE04命令04清除故障碼outnum(1) = "0101" 用MODE01命令0101讀取故障碼數量outnum(1) = "0101" 用MODE01命令0101讀取故障碼數量outnum(1) = "0101" 用MODE01命令0101讀取故障碼數量outnum(1) = "0101" 用MODE01命令0101讀取故障碼數量（3）端口數據接收功能的實現當向儀器端口發送相應的控制命令后，可以用下面的子程序實現對儀器響應的接收。Private Sub Receive()

5、 數據接收子程序Dim receivecount As IntegerDim Counter As Integer 接收數據個數計數器Dim i As Integer 循環變量If (MSComm1.InBufferCount > 0) ThenCounter = MSComm1.InBufferCount 讀取接收數據個數receiveData = "" 清緩沖i = 0ReceiveArr = ""ReceiveArr = MSComm1.Input 數據放入數組For i = 0 To (Counter - 1) Step 1 數據格式處理I

6、f (ReceiveArr(i) < 16) ThenreceiveData = receiveData &"0"+ Hex(ReceiveArr(i) 小于16，前面加0ElsereceiveData = receiveData & Hex(ReceiveArr(i) 加空格顯示End IfNext iEnd IfEnd Sub（4）判斷緩存區數據正確性代碼On Error Resume Next 程序容錯設計outstring(0) = "&H03" 讀取命令格式r: MSComm1.Output = outstring

7、 Call DelaySet(0.1) Call ReceiveDo While Left(receiveData, 2) <> "06" 如果左邊2位值不是06 說明數據有錯誤，重新讀入DoEvents 防止死循環GoTo rLoop（5）十六進制轉十進制代碼由于儀器發送和讀取的都是16進制代碼，因此在讀入后需要進行格式轉換才能供數據處理使用。Public Function CHex（H） As Double 十六進制轉換十進制換算公式 Dim Hv, Dv, d, m H = UCase（H） For m = 1 To Len（H） Hv = Left（Ri

8、ght（H, m）, 1） Select Case Hv Case "A": Dv = 10 Case "B": Dv = 11 Case "C": Dv = 12 Case "D": Dv = 13 Case "E": Dv = 14 Case "F": Dv = 15 Case Else: Dv = Hv End Select d = d + （Dv * （16 （m - 1）NextCHex = dEnd Function（6）延時控制代碼在控制中，為了給儀器接收控制命令后有相應的數據準備時間，故設置了系統延時程序。Private Sub DelaySet(Lapse As Single) 延時程序，以秒為單位Oldtimer = TimerDoD