freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

基于vb控制的絕緣耐壓測(cè)試系統(tǒng)畢業(yè)論文設(shè)計(jì)(參考版)

2025-03-02 10:54本頁(yè)面
  

【正文】 H8000000F Else gblnItemsSelectdAll = False End If Next Call SendToTOS9201(STOP) If gblnTestResult = True Then If gblnItemsSelectdAll = False Then (3).Text = Single PASS = amp。 device clear End Function 3).測(cè)試執(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è)計(jì)) 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 測(cè)試 1).測(cè)試 開(kāi)始 Private Sub cmdStart_Click() Dim intI As Integer On Error GoTo ApplicationErr If = Test Start Then = Test Stop Call DisplayClear gblnTestStart = True = amp。No Operation Case TOS9201 nGPIPDEL = Chr$(amp。HFFFF80 = Space(3) + gudtSystemInfo(gintSelectionIndex).SystemName + Space(3) =gudtSystemInfo(gintSelectionIndex).SpecFile+/+gudtSystemInfo(gintSelectionIndex).SpecVersion = gudtSystemInfo(gintSelectionIndex).PartNo Call ShowTestItem For intI = 0 To UBound(gudtInstrument) If gudtInstrument(intI).InstrumentName = TOS9201 Then strTosAddress = gudtInstrument(intI).Address Exit For End If Next Call HandGPIBS Exit Sub ApplicationErr: MsgBox + / + + [ + CStr() + ], vbCritical, Please Call Duty Engineer! End End Sub 蘇州大學(xué)成人教育畢業(yè)論文(設(shè)計(jì)) 14 8).測(cè)試項(xiàng)目顯示 Public Sub ShowTestItem() Dim intI As Integer If blnFirstLoad = False Then For intI = 0 To 1 If intI 0 Then Unload (intI) End If Next End If For intI = 0 To UBound(gudtTestItems) If intI 0 Then Load (intI) (intI).Top = (intI 1).Top + 300 39。 vbModal End End If ReDim gudtInstrument(0) ReDim gudtTestItems(0) intJ = 0 intQ = 0 Open + \Spec\ + gudtSystemInfo(gintSelectionIndex).SpecFile For Input As 1 Do While Not EOF(1) Line Input 1, strLine If Left(strLine, 2) = $: Then strSpecVersion = Mid(strLine, 11, 5) If strSpecVersion gudtSystemInfo(intI).SpecVersion Then MsgBox Specification File Verion is not consistent with station congfiuration file, vbCritical Close 1 End End If End If 蘇州大學(xué)成人教育畢業(yè)論文(設(shè)計(jì)) 12 If Left(strLine, 2) = : Then ReDim Preserve gudtInstrument(intQ) strBuffer = Split(Mid(strLine, 3, Len(strLine) 2), ,) With gudtInstrument(intQ) .InstrumentName = strBuffer(0) .Address = 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, 。s Specification file doesn39。 程序起動(dòng) 型號(hào)設(shè)定文件 Load 型號(hào)選擇界面 Load 主界面 Load 開(kāi)始測(cè)試 測(cè)試結(jié)果輸出 GPIB 確認(rèn) 型號(hào)選擇 測(cè)試項(xiàng)目顯示 TOS9201 GPIB 通訊 TOS9201 通訊 測(cè)試執(zhí)行 TOS9201 設(shè)定,測(cè)試 測(cè)試準(zhǔn)備: 測(cè)試: 蘇州大學(xué)成人教育畢業(yè)論文(設(shè)計(jì))
點(diǎn)擊復(fù)制文檔內(nèi)容
法律信息相關(guān)推薦
文庫(kù)吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1