【正文】 學(xué)成人教育畢業(yè)論文（設(shè)計(jì)） 7 主要代碼 測(cè)試準(zhǔn)備 1).程序起動(dòng) Public Sub Main() Dim intI As Integer Dim intAddress As Integer If Then MsgBox Program is already Running!, vbCritical, Program Instance End End If blnFirstLoad = True gblnTestStart = False Call InitGPIB LoadSysSelectionInfo vbModal Load frmMain Call TOS9201_Init If gblnSignalPole = True Then For intI = 0 To UBound(gudtInstrument) If gudtInstrument(intI).InstrumentName = SignalPole Then intAddress = Val(gudtInstrument(intI).Address) End If Next End If Call SignalPole_Init(intAddress) Call SignalpoleSetAll(sigOff) Call SignalPoleSet(sigBuzzer1, sigOn) Wait 1000 Call SignalPoleSet(sigYellow1, sigOn) = True Do DoEvents 蘇州大學(xué)成人教育畢業(yè)論文（設(shè)計(jì)） 8 Call TestStartCheck Loop End Sub 2).GPIB 確認(rèn) Public Function InitGPIB() As Boolean If InitialiseVisa Then InitGPIB = True Else InitGPIB = False End If Call ShutdownVisa End Function Public Function InitialiseVisa() As Boolean nStatus = viOpenDefaultRM(hSession) Select Case nStatus Case VI_SUCCESS: InitialiseVisa = True Case VI_ERROR_SYSTEM_ERROR: InitialiseVisa = False Case VI_ERROR_ALLOC: InitialiseVisa = False Case VI_ERROR_INV_SETUP: InitialiseVisa = False Case Else InitialiseVisa = False End Select End Function Public Sub ShutdownVisa() nStatus = viClose(hSession) Select Case nStatus Case VI_SUCCESS: Case VI_ERROR_INV_SESSION: Case VI_ERROR_INV_OBJECT: Case VI_ERROR_CLOSING_FAILED: End Select End Sub 3).型號(hào) 設(shè)定文件 Load Private Sub LoadSysSelectionInfo() Dim intI As Integer 蘇州大學(xué)成人教育畢業(yè)論文（設(shè)計(jì)） 9 Dim strLine As String Dim strBuffer() As String If Dir( + \) = Then MsgBox Station Information File is Misssing!, vbCritical End End If intI = 0 Open + \ For Input As 1 Do While Not EOF(1) Line Input 1, strLine If Left(strLine, 2) = ! Then strBuffer = Split(strLine, 。因?yàn)闇y(cè)試儀器的高壓接線端子都在儀器的背面，為了便于操作，把接線端子通過(guò)絕緣耐壓檢查用端子臺(tái)轉(zhuǎn)接到前面。 TOS9201是一款搭載有 AC 耐壓、 DC 耐壓、絕緣電阻試驗(yàn)這 3 大 功能的機(jī)型。因?yàn)樵谥绷麟妷鹤饔孟?，分層介質(zhì)中的電壓分布與電阻成正比，這與在交流電壓作用下分層介質(zhì)中的電壓分布與電容量成反比不同。在自動(dòng)測(cè)試系統(tǒng)中，整個(gè)工作都是在預(yù)先編制好的測(cè)試程序統(tǒng)一指揮下完成的，系統(tǒng)中的各種儀器和設(shè)備是智能化的，都可進(jìn)行程序控制。蘇州大學(xué)成人教育畢業(yè)論文（設(shè)計(jì)） 1 蘇州大學(xué)成人教育畢業(yè)論文（設(shè)計(jì)） 題 目 基 于 VB 控制的絕緣耐壓測(cè)試系統(tǒng) 院 系 電子信息學(xué)院 專(zhuān) 業(yè) 電子信息工程 班 級(jí) 考生姓名 同組人姓名 學(xué) 號(hào) 指導(dǎo)老師 2021 年 11 月 22 日 蘇州大學(xué)成人教育畢業(yè)論文（設(shè)計(jì)） 2 蘇州大學(xué)電子信息學(xué)院畢業(yè)設(shè)計(jì)（論文） 任 務(wù) 書(shū) 專(zhuān)業(yè) 電子信息工程 班級(jí) 08 電子信息工程 學(xué)號(hào) YB0828054057 姓名 燕同晉 題目 基于 VB 控制的絕緣耐壓測(cè)試系統(tǒng) 進(jìn)行日期 ~ 畢業(yè)設(shè)計(jì)的要求： 內(nèi)容完整 主題突出 實(shí)事求是 科學(xué)嚴(yán)謹(jǐn) 內(nèi)容： 系統(tǒng)的硬件設(shè)計(jì) 系統(tǒng)的軟件設(shè)計(jì) 系統(tǒng)功能驗(yàn)證 主要參考資料： National Instruments Corporation 《 NIVISA User Manual》 來(lái)源于網(wǎng)絡(luò) 尹乾 《 中文 Visual Basic 實(shí)用教程 》 指導(dǎo)老師（簽字） 系主任（簽字） 發(fā)出日期 年 月 日 蘇州大學(xué)成人教育畢業(yè)論文（設(shè)計(jì)） 3 畢業(yè)設(shè)計(jì)（論文）進(jìn)度計(jì)劃 起訖日期 工 作 內(nèi) 容 備 注 ~ 設(shè)備選型，硬件設(shè)計(jì) ~ 軟件設(shè)計(jì) ~ 設(shè)備驗(yàn)證 ~ 撰寫(xiě)畢業(yè)論文初稿 ~ 畢業(yè)論文修訂 ~ 畢業(yè)答辯準(zhǔn)備 蘇州大學(xué)成人教育畢業(yè)論文（設(shè)計(jì)） 4 基于 VB 控制的絕緣耐壓測(cè)試系統(tǒng) 摘要 隨著中國(guó)經(jīng)濟(jì)的發(fā)展， 中國(guó)市場(chǎng)需求已經(jīng)由量的增長(zhǎng)向質(zhì)的增長(zhǎng)轉(zhuǎn)變。 蘇州大學(xué)成人教育畢業(yè)論文（設(shè)計(jì)） 5 目 錄 第 1章 自動(dòng)測(cè)試系統(tǒng)簡(jiǎn)介 ............................................... 1 自動(dòng)測(cè)試系統(tǒng)的概念 ....................................................................................................... 1 自動(dòng)測(cè)試系統(tǒng)的發(fā)展 ....................................................................................................... 1 第一代自動(dòng)測(cè)試系統(tǒng) ....................................................................................... 1 第二代自動(dòng)測(cè)試系統(tǒng) ....................................................................................... 1 第三代自動(dòng)測(cè)試系統(tǒng) ....................................................................................... 1 第 2章 設(shè)計(jì)綜述 ...................................................... 2 絕緣耐壓測(cè)試簡(jiǎn)介 ........................................................................................................... 2 絕緣耐壓測(cè)試儀簡(jiǎn)介 ....................................................................................................... 2 設(shè)計(jì)內(nèi)容與目標(biāo) ............................................................................................................... 2 第 3章 硬件設(shè)計(jì) ...................................................... 3 測(cè)試單元 ........................................................................................................................... 3 控制單元 ........................................................................................................................... 4 狀態(tài)顯示 ........................................................................................................................... 4 程序設(shè)計(jì)流程圖 ............................................................................................................ 6 主要代碼 ........................................................................................................................... 7 測(cè)試準(zhǔn)備 ............................................................................................................. 7 測(cè)試 ...........................