线路检测系统.docVIP

线路检测系统 简介 这是作者在机械制造厂时无心制作的一个小系统，还在实验阶段就离职了，呵呵~~~~~~所以就没继续下去。因为在实验阶段所以就少不了仿真，这里将会教你如何通过虚拟串口驱动在一台电脑就能够实现VB6.0与Proteus 7来模拟单片机通过RS232串口与VB的通讯。 开发背景 在工业控制上我们会经常用到很多线路（如：单芯线、二芯线及多芯线），这些线路中有的是现成品，有的则需要我们根据控制要求进行设计并制作。有时也会根据现有线路做出跟多类似的线路，在制作的过程中我们不得不把现有线路进行拆分才知道线路两端的连接情况或者用万用表对两端针头一个一个地检测，这样既费时又容易出错。在我们制作线路时未免会出现人为的错误，比如在焊接时容易出现虚焊、漏焊、焊锡过多而造成两线路短接、线头处理不当造成的短接等都会造成意想不到的事故，给操作人员的生命安全带来威胁、给公司财产带来损失、对社会造成不良影响。为了减少我们在制作线路时的一些繁琐步骤及降低人为的错误，避免危害事故的发生；我们特此制作了“线路检测系统”。 主要功能 1) 线路两端的连接方式。每种线路类型均提供公头和母头两个接口以适应不同的接口线路的检测，把线路连端接对应接口上（注：监测器分输入端和输出端，要检测的线路两端不可同时接到输入端或者输出端；必须一端接到输入端，另一端接到输出端），按“检测”按钮开始检测。检测器上的显示器开始从输入端接头的一号线对应另一端的那些线号开始显示直到检测完成；可以按“重复显示”按钮进行重复显示线路的检测结果。 2) 上位机进行显示、分析、保存结果。本系统可以通过232串口与上位机进行连接，在上位机上打开“线路检测”软件；同时确定上位机与检测器连接好，这里软件部分默认的串口连接端口为“端口1”，用户可以在打开软件后单击“端口选择”按钮对端口进行选择，使其与实际连接的接口相对应，这样就可以在上位机的软件上进行分析了。分析得到的结果还可以以work文档或txt文档进行保存。可以在软件下方进行某个线号进行查询了；另一端与其对应的线号 。 上微机软件开发 打开已经安装好了的VB6.0 软件，如下图： 打开软件后会出现如图： 单击此处 单击此处 选择“标准 EXE”——单击“打开”如下， 我们就可在此进行软件的布局了！ 我们就可在此进行软件的布局了！ 公共对话框和Mscomm 控件的添加。进行串口通讯我们用到 Mscomm 控件，对内容的保存用到公共对话框。 2单击1右 2单击 1右击空白处 或者单击“工程”——“部件” 2单击1选择 2单击 1选择 出现如图 出现此两图标 出现此两图标 窗体图标的改变。我们可以把窗体图标改为我们想要的效果，进行如下进行改变 选择窗体并对其属性进行设置 2选择相应图标，单击“打开 2选择相应图标，单击“打开” 1单击 图标已改变 图标已改变 进行软件界面设置。最终结果如下： 代码的编写： 双击窗体，对窗体进行初始化。 Private Sub Form_Load() 初始化窗口 MSComm1.CommPort = 1 设置通信端口号(为COM1) MSComm1.Settings = 9600,n,8,1 设置串口1参数 MSComm1.InputMode = 0 接收文本型数据 MSComm1.PortOpen = True 打开通信端口 fx.Enabled = False “分析”按钮不可用 qd.Enabled = False 线号查询的“确定”按钮不可用 qcjg.Enabled = False “清除结果”按钮不可用 Text5.Enabled = False 线号查询不可用 Text4.Enabled = False End Sub “设置端口”按钮： Private Sub Comsz_Click() 端口属性设置 fx.Enabled = False qd.Enabled = False jc.Enab