下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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清除故障码1 / 5实现各种功能的控制代码如下:outnum(1) = 0101 用MODE01命令0101读取故障码数量,如果返回410181076504,则(81)H=129,共有129-128个故障码outnum(1) = 0105 用
3、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读取故障
4、码数量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 = 0Recei
5、veArr = 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) =
6、 &H03 读取命令格式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
7、 Len(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 = TimerDo
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- kpmg -2024年资产管理和私募股权展望 -回顾当前香港的行业形势并展望来年市场前景
- 化学线上直播课堂情况调查
- 脚手架安全措施
- 高考生物一轮复习高考题分类汇编 第2单元 细胞代谢 专题6 光合作用(必修1)-人教版高三必修1生物试题
- 2024年中考第三次模拟考试-道德与法治(山西卷)(考试版A4)
- 高考物理一轮复习 分层限时跟踪练5 力的合成与分解-人教版高三物理试题
- 铁路护路巡防服务投标方案(技术方案)
- 门诊护士长岗位工作职责
- 2024届湖南省常德市高三下学期3月模拟考试思品试卷
- 2024年人教版七年级英语下册Unit 5复习题及答案
- 加气站风险分级管控成套资料
- 【高中语文】《念奴娇+赤壁怀古》说课课件+高一语文必修上册统编版
- 人机交互软件工程方法19级学习通课后章节答案期末考试题库2023年
- 中考议论文专题复习公开课一等奖市优质课赛课获奖课件
- 农业政策学PPT完整全套教学课件
- 建筑工程材料取样送检一览表
- 【员工关系管理研究国内外文献综述2800字】
- 2023年火电电力职业技能鉴定考试-脱硝上岗培训考试题库(含答案)
- 【初中语文】名著导读《儒林外史》课件(共62张ppt)+统编版语文九年级下册
- 高中化学竞赛试题精选及答案
- 里程表算法仪表集合
评论
0/150
提交评论