【正文】 ddress = strBuffer(1) End With If gudtInstrument(intQ).InstrumentName = SignalPole Then gblnSignalPole = True End If intQ = intQ + 1 End If If Left(strLine, 2) = ! Then ReDim Preserve gudtTestItems(intJ) strBuffer = Split(strLine, 。 device clear End Function 3).測試執(zhí)行 Public Sub TestExecute() Dim intI As Integer Dim intQ As Integer Dim strCmd As String Dim lngGpibResponse As Long = False (3).Text = Testing gblnTestResult = True gblnItemsSelectdAll = True mintDisplayRows = 1 Call SendToTOS9201(DSE HFF) For intI = 0 To UBound(gudtTestItems) If (intI).Value = vbChecked Then Call DisplayTestItems(intI) (intI).BackColor = vbRed If gudtTestItems(intI).TestType = ACW Or _ gudtTestItems(intI).TestType = DCW Or _ gudtTestItems(intI).TestType = IR Then Wait 500 strCmd = PHOL Call SendToTOS9201(strCmd) Wait 500 If TestGo(intI) = False Then Call DisplayTestResult(intI, FAIL) gblnTestResult = False (intI).BackColor = amp。HD) hChannel = mlongHand_TOS9201 Case Else MsgBox This Software does not support instrument [ + strMeasName + ] Stop End Select End Sub Public Function GetAddress(strInstrument As String) As String Dim intI As Integer For intI = 0 To UBound(gudtInstrument) If gudtInstrument(intI).InstrumentName = strInstrument Then GetAddress = gudtInstrument(intI).Address Exit For End If Next End Function Public Function OpenChannel() As Boolean nStatus = viOpen(hSession, sInstrumentAddress, VI_NULL, VI_NULL, hChannel) Select Case nStatus Case VI_SUCCESS: OpenChannel = True Connected = True Case VI_ERROR_INV_SESSION: 蘇州大學(xué)成人教育畢業(yè)論文（設(shè)計） 16 OpenChannel = False Case VI_ERROR_INV_OBJECT: OpenChannel = False Case VI_ERROR_NSUP_OPER: OpenChannel = False Case VI_ERROR_INV_RSRC_NAME: OpenChannel = False Case VI_ERROR_INV_ACC_MODE: OpenChannel = False Case VI_ERROR_RSRC_NFOUND: OpenChannel = False Case VI_ERROR_ALLOC: OpenChannel = False Case Else: OpenChannel = False End Select End Function 測試 1).測試 開始 Private Sub cmdStart_Click() Dim intI As Integer On Error GoTo ApplicationErr If = Test Start Then = Test Stop Call DisplayClear gblnTestStart = True = amp。s Specification file doesn39。 狀態(tài)顯示 外部通過三色信號燈顯示不同的狀態(tài)，同時有高壓輸出時通過高壓警告燈提醒。由此，實現(xiàn)大輸出和高穩(wěn)定特性，而且質(zhì)量輕巧，結(jié)構(gòu)緊湊。交流耐壓試驗?zāi)芨玫啬M被試品在實際使用中承受過電壓的情況，比起直流耐壓來，往往能更有效地發(fā)現(xiàn)被試品的局部缺陷，如絕緣損傷等。系統(tǒng)中的儀器采用專用接口，因此系統(tǒng)較為復(fù)雜，通用性差，不利 于自動測試系統(tǒng)的推廣應(yīng)用。 生產(chǎn)線及設(shè)備的自動化 可以減少人員數(shù)量。其次 介紹了絕緣耐壓測試的基本原理，并介紹了本次 選用的絕緣耐壓測試儀的主要功能，特點。 第三代自動測試系統(tǒng) 設(shè)計目標(biāo)：充分發(fā)揮計算機(jī)的能力，使整個自動測試系統(tǒng)簡化到僅由計算機(jī)、虛擬儀器軟件和硬件接口模塊三部分組成 ， 1987 年推出了一種名為 VXI 的新型計算機(jī)儀器系統(tǒng)總線標(biāo)準(zhǔn) 后，出現(xiàn)了基于 VXI 總線的模塊化自動測試系統(tǒng)以及虛擬儀器。 由于交流耐壓試驗的試驗電壓一般比工作 電壓高許多，對絕緣性能不良的被試品來說，是一種破壞性試驗。 蘇州大學(xué)成人教育畢業(yè)論文（設(shè)計） 3 第 3 章 硬件設(shè)計 測試單元 高壓切換器 TOS9221 具有將 TOS9201 提供的試驗電壓分配給多個試驗點的功能。在 Visual Basic 環(huán)境下，利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計工具，使用 Windows內(nèi)部的廣泛應(yīng)用程序接口（ API）函數(shù)，動態(tài)鏈接庫（ DLL）、對象的鏈接與嵌入（ OLE）、開放式數(shù)據(jù)連接（ ODBC）等技術(shù)，可以 高效、快速地開發(fā) Windows 環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。) With gudtTestItems(intJ) .TestType = strBuffer(1) .TestVoltage = strBuffer(2) .Frequency = strBuffer(3) .UpperLimit = strBuffer(4) .LowerLimit = strBuffer(5) .ExecuteTime = strBuffer(6) .FallTime = strBuffer(7) .RiseTime = strBuffer(8) .OpenChannel = strBuffer(9) .HighChannel = strBuffer(10) .LowChannel = strBuffer(11) .ContactCheckOn = IIf(strBuffer(12) = A, True, False) .Comment = strBuffer(13) End With intJ = intJ + 1 End If Loop Close 1 Exit Sub ApplicationErr: MsgBox Load Test Specification File Error! + vbCr _ + + [ + CStr() + ], vbCritical, System Error End End Sub 7).主界面 Load Private Sub Form_Load() Dim intI As Integer Dim strTosAddress As String Dim strTitle As String 蘇州大學(xué)成人教育畢業(yè)論文（設(shè)計） 13 On Error GoTo ApplicationErr blnFirstLoad = False strTitle = No. + |Item + |Voltage + _|Comment + |Upper/Lower _ + |Data + |Unit + |P/F = strTitle = 2 = Multiple purpose Insulation High Voltage Test Program + Space(70) _ + Version: + CStr() + . + CStr() + . + CStr() = False = amp。H8000000F 蘇州大學(xué)成人教育畢業(yè)論文（設(shè)計） 19 Exit For Else Call DisplayTestResult(intI, PASS) End If End If (intI).BackColor = amp。HA) + Chr$(amp。) ReDim Preserve gudtSystemInfo(intI) With gudtSystemInfo(intI)