电控发动机实训仿真系统设计.doc

江苏技术师范学院毕业设计说明书（论文）电控发动机实训仿真系统设计摘 要：由于汽车发动机结构复杂，发动机实验台架价格昂贵，日常维护周期长、投入资金大，所以在汽车维修实践教学中存在不少弊端。因此，如何实现以较小的资金投入提高实践教学的质量，让学生在有限的时间内更好地掌握电控发动机的整体构造和故障排除的基本思路，成为当今汽车维修实践教学环节中的首要任务。本设计通过理论分析和实验验证的方法, 运用电控发动机标准数据流、电控发动机故障诊断理论及Visual Basic 编程语言的知识, 分析了汽车电控发动机故障现象与故障原因之间的关联，设计出了一款具有考核功能的电控发动机实训仿真系统。该系统可以在计算机上仿真电控发动机在不同故障情况下的故障现象和数据流，从而有效节约汽车教学环节中的人力、物力和财力。关键词：实训仿真；电控发动机；故障诊断；Visual BasicPractical Training Simulation Design of Electronic Control Engine Abstract: There are many disadvantages during automobile maintenance practice teaching process due to the complicated structure of automobile engine, expensive engine test bench, long period of daily maintenance and large investment funds. Therefore, how to improve teaching quality with smaller capital investment and help the students grasp the overall structure of the electronic control engine and form the basic way of fault exclusion have become the primary task of automotive teaching.This paper combines the theoretical analysis and experimental validation, uses standard data flow of engine and fault diagnosis theory and the Visual Basic programming language knowledge, analyzes the relation ship between the phenomenon and the cause of automobile electronic control engine, designs a set of practical training simulation with the assessment system of electronic control engine fault diagnosis, This system can simulate different failure phenomena and the data flow in different fault situations thus to save human material and financial resources during teaching.Key words: Practical Training Simulation; Electronic Control Engine; Fault Diagnosis; Visual Basic- II -目 录前 言1第1章 绪论21.1 课题设计的目的、意义21. 本课题研究的目的22. 本课题研究的意义21.2 课题的主要内容21.2.1 三维实体建模21.2.2 利用VB语言编程设计电控发动机实训仿真系统21.3 课题设计的方法31.3.1 系统整体方案的设计31.3.2 系统软、硬件配置31.3.3 窗体设计31.3.4 程序设计3第2章 汽车发动机常见故障及诊断方法52.1 奥迪A4轿车发动机资料52.2 奥迪A4轿车发动机常见故障52.3 奥迪A4轿车发动机常见故障原因62.3.1 故障一：启动困难或无法启动62.3.2 故障二：怠速不稳62.3.3 故障三：加速无力62.3.4 故障四：动力不足62.3.5 故障五：排放异常72.3.6 故障六：油耗过高7第3章 电控发动机实训仿真设计程序设计及使用说明83.1 仿真系统各窗体展示83.2 仿真系统各主要功能实现方法133.2.1 点火开关控制133.2.2 万用表档位选择控制153.2.3 万用表表针显示与提示框的控制193.2.4 数据库访问、添加与修改功能213.2.5 V.A.G1552的仿真233.2.6 评分模块的实现方法303.2.7 数据模拟及实现方法313.3 软件使用方法介绍34第4章总结38参考文献39致 谢40附 录411. 空气流量传感器试验411. 1 空气流量信号对小时油耗和混合气浓度的影响411. 2 空气流量信号对比油耗的影响411. 3 空气流量信号对CO 排放的影响421. 4 空气流量信号对HC排放的影响421. 5 空气流量信号对启动性能及怠速的影响432. 节气门位置传感器试验442. 1 怠速信号对发动机性能的影响442. 2 全负荷信号对发动机性能的影响443. 爆震传感器试验463. 1 爆震信号对外特性的影响463. 2 爆震信号对发动机负荷特性的影响474. 冷却液温度传感器试验495. 无故障情况下发动机参数模拟值50- IV -前 言随着汽车电子化和集成化的发展,汽车发动机电控技术在给发动机带来控制精确、系统稳定、燃油消耗低和排放污染少等优点的同时,也增加了发动机故障诊断的难度。在对传统发动机进行故障诊断时,维修人员仅凭自己的经验,通过问、看、听、嗅、摸和试等手段便可确定故障部位,而电控发动机的故障诊断需使用专用诊断仪器设备对电控系统工作参数进行定量的测试和分析,这就对汽车维修人员的素质提出了更高的要求。近几年来，随着我国汽车工业的飞速发展以及高速公路、高等级公路的大规模建设，车辆密集化和车辆高速化对车辆的安全性能提出了更高要求。同时国家不断加大职业教育的投入，汽车维修技师作为“技能紧缺型”人才，对汽车维修专业学生的技能培训纷纷成为各职业学校的热点项目，在这样的趋势下，很多教学教具设备研发企业纷纷加大投入力度，努力开发出适应职业学校需要的教学实训设备。但这些设备的价格比较昂贵，使学校的负担加大，且这些设备使用时也只能是几个学生一起使用，使资源的使用效率大大降低。还有就是这些教学教具设备研发企业大多都是“半路出家”，由于对学校的需求了解不足，现有的电控发动机试验台架不能真正实现发动机在各种工作状态下的参数稳定。因此设计电控发动机实训仿真系统代替电控发动机试验台架，不仅可以节约资源，使得学生能在计算机上进行自我学习考核，而且对于教师提高教学效率也有重要的作用12。本设计是利用Visual Basic6.0程序语言设计出汽车电控发动机系统的仿真软件，通过计算机模拟实现正常工作、人工故障设置、故障检测诊断和故障诊断评分等功能。本软件界面友好，对于各职业学校教学具有很好的辅助作用，适用于学生对电控发动机故障诊断的学习，自行模拟电控发动机故障诊断，提高教师的教学效率。由于本人水平有限，很多问题考虑欠全面，有些技术性的问题还须进一步完善。恳请使用者能够提出宝贵的意见34。第1章 绪论1.1 课题设计的目的、意义1. 本课题研究的目的发动机台架实验测量数据具有随机性，无法真实稳定地反映出发动机的工作情况，对发动机的实时动态检测带来不便。利用计算机仿真技术可模拟电控发动机的工作过程，实现电控发动机的数据仿真，并能实现动态参数检测、静态物理量测量、人工故障设置等，开发本系统是为了在实践教学中更好的掌握电控发动机的控制原理和故障诊断理论。2. 本课题研究的意义(1) 可以节约大量的仪器设备。原本需要价格昂贵的发动机诊断仪器，使用仿真设计后则可省去这些仪器设备的投入。(2) 提高数据的读取可靠性。由于软件程序具有封装性和独立性，不受外界环境的信息干扰，不像发动机台架由于各种环境因素导致数据不稳定。(3) 提高数据的读取速度。软件仿真可通过数据模拟的方式，教学者可通过操作界面点击，连接读取信号源，无需到真车上寻找，从既而大大减少教学时间并提高数据的读取效率。(4) 提高教学过程的真实度和可操控性。教学者通过投影界面面向广大学习者进行可视化教学，学习过程直观可见，提高了学习过程的真实度易于学习者接受和理解。1.2 课题的主要内容 1.2.1 三维实体建模1. 研究如何利用3D-MAX软件进行电控发动机实训仿真系统各部件的结构三维实体建模；2. 研究如何将实体模型导入VB环境中；3. 研究如何将实体模型在VB环境中进行动画演示。1.2.2 利用VB语言编程设计电控发动机实训仿真系统1. 利用VB语言编程，将电控发动机系统动作执行、检测工具以动画或模型生动、详尽地展示出来；2. 利用VB语言编程实现电控发动机系统正常工作、人工故障设置、故障检测诊断和故障诊断评分等功能模块的设计。1.3 课题设计的方法本程序有四个主要组成部分，分别为正常模式、故障模拟模式、成绩查询和考核模式。1.3.1 系统整体方案的设计整个设计系统以计算机软件技术、电控发动机控制策略为设计核心，各个控制系统的信号采集，通过程序的数学建模运算和传输，实现电控发动机的模拟仿真，系统可以模拟发动机动态运行参数，并进行数据外观输出。1.3.2 系统软、硬件配置计算机软件以Visual Basic 6.0程序设计语言、3Dsmax绘图软件为主，实验硬件配置包括奥迪A4、VGA1552、车用万用表等。1.3.3 窗体设计包括主界面窗体、考核界面、故障设置界面、成绩管理界面。1.3.4 程序设计利用3Dsmax三维建模软件绘制电控发动机外观模型和各检测设备模型，并以动画格式输出，利用Visual Basic 6.0程序设计语言导入模拟动态发动机，实现静态参数测量、主要仪器设备的使用、故障检测与维修、实训考核等功能。1. 电控发动机总体认知。本实训把原发动机直接展示在电脑屏幕上可以对学生进行发动机电控方面的构造教学，使学生了解各种传感器和控制部件的安装位置、作用及工作原理，从而进一步加深学生对电控发动机的原理认知。2. 软件模拟利用诊断仪读取发动各种传感器的故障代码。故障诊断仪器的的使用是学生学习的一方面，在实训软件中有故障诊断接口，可以很方便地与故障仪对接，从而读取发动机的各个故障码和数据流，使学生学会分析发动机的工况。3. 电动机电子控制系统、燃油供给系统、点火系统的故障诊断。在发动机实训软件中有故障设置窗口，在实践教学上利用故障窗口来设置实训系统的故障。学生可以通过故障诊断仪来获取故障信息，利用万用表来检测元件和线路的好坏，从而学会电控发动机故障的诊断和检测程序。第2章 汽车发动机常见故障及诊断方法目前汽车普遍使用电控发动机，电控发动机系统常见故障有：无法起动、起动困难、怠速不稳、工作不稳、加速无力、动力不足、排放异常、油耗过高、发动机回火等。常见故障原因有：冷却液温度传感器G62故障、霍尔传感器G28无信号或信号不正确、进气温度传感器、曲轴位置传感器故障、燃油压力调节器故障、喷油器线路故障或喷油器堵塞、供气系统不畅、点火系统故障、节气门控制组件故障、发动机控制单元J220故障或编码不正确等。本章以奥迪A4轿车发动机为例，详细介绍诱发故障症状的故障原因和检查排除故障的步骤5。2.1 奥迪A4轿车发动机资料发动机型: AWL型排量：2.0L压缩比：9.5:1最大扭矩：300Nm（1750-3200r/min时）最大功率：160KW（1600r/min 时）发动机管理系统：Motronic M3.8.2燃油：95 RON无铅汽油其它：水冷、直列式、四冲程、六缸、五气门、电控多点燃油喷射汽油机、涡轮增压、缸径冲程=81.0mm86.4mm、两级可变进气歧管长度、可变配气相位。2.2 奥迪A4轿车发动机常见故障故障一：启动困难或无法起动故障二：怠速不稳故障三：加速无力故障四：动力不足故障五：排放异常故障六：油耗过高6 2.3 奥迪A4轿车发动机常见故障原因2.3.1 故障一：启动困难或无法启动故障原因：1.燃油压力低或燃油泵供电系统故障2.喷油器或其线路故障3.冷却液温度传感器G62故障4.节气门控制组件故障5.控制单元J220故障或编码不正确6.发动机转速传感G28故障7.点火系统故障7 2.3.2 故障二：怠速不稳故障原因：1.喷油器或其线路故障2.燃油压力低3.氧传感器G39故障4.节气门控制组件故障 5.点火系统故障82.3.3 故障三：加速无力故障原因：1.节气门控制组件故障2.供气系统故障 3.喷油器或其线路故障4.爆燃传感器G61、G62故障5.点火系统故障92.3.4 故障四：动力不足故障原因：1.霍尔传感器G40无信号或信号不正确2.燃油压力低 3.节气门控制组件故障4.供气系统故障 5.喷油器或其线路故障6.点火系统故障 7.爆燃传感器G61、G62故障102.3.5 故障五：排放异常故障原因：1.冷却液温度传感器G62故障2.供气系统故障 3.氧传感器G39故障 4.霍尔传感器G40无信号或信号不正确5.爆燃传感器G61、G62故障 6.控制单元J220故障或编码不正确11 2.3.6 故障六：油耗过高故障原因：爆燃传感器G61、G62故障供气系统故障 喷油器或其线路故障燃油压力低冷却液温度传感器G62故障氧传感器G39故障霍尔传感器G40无信号或信号不正确12第3章 电控发动机实训仿真设计程序设计及使用说明3.1 仿真系统各窗体展示图3.1 主界面图3.2 考核界面 图3.3 考核界面工具栏功能图3.4 登录子窗口图3.5 故障设置子窗口图3.6 电路图子窗口图3.7 保险丝盒子窗口图3.8 更换组件子窗口图3.9 成绩查询子窗口图3.10 密码修改子窗口图3.11 系统说明子窗口3.2 仿真系统各主要功能实现方法3.2.1 点火开关控制 (a) (b) (c) 图3.10 点火开关位置在窗体Form1中加入一个Image控件组名称为Image2，其中包括3个控件元素；再加入一个Timer控件名称为Timer1。以上控件属性设置见下表。表3-1 控件属性列表控 件属 性属性值Image2（0）Picture图3.10(a)图Image2（1）Picture图3.10(b)图Image2（2）Picture图3.10(c)图Timer2Interval10点火开关原始状态是在OFF档，单击Image2后点火开关拨到ON档，再次单击Image2后开关位置在START档保持一秒后复位到ON档，此时发动机应当处于怠速状态，单击Image2关闭发动机，开关回到OFF档。下面是实现以上功能所需要的编程代码13：Private Sub Image2_Click(Index As Integer) Static i 点火开关控制 i = i + 1Select Case iCase 1Image2(0).Visible = False： Image2(1).Visible = True： Image2(2).Visible = FalseCase 2Timer1.Enabled = True 开关复位Timer2.Interval = 100Dim a As Integera = a + 1 ：Y = aCase 3Image2(0).Visible = True：Image2(1).Visible = False：Image2(2).Visible = FalseTimer2.Enabled = False Dim b As Integer b = b + 1 Y = b Timer2.Interval = 100End SelectIf i = 3 Theni = 0End IfEnd SubPrivate Sub Timer1_Timer()Static X 点火开关控制X = X + 1Image2(0).Visible = False ：Image2(1).Visible = False ：Image2(2).Visible = TrueIf X = 10 ThenX = 0Image2(0).Visible = False ：Image2(1).Visible = True ：Image2(2).Visible = FalseTimer1.Enabled = FalseEnd IfEnd Sub分析程序代码，则程序流程图如下：3.2.2 万用表档位选择控制(a) (b) (c) (d)图3.11 万用表档位位置在窗体Form1中加入一个Image控件组名称为Image4，其中包括4个控件元素；加入两个时间控件Timer7和Timer9；加入一个Label控件组名称为Label12，其中包括4个控件元素。以上控件属性设置见下表。表3-2 控件属性列表控 件属 性属性值Image4(0)Picture图3.11(a)图Borderstyle0Image4(1)Picture图3.11(b)图Borderstyle0Image4(2)Picture图3.11(c)图Borderstyle0Image4(3)Picture图3.11(d)图Borderstyle0Timer7Interval100Timer9Interval100Label12(0)Caption空值Label12(1)Caption空值Label12(2)Caption空值Label12(3)Caption空值万用表开关原始状态是在OFF档，单击Label12(1)后万用表拨到电阻档，单Label12(2)后万用表拨到直流电压档，单击Label12(3)后万用表拨到交流电压档，单击Label12(0)后万用表关闭回到OFF档。下面是实现以上功能所需要的编程代码：Private Sub Label12_Click(Index As Integer)Select Case IndexCase 0万用表关闭Image4(0).Visible = True Image4(1).Visible = FalseImage4(2).Visible = FalseImage4(3).Visible = FalseCase 1 万用表处于电阻档Image4(0).Visible = FalseImage4(1).Visible = TrueImage4(2).Visible = FalseImage4(3).Visible = FalseCase 2 万用表处于直流电压档Image4(0).Visible = FalseImage4(1).Visible = FalseImage4(2).Visible = TrueImage4(3).Visible = FalseCase 3 万用表处于交流电压档Image4(0).Visible = FalseImage4(1).Visible = FalseImage4(2).Visible = FalseImage4(3).Visible = TrueEnd SelectEnd Sub分析程序代码，则程序流程图如下：Private Sub Timer7_Timer() Dim f As Integer: Dim i As Integer: Dim j As Integer: Dim k As Integer If Image4(0).Visible = True Then f = 1 If Image4(1).Visible = True Then i = 1 If Image4(2).Visible = True Then j = 1 If Image4(3).Visible = True Then k = 1 off = f: dianzu = i: zhiya = j: jiaoya = kEnd Sub分析程序代码，则程序流程图如下：off,dianzu,zhiya,jiaoya为Form1中的窗体变量，时间控件Timer7会时时检测万用表档位的变化，并把它们的值记录在窗体变量off,dianzu,zhiya,jiaoya中，这四个值的保存是为后面的万用表表笔显示和不同元器件、不同档位的测量服务的14。Private Sub Timer9_Timer()If Image2(1).Visible = True And Image4(1).Visible = True ThenMsgBox 不允许带电测量元件电阻值！Image4(0).Visible = True: Image4(1).Visible = False Image4(2).Visible = False: Image4(3).Visible = FalseEnd IfEnd Sub这段程序是为了防止万用表在电气元件带电的情况下测量电阻值，以免损坏万用表，这在实际操作中是非常重要的，所以在此列举出来。分析程序代码，则程序流程图如下：3.2.3 万用表表针显示与提示框的控制图3.12 万用表指针显示图图3.13 万用指针显示全图图3.14 提示框显示示例仿真系统中涉及到许多静、动态量的测量，在前文中讲述了万用表档位的控制，在本节中所述的是在万用表换档和测量不同传感器时万用表表笔的显示和提示框显示内容的控制方法，在本段程序中的控制核心是Timer控件，Timer控件具有监控功能，它的Interval属性可以设置它激发间隔的时间。要实现万用表表笔的显示功能则需添加以下控件，在发动机结构图各传感器测量点处加入1个 OptionButton控件数组，其中有11个控件元素，设置其Style属性值为1；然后再添加8个Image控件数组，每组中有两个控件元素，设置其BroderStyle属性值为0,Visible属性为False；最后添加一个Timer控件，Interval属性为100。各表笔的具体位置如图3.13所示。要实现提示框显示内容的控制则需添加以下控件，在Form1窗体中加入一个Label控件，其Name属性为ts，提示框的显示内容如图3.14所示。下面是实现万用表表笔显示和提示窗体显示控制的部分代码：Private Sub Option1_Click(Index As Integer) 万用表表笔显示控制段 Select Case Index Case 0 Image7(0).Visible = True: Image7(1).Visible = True: Image3(0).Visible = False Image3(1).Visible = False: Image17(0).Visible = False: Image17(1).Visible = False Image8(0).Visible = False: Image8(1).Visible = False: Image13(0).Visible = False Image13(1).Visible = False: Image10(0).Visible = False: Image10(1).Visible = False Image9(0).Visible = False: Image9(1).Visible = False: Image14(0).Visible = False Image14(1).Visible = False: Image12(0).Visible = False: Image12(1).Visible = False Image16(0).Visible = False: Image16(1).Visible = False: Image15(0).Visible = False Image15(1).Visible = False End SelectEnd Sub上段程序利用SelectCase选择结构，利用Timer6对Option1控件数组进行监控，Select定义的是Option1中控件元素在控件数组中的标识号，当条件满足时程序就会执行对应的程序段继而显示对应的万用表表笔。Private Sub Timer6_Timer( ) 提示框显示内容控制段 Dim i As Integer 提示窗控制For i = 0 To 10 If Option1(i).Value = True Then If dianzu = 1 Then ts.Caption = 测量 & Option1(i).ToolTipText & 电阻值 If zhiya = 1 Then ts.Caption = 测量 & Option1(i).ToolTipText & 直流电压值 If jiaoya = 1 Then ts.Caption = 测量 & Option1(i).ToolTipText & 交流电压值 If off = 1 Then ts.Caption = 目前无测量项目！ End IfNext iEnd Sub上段程序利用FroNext循环结构和IfThen选择结构，利用Timer6的监控功能，监控Optin1中各控件的Value值，然后根据万用表档位的位置来显示当前系统具体的测量项目。3.2.4 数据库访问、添加与修改功能图3.13 与数据库相关的窗体以上窗体涉及数据库访问、添加与修改功能，在设计程序时运用了一些Visual Basic访问数据库的简单命令，结合数据库软件Access2003就本软件在设计工程中的一些技术特点做一下介绍。利用Visual Basic对数据库进行操作需要借助控件Data或Adodc，要对数据库进行操作首先要建立数据库，本程序利用Access2003建立数据库文件，数据库建立成功后对其进行dll加密。在数据库中共建立了两个数据表格以便程序访问，一个用于密码管理，一个用于成绩记录、管理。连接数据库有两种方法：一种是绝对地址引用，一种是随机引用，本程序在连接数据库时运用的是随机引用方式，这样即使工程文件在改变了存放地址后，只要保证数据源与工程文件在同一个文件夹下Visual Basic就能准确地锁定它，从而避免数据库连接错误或无法找到数据库的问题。下面是数据访问、添加和修改所设计的程序源码15：Public Function ConnectString( ) As StringConnectString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source _ & = & App.Path & 电控发动机实训仿真.dll;Persist Security Info=FalseEnd Function以上语句是对工程启动时定义数据连接方式时所需的，放在工程模块中定义。Data1.Recordset.AddNew：Data1.Recordset(学号) = xhData1.Recordset(成绩) = Trim(cj)： Data1.Recordset(故障) = GZ1Data1.Recordset(操作时间) = sjData1.Recordset(成绩提交时间) = StatusBar1.Panels.Item(3).TextData1.Recordset.Update以上语句是对数据库进行添加数据所需要的代码，在成绩提交语段中定义。Private Sub Picture1_Click()Adodc1.Recordset.DeleteEnd Sub以上语句是对数据库进行删除操作，在成绩管理语段中定义。3.2.5 V.A.G1552的仿真图3.12 VAG1552外观在窗体Form1中加入一个Frme控件名称为VGA1；加入一个时间控件Timer11，加入一个CommandButton控件组名称为Command1，其中包括10个控件元素；加入五个CommandButton控件，名称分别为C、Q、you、up、down；加入一个RichTextBox控件名称为RT；加入一个TextBox控件名称为JT。以上控件属性设置见下表。表3-3 控件属性列表控件Name属性Command1(0)0Command1(1)1Command1(2)2Command1(3)3Command1(4)4Command1(5)5Command1(6)6Command1(7)7Command1(8)8Command1(9)9V.A.G1552故障诊断操作步骤：1.打开自诊断系统插座的盖板，将故障诊断仪V.A.G1552与自诊断插座相连接，此时屏幕显示：Test of vehicle systema Enter adress word XXHELP车辆系统测试输入地址码 XX帮助2.打开点火开关，或者发动机怠速运转。输入“发动机电子系统“地址码01，按“Q”键确认。屏幕显示：330 907 404 2.0L R4/2V MOTR HS D01Coding 08001WSC XXXXX其中，330 907 404 发动机控制单元零件号2.0L 发动机排量R4/2V 直列式发动机，4缸，每缸2气门MOTR MotronicHS 手动变速器D01 控制单元软件版本Coding 08001 控制单元编码WSC XXXXX 维修站代码按“”键，屏幕显示：Test of vehicle systemsHELPSelect function XX车辆系统测试帮助选择功能 XX3.按“02”键，选定查询故障存储器的内容，并按“Q”键确认，显示器将显示出所存储的故障数目：X Faulta recongnized识别出（X）个故障！4.如果显示器上显示“未识别出故障码”，按“”键，退出 ；如果有一个或多个故障被存储，通过按“”，可将故障代码及内容先后显示出来；5.按“05”键，选择功能“删除故障存储”，并按“Q”键确认，屏幕显示：Test of vehicle systemsFault memory is erased!车辆系统测试故障代码已被清除！6.按“”键，退出“查询故障存储器的内容”功能，重新进入“功能选择界面”；7.按“06”键，选择功能“结束输出”，并按“Q”键确认16。下面是实现以上功能所需要的编程代码：Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 If VGA = 0 Then RT.Text = & HELP & vbCrLf & Test of vehicle systems Enter address word + 0 + X If VGA = 2 Then RT.Text = Test of vehicle stytems HELP & vbCrLf & Select function 0X Case 1 If VGA = 0 Then RT.Text = & HELP & vbCrLf & Test of vehicle systems Enter address word 0 + 1 + Q 01功能 Case 2 If VGA = 2 Then RT.Text = Test of vehicle stytems HELP & vbCrLf & Select function 02 Q 02功能 Case 3 If VGA = 2 Then RT.Text = Test of vehicle stytems HELP & vbCrLf & Select function 03 Q 03功能 End SelectEnd Sub以上语段是通过工程级变量VGA作为层数记录源，既通过询问VGA当前的数值来判别诊断仪运行到那个层面，继而运行选择的数据功能。分析程序代码，则程序流程图如下：Private Sub Q_Click(Index As Integer)Select Case VGA Case 0 VGA = 1 RT.Text = 330 907 404 2.0L R4/2V MOTR HS D01 & vbCrLf & Coding 08001 WSC 00001 Case 2 If RT.Text = Test of vehicle stytems HELP & vbCrLf & Select function 02 Q Then If GZ = OR GZ = 燃油泵保险丝ORIf GZ = 点火线圈供电保险丝 ORGZ = 喷油阀供电保险丝 Then XY = 0 If GZ = 转速传感器 OR GZ = 前氧传感器 OR GZ = 后氧传感器OR GZ = 爆震传感器 OR GZ = 进气歧管压力传感器 OR GZ = 喷油器 Then XY = 1 If GZ = 凸轮轴位置传感器 OR GZ = 节气门位置传感器OR GZ = 水温传感器 OR GZ = 空气流量计Then XY = 2 RT.Text = XY & Faults recognized! End If If RT.Text = Test of vehicle stytems HELP & vbCrLf & Select function 03 Q Then RT.Text = 功能模块未开发 ：jt.Visible = True End If If RT.Text = Test of vehicle stytems HELP & vbCrLf & Select function 05 Q Then RT = Fault memory is erased! 清除故障 jt.Visible = True End If If RT.Text = Test of vehicle stytems HELP & vbCrLf & Select function 06 Q Then RT.Text = & HELP & vbCrLf & Test of vehicle systems Enter address word XX RT.SetFocus VGA = 0 Timer11.Enabled = False jt.Visible = False End If End SelectEnd Sub以上语段是询问VGA的的值，并对其进行赋值后记录到工程中，在VGA=2时判别当前系统存在的故障类型（GZ，工程级故障记录源），根据所设故障计算出故障个数并保存在窗体级变量XY中；判别05、06功能，并做返回。Private Sub you_Click()Select Case VGACase 1 系统进口 RT.Text = Test of vehicle stytems HELP & vbCrLf & Select function XX VGA = 2Case 2 Select Case XY Case 0 无故障按键返回 RT.Text = Test of vehicle stytems HELP & vbCrLf & Select function XX VGA = 2 jt.Visible = False Case 1 有故障查询,故障码为1 If GZ = 转速传感器 Then RT.Text = Sensor G28 circuit roads or short circuit jt.Visible = True VGA = 3 End If If GZ = 前氧传感器 Then RT.Text = of sensors G39 no signal input jt.Visible = True VGA = 3 End IfIf GZ = 后氧传感器 Then RT.Text = of sensors G108 no signal input jt.Visible = True VGA = 3 End If If GZ = 爆震传感器 Then RT.Text = Knock sensor G61 no signal input jt.Visible = True VGA = 3 End If If GZ = 进气歧管压力传感器 Then RT.Text = The gas manifold absolute pressure sensor G71 no signal input VGA = 3 End If If GZ = 喷油器 Then RT.Text = Three-way catalytic bad results jt.Visible = True VGA = 3 End If End Select Case 3 判断程序层数及返回接口 Timer11.Enabled = True If RT.Text = Three-way cat