線路檢測系統(tǒng)(共19頁)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上線路檢測系統(tǒng)簡介 這是作者在機(jī)械制造廠時無心制作的一個小系統(tǒng)，還在實驗階段就離職了，呵呵所以就沒繼續(xù)下去。因為在實驗階段所以就少不了仿真，這里將會教你如何通過虛擬串口驅(qū)動在一臺電腦就能夠?qū)崿F(xiàn)VB6.0與Proteus 7來模擬單片機(jī)通過RS232串口與VB的通訊。開發(fā)背景 在工業(yè)控制上我們會經(jīng)常用到很多線路（如：單芯線、二芯線及多芯線），這些線路中有的是現(xiàn)成品，有的則需要我們根據(jù)控制要求進(jìn)行設(shè)計并制作。有時也會根據(jù)現(xiàn)有線路做出跟多類似的線路，在制作的過程中我們不得不把現(xiàn)有線路進(jìn)行拆分才知道線路兩端的連接情況或者用萬用表對兩端針頭一個一個地檢測，這樣既費時又容易出錯。在

2、我們制作線路時未免會出現(xiàn)人為的錯誤，比如在焊接時容易出現(xiàn)虛焊、漏焊、焊錫過多而造成兩線路短接、線頭處理不當(dāng)造成的短接等都會造成意想不到的事故，給操作人員的生命安全帶來威脅、給公司財產(chǎn)帶來損失、對社會造成不良影響。為了減少我們在制作線路時的一些繁瑣步驟及降低人為的錯誤，避免危害事故的發(fā)生；我們特此制作了“線路檢測系統(tǒng)”。主要功能1) 線路兩端的連接方式。每種線路類型均提供公頭和母頭兩個接口以適應(yīng)不同的接口線路的檢測，把線路連端接對應(yīng)接口上（注：監(jiān)測器分輸入端和輸出端，要檢測的線路兩端不可同時接到輸入端或者輸出端；必須一端接到輸入端，另一端接到輸出端），按“檢測”按鈕開始檢測。檢測器上的顯示器開始

3、從輸入端接頭的一號線對應(yīng)另一端的那些線號開始顯示直到檢測完成；可以按“重復(fù)顯示”按鈕進(jìn)行重復(fù)顯示線路的檢測結(jié)果。 2) 上位機(jī)進(jìn)行顯示、分析、保存結(jié)果。本系統(tǒng)可以通過232串口與上位機(jī)進(jìn)行連接，在上位機(jī)上打開“線路檢測”軟件；同時確定上位機(jī)與檢測器連接好，這里軟件部分默認(rèn)的串口連接端口為“端口1”，用戶可以在打開軟件后單擊“端口選擇”按鈕對端口進(jìn)行選擇，使其與實際連接的接口相對應(yīng)，這樣就可以在上位機(jī)的軟件上進(jìn)行分析了。分析得到的結(jié)果還可以以work文檔或txt文檔進(jìn)行保存?？梢栽谲浖路竭M(jìn)行某個線號進(jìn)行查詢了；另一端與其對應(yīng)的線號 。 上微機(jī)軟件開發(fā)打開已經(jīng)安裝好了的VB6.0 軟件，如下圖：

4、打開軟件后會出現(xiàn)如圖：單擊此處選擇“標(biāo)準(zhǔn) EXE”單擊“打開”如下，我們就可在此進(jìn)行軟件的布局了！公共對話框和Mscomm 控件的添加。進(jìn)行串口通訊我們用到 Mscomm 控件，對內(nèi)容的保存用到公共對話框。2單擊1右擊空白處或者單擊“工程”“部件”2單擊1選擇出現(xiàn)如圖出現(xiàn)此兩圖標(biāo)窗體圖標(biāo)的改變。我們可以把窗體圖標(biāo)改為我們想要的效果，進(jìn)行如下進(jìn)行改變選擇窗體并對其屬性進(jìn)行設(shè)置2選擇相應(yīng)圖標(biāo)，單擊“打開”1單擊圖標(biāo)已改變進(jìn)行軟件界面設(shè)置。最終結(jié)果如下：代碼的編寫：雙擊窗體，對窗體進(jìn)行初始化。Private Sub Form_Load() ' 初始化窗口 MSComm1.CommPort =

5、 1 ' 設(shè)置通信端口號(為COM1) MSComm1.Settings = "9600,n,8,1" ' 設(shè)置串口1參數(shù) MSComm1.InputMode = 0 ' 接收文本型數(shù)據(jù) MSComm1.PortOpen = True ' 打開通信端口 fx.Enabled = False ' “分析”按鈕不可用 qd.Enabled = False ' 線號查詢的“確定”按鈕不可用 qcjg.Enabled = False ' “清除結(jié)果”按鈕不可用 Text5.Enabled = False ' 線號查詢不

6、可用 Text4.Enabled = FalseEnd Sub“設(shè)置端口”按鈕： Private Sub Comsz_Click() '端口屬性設(shè)置fx.Enabled = Falseqd.Enabled = Falsejc.Enabled = Falseqcjg.Enabled = Falsesave.Enabled = FalseText2.Enabled = FalseComsz.Enabled = FalseText5.Enabled = FalseText4.Enabled = FalseFrame1.Visible = TrueMSComm1.PortOpen = Fals

7、eEnd Sub設(shè)置完畢單擊設(shè)置端口面板的“確定”按鈕，確定端口的設(shè)置。Private Sub Command2_Click() '端口設(shè)置完畢、確定fx.Enabled = Trueqd.Enabled = Truejc.Enabled = Trueqcjg.Enabled = Truesave.Enabled = TrueText2.Enabled = TrueComsz.Enabled = TrueText5.Enabled = TrueText4.Enabled = TrueMSComm1.CommPort = Val(Combo1.Text) 端口號的設(shè)置Dim m As V

8、ariantm = Combo2.Text & "," + Combo3.Text & "," + Combo4.Text & "," + Combo5.TextMSComm1.Settings = m 端口參數(shù)設(shè)置MSComm1.PortOpen = True 打開端口Frame1.Visible = False 關(guān)閉端口設(shè)置界面End Sub“檢測”按鈕：Private Sub jc_Click() '檢測并向下位機(jī)發(fā)送字符“1”作為下微機(jī)向上微機(jī)發(fā)送信息的命令符If jc.Caption = &q

9、uot;檢測" Then jc.Caption = "顯示結(jié)果" 按鈕由“檢測”變?yōu)椤帮@示結(jié)果” 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”向下微機(jī)發(fā)送 Else jc.Caption = "

10、檢測" 如果按鈕為“顯示結(jié)果”則變?yōu)椤皺z測” 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) ' 將緩沖區(qū)內(nèi)的數(shù)據(jù)讀入buf變量中 If Len(buf) <> 0 Then ' 判斷緩沖區(qū)內(nèi)是否存在數(shù)據(jù) Text1.Text = Text1.Text + Chr(13) + Chr(10

11、) + buf ' 回車換行 End If If Len(buf) = 0 And jc.Caption = "檢測" Then ' 判斷緩沖區(qū)內(nèi)是否存在數(shù)據(jù) pp = MsgBox("無結(jié)果！請檢查線路是否接好或其它原因！", 16) End IfEnd Sub“清除結(jié)果”按鈕：Private Sub qcjg_Click() '清除結(jié)果按鈕 Text2.Text = "" Text1.Text = "" fx.Enabled = False qcjg.Enabled = False sa

12、ve.Enabled = False qd.Enabled = False Text4.Enabled = False Text5.Enabled = FalseEnd Sub“分析”按鈕：Private Sub fx_Click() '分析Longs 調(diào)用分析函數(shù)fx.Enabled = FalseEnd Sub“保存”按鈕：Private Sub save_Click() '保存結(jié)果 If Text2.Text = "" Then m = MsgBox("請先分析結(jié)果！", 16) Exit Sub End If CommonDial

13、og1.ShowSave 調(diào)用公共對話框的保存 If CommonDialog1.FileName <> "" Then '讀取 Open CommonDialog1.FileName For Output As #1 Print #1, Text2.Text Close #1 End IfEnd Sub線號查詢的“確定”按鈕：Private Sub qd_Click() '確定Zxh 調(diào)用查詢函數(shù)End Sub“退出”按鈕：Private Sub tc_Click() '退出系統(tǒng)'MSComm1.PortOpen = False

14、 '關(guān)閉通信口 Unload MeEnd Sub檢測函數(shù)：Public Sub longs() '檢測函數(shù) 檢測字符數(shù)組長度，并輸出分析檢測結(jié)果Dim i As VariantDim j As Variant 'Dim n As Variant 'Dim k As Variant 'Dim y As Variant 'Dim c As VariantDim a As StringDim b As VariantDim X As Integera = Text1.Textb = Split(a, ",")c = Len(Trim

15、(a)X = (c - 2) / 3i = 0n = 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) & "號線" &

16、"-" & 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) & "號線" & "-" &

17、amp; b(i + 1) & "號線 " '& vbCrLf 'vbCrlf 為換行函數(shù) i = i + 2 LoopEnd Sub線號查詢函數(shù)：Public Sub zxh() '單根線檢測，檢測另一頭與之對應(yīng)的所有線號Dim c As VariantDim a As StringDim b As VariantDim X As VariantDim i As VariantIf Text1.Text = "" Then m = MsgBox("請先檢測信息并顯示！", 16) Exit S

18、ubEnd Ifa = Text1.Textb = Split(a, ",")c = Len(Trim(a)X = (c - 2) / 3i = 0For 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 + 2Next 'LoopEnd SubProteus 7 電路原理圖設(shè)計2項目的建立1編輯界面單擊此處，選擇要放置的元件元件詳細(xì)信息封裝圖原理圖雙擊下載相應(yīng)的十六進(jìn)制文件2在空白處單擊放置元件1選擇相應(yīng)元件最終結(jié)果LCD顯