- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
obd控制协议程序
系统部分功能程序的实现(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 = "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" ’用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 = 0ReceiveArr = ""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" ’读取命令格式r: MSComm1.Output = outstringCall DelaySet(0.1)Call ReceiveDo While Left(receiveData, 2) <> "06" ’如果左边2位值不是06 说明数据有错误,重新读入DoEvents ’防止死循环GoTo rLoop(5)十六进制转十进制代码由于仪器发送和读取的都是16进制代码,因此在读入后需要进行格式转换才能供数据处理使用。Pu
1亿VIP精品文档
相关文档
最近下载
- 三副ECDIS评估题集.doc
- 风险投资与互联网企业成长关系探析——以拼多多为例.docx VIP
- 推进人工智能行业公共服务平台建设方案.docx
- 中国人工智能系列白皮书——大模型技术-2023版-121页.doc VIP
- 舞蹈与幼儿舞蹈创编教学全套课件高职国规 学前教育专业舞蹈与幼儿舞蹈创编 第十一章 幼儿舞蹈基本创编技法.pptx
- 模塑石墨聚苯板薄抹灰外墙外保温系统性能指标体系.doc
- 贷款新规下《银行授信尽职调查》.ppt
- 二十四节气之雨水介绍PPT.pptx
- 2024年江苏省徐州市文化广电和旅游局下属事业单位招聘5人历年高频考题难、易错点模拟试题(共500题)附带答案详解.docx
- 新版外加剂试验作业指导书.doc VIP
文档评论(0)