《obd控制协议程序.doc》由会员分享，可在线阅读，更多相关《obd控制协议程序.doc（5页珍藏版）》请在三一文库上搜索。
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 & 已打开！ 提示打开的端口号ElseLabel1.Caption
2、= OBD端口COM & Index + 1 & 无法打开！ 若所选择端口无法打开则提示（2） 仪器控制功能的实现本次设计中，程序通过以下命令，可实现相应的控制功能：outnum(1) = 控制代码 将相应控制命令以字符串赋值给outmum()数组MSComm1.Output = outnum&0x0d 对仪器发送控制命令MODE03读取故障码MODE04清除故障码实现各种功能的控制代码如下：outnum(1) = 0101 用MODE01命令0101读取故障码数量，如果返回410181076504，则（81）H=129，共有129-128个故障码outnum(1) = 0105 用MODE0
3、1命令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读取故障码数量ou
4、tnum(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 = 0ReceiveArr
5、 = 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 iEnd IfEnd Sub（4）判断缓存区数据正确性代码On Error Resume Next 程序容错设计outstring(0) = &H03
6、 读取命令格式r: MSComm1.Output = outstring 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（
7、H） Hv = Left（Right（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 = TimerDoDoEventsTimeDiff = Timer - OldtimerIf TimeDiff Lapse Then Exit DoLoopEnd Sub