线路检测系统

线路检测系统线路检测系统 简介简介 这是作者在机械制造厂时无心制作的一个小系统 还在实验阶段就离职了 呵呵 所以就没继续下去 因为在实验阶段所以就少不了仿真 这里将会教你如何通过虚拟串口 驱动在一台电脑就能够实现 VB6 0 与 Proteus 7 来模拟单片机通过 RS232 串口与 VB 的通讯 开发背景开发背景 在工业控制上我们会经常用到很多线路 如 单芯线 二芯线及多芯线 这些线路中 有的是现成品 有的则需要我们根据控制要求进行设计并制作 有时也会根据现有线路做 出跟多类似的线路 在制作的过程中我们不得不把现有线路进行拆分才知道线路两端的连 接情况或者用万用表对两端针头一个一个地检测 这样既费时又容易出错 在我们制作线 路时未免会出现人为的错误 比如在焊接时容易出现虚焊 漏焊 焊锡过多而造成两线路 短接 线头处理不当造成的短接等都会造成意想不到的事故 给操作人员的生命安全带来 威胁 给公司财产带来损失 对社会造成不良影响 为了减少我们在制作线路时的一些繁 琐步骤及降低人为的错误 避免危害事故的发生 我们特此制作了 线路检测系统 主要功能主要功能 1 线路两端的连接方式 每种线路类型均提供公头和母头两个接口以适应不同的接口 线路的检测 把线路连端接对应接口上 注 监测器分输入端和输出端 要检测的线路两 端不可同时接到输入端或者输出端 必须一端接到输入端 另一端接到输出端 按 检测 按钮开始检测 检测器上的显示器开始从输入端接头的一号线对应另一端的那些线号开始 显示直到检测完成 可以按 重复显示 按钮进行重复显示线路的检测结果 2 上位机进行显示 分析 保存结果 本系统可以通过 232 串口与上位机进行连接 在上位机上打开 线路检测 软件 同时确定上位机与检测器连接好 这里软件部分默认 的串口连接端口为 端口 1 用户可以在打开软件后单击 端口选择 按钮对端口进行选 择 使其与实际连接的接口相对应 这样就可以在上位机的软件上进行分析了 分析得到 的结果还可以以 work 文档或 txt 文档进行保存 可以在软件下方进行某个线号进行查询了 另一端与其对应的线号 上微机软件开发上微机软件开发 打开已经安装好了的 VB6 0 软件 如下图 打开软件后会出现如图 选择 标准 EXE 单击 打开 如下 我们就可在此进行 软件的布局了 单击此处 公共对话框和 Mscomm 控件的添加 进行串口通讯我们用到 Mscomm 控件 对内容的保 存用到公共对话框 或者单击 工程 部件 1 右击空白处 2 单击 出现如图 窗体图标的改变 我们可以把窗体图标改为我们想要的效果 进行如下进行改变 选择窗体并对其属性进行设置 1 选择 2 单击 出现此两图标 1 单击 2 选择相应图标 单击 打开 进行软件界面设置 最终结果如下 代码的编写 代码的编写 双击窗体 对窗体进行初始化 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 Enabled False qcjg Enabled False save Enabled False Text2 Enabled False Comsz Enabled False Text5 Enabled False Text4 Enabled False Frame1 Visible True MSComm1 PortOpen False End Sub 设置完毕单击设置端口面板的 确定 按钮 确定端口的设置 Private Sub Command2 Click 端口设置完毕 确定 fx Enabled True qd Enabled True jc Enabled True qcjg Enabled True save Enabled True Text2 Enabled True Comsz Enabled True Text5 Enabled True Text4 Enabled True MSComm1 CommPort Val Combo1 Text 端口号的设置 Dim m As Variant m Combo2 Text Combo3 Text Combo4 Text Combo5 Text MSComm1 Settings m 端口参数设置 MSComm1 PortOpen True 打开端口 Frame1 Visible False 关闭端口设置界面 End Sub 检测 按钮 Private Sub jc Click 检测并向下位机发送字符 1 作为下微机向上微机发送信息的命令符 If jc Caption 检测 Then jc Caption 显示结果 按钮由 检测 变为 显示结 果 fx Enabled False qcjg Enabled False save Enabled False qd Enabled False Text4 Enabled False Text5 Enabled False MSComm1 PortOpen True MSComm1 Output Trim 1 往输出口送字符 1 向下微机发送 Else jc Caption 检测 如果按钮为 显示结果 则变为 检测 fx Enabled True qcjg Enabled True save Enabled True qd Enabled True Text4 Enabled True Text5 Enabled True End If Dim buf buf Trim MSComm1 Input 将缓冲区内的数据读入 buf 变量 中 If Len buf 0 Then 判断缓冲区内是否存在数据 Text1 Text Text1 Text Chr 13 Chr 10 buf 回车换行 End If If Len buf 0 And jc Caption 检测 Then 判断缓冲区内是否存在数据 pp MsgBox 无结果 请检查线路是否接好或其它原因 16 End If End Sub 清除结果 按钮 Private Sub qcjg Click 清除结果按钮 Text2 Text Text1 Text fx Enabled False qcjg Enabled False save Enabled False qd Enabled False Text4 Enabled False Text5 Enabled False End Sub 分析 按钮 Private Sub fx Click 分析 Longs 调用分析函数 fx Enabled False End Sub 保存 按钮 Private Sub save Click 保存结果 If Text2 Text Then m MsgBox 请先分析结果 16 Exit Sub End If CommonDialog1 ShowSave 调用公共对话框的保存 If CommonDialog1 FileName Then 读取 Open CommonDialog1 FileName For Output As 1 Print 1 Text2 Text Close 1 End If End Sub 线号查询的 确定 按钮 Private Sub qd Click 确定 Zxh 调用查询函数 End Sub 退出 按钮 Private Sub tc Click 退出系统 MSComm1 PortOpen False 关闭通信口 Unload Me End Sub 检测函数 Public Sub longs 检测函数 检测字符数组长度 并输出分析检测结 果 Dim i As Variant Dim j As Variant Dim n As Variant Dim k As Variant Dim y As Variant Dim c As Variant Dim a As String Dim b As Variant Dim X As Integer a Text1 Text b Split a c Len Trim a X c 2 3 i 0 n 0 Do If b i b i 2 Then Do i i 2 n n 2 Loop Until b i b i 2 Do While n 0 y y b i n 1 n n 2 Loop Text2 Text Text2 Text b i 号线 y 号线 End If Text2 Text Text2 Text b i 号线 b i 1 号线 i i 2 Loop Until i X Do While i X Text2 Text Text2 Text b i 号线 b i 1 号线 vbCrLf vbCrlf 为换行函数 i i 2 Loop End Sub 线号查询函数 Public Sub zxh 单根线检测 检测另一头与之对应的所有线 号 Dim c As Variant Dim a As String Dim b As Variant Dim X As Variant Dim i As Variant If Text1 Text Then m MsgBox 请先检测信息并显示 16 Exit Sub End If a Text1 Text b Split a c Len Trim a X c 2 3 i 0 For i 0 To X Step 2 Do While i X If Val Text4 Text Val b i Then Text5 Text Text5 Text b i 1 End If i i 2 Next Loop End Sub Proteus 7 电路原理图设计电路原理图设计 项目的建立 1 2 编辑界面 单击此处 选 择要放置的元 件 原理图 封装图 元件详细信息 1 选择相应元 件 2 在空白处单击 放置元件 最终结果 双击下载相应的 十六进制文件 先来个效果图吧 Proteus 7 电路原理图 按如图进行电路设计 1 输入部分 输入部分由三块 4514 组成 2 输出部分 输出部分由三块 74150 组成 3 通讯部分 单击此处进 行仿真 单击此按钮进 行 LCD 显示 LCD 显示 单击仿真后 LCD 出现欢迎界面 用来代替进行 仿 真 双击 COMPIM 上左图 设置参数如下 双击此元件 设置端口参数 此为输入部分 其中 数字 1 2 3 代表线号 打开仿真 打开上微机软件如图 输出部分 线号代表与输入 对应 如 1 表示与输入 1 号线连接 单击 再次单 击 单击 1 在此如入要查询 的线号 如 1 2 单击 Keil 的运用的运用 建立工程 新建程序文档 保存文档 单击 保存 可以 保存结果 对其文件名进行修改 并以 c 为后缀作为 c 文件保存 程序编辑并保存 把程序文档添加到项目中 选择相应的文件进行添加 单