obd控制協(xié)議程序

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

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

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

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

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

6、f (ReceiveArr(i) < 16) ThenreceiveData = receiveData &"0"+ Hex(ReceiveArr(i) 小于16，前面加0ElsereceiveData = receiveData & Hex(ReceiveArr(i) 加空格顯示End IfNext iEnd IfEnd Sub（4）判斷緩存區(qū)數(shù)據(jù)正確性代碼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 說明數(shù)據(jù)有錯誤，重新讀入DoEvents 防止死循環(huán)GoTo rLoop（5）十六進制轉十進制代碼由于儀器發(fā)送和讀取的都是16進制代碼，因此在讀入后需要進行格式轉換才能供數(shù)據(jù)處理使用。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）延時控制代碼在控制中，為了給儀器接收控制命令后有相應的數(shù)據(jù)準備時間，故設置了系統(tǒng)延時程序。Private Sub DelaySet(Lapse As Single) 延時程序，以秒為單位Oldtimer = TimerDoD