obd控制协议程序.docx
国军标程序文件页脚内容（1） 端口把握的实现系统局部功能程序的实现当翻开检测界面时，上位机端口默认 COM1 翻开，使用者需选择相应的端口，具体执行代码如下：If MSComm1.PortOpen Then先关闭原翻开的端口，以便重翻开端口MSComm1.PortOpen = False End IfMSComm1 mPort = Index + 1依据端口索引设置 COM 号MSComm1.PortOpen = TrueIf MSComm1.PortOpen ThenLabel1.Caption = “OBD 端口 COM“ & Index + 1 & “已翻开！“提示翻开的端口号ElseLabel1.Caption = “OBD 端口 COM“ & Index + 1 & “无法翻开！“假设所选择端口无法翻开则提示（2） 仪器把握功能的实现本次设计中，程序通过以下命令，可实现相应的把握功能：outnum(1) = “把握代码“”将相应把握命令以字符串赋值给 outmum数组MSComm1.Output = outnum&0x0d对仪器发送把握命令MODE03 读取故障码MODE04 去除故障码实现各种功能的把握代码如下：outnum(1) = “0101“用 MODE01 命令 0101 读取故障码数量， 假设返回 410181076504，则81H=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) = “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数据接收子程序Dim receivecount As IntegerDim Counter As Integer接收数据个数计数器Dim i As Integer循环变量If (MSComm1.InBufferCount > 0) ThenCounter = MSComm1.InBufferCount读取接收数据个数receiveData = “清缓冲i = 0 ReceiveArr = “ReceiveArr = MSComm1.Input数据放入数组For i = 0 To (Counter - 1) Step 1数据格式处理If (ReceiveArr(i) < 16) ThenreceiveData = receiveData &“0“+ Hex(ReceiveArr(i)小于 16，前面加 0ElsereceiveData = receiveData & Hex(ReceiveArr(i)加空格显示End IfNext i End If End Sub（4） 推断缓存区数据正确性代码On Error Resume Next程序容错设计outstring(0) = “&H03“读取命令格式r: MSComm1.Output = outstring Call DelaySet(0.1)Call ReceiveDo While Left(receiveData, 2) <> “06“假设左边 2 位值不是 06 说明数据有错误，重读入DoEvents防止死循环GoTo r Loop（5） 十六进制转十进制代码由于仪器发送和读取的都是 16 进制代码，因此在读入后需要进展格式转换才能供数据处理使用。Public Function CHexH As Double十六进制转换十进制换算公式Dim Hv, Dv, d, m H = UCaseHFor m = 1 To LenHHv = LeftRightH, m, 1 Select Case HvCase “A“:Dv = 10Case “B“:Dv = 11Case “C“:Dv = 12Case “D“:Dv = 13Case “E“:Dv = 14Case “F“:Dv = 15Case Else:Dv = HvEnd Selectd = d + Dv * 16 m - 1Next CHex = dEnd Function（6） 延时把握代码在把握中，为了给仪器接收把握命令后有相应的数据预备时间，故设置了系统延时程序。Private Sub DelaySet(Lapse As Single)延时程序，以秒为单位Oldtimer = TimerDo DoEventsTimeDiff = Timer - OldtimerIf TimeDiff < 0 Then TimeDiff = TimeDiff + 86400 If TimeDiff > Lapse Then Exit DoLoop End Sub
