Agilent Technologies InfiniiVision 6000 Series Servisní příručka Strana 374

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 934
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 373
374 Agilent InfiniiVision 6000 Series Oscilloscopes Programmer's Guide
5 Commands by Subsystem
lngElapsed = 0
Do While lngElapsed <= lngTimeout
myScope.WriteString ":OPERegister:CONDition?"
varQueryResult = myScope.ReadNumber
' Operation Status Condition Register MTE bit (bit 9, &H200).
If (varQueryResult And &H200) <> 0 Then
Exit Do
Else
Sleep 100 ' Small wait to prevent excessive queries.
lngElapsed = lngElapsed + 100
End If
Loop
' Look for RUN bit = stopped (mask test termination).
lngElapsed = 0
Do While lngElapsed <= lngTimeout
myScope.WriteString ":OPERegister:CONDition?"
varQueryResult = myScope.ReadNumber
' Operation Status Condition Register RUN bit (bit 3, &H8).
If (varQueryResult And &H8) = 0 Then
Exit Do
Else
Sleep 100 ' Small wait to prevent excessive queries.
lngElapsed = lngElapsed + 100
End If
Loop
' Get total waveforms, failed waveforms, and test time.
myScope.WriteString ":MTESt:COUNt:WAVeforms?"
strQueryResult = myScope.ReadString
Debug.Print "Mask test total waveforms: " + strQueryResult
myScope.WriteString ":MTESt:COUNt:FWAVeforms?"
strQueryResult = myScope.ReadString
Debug.Print "Mask test failed waveforms: " + strQueryResult
myScope.WriteString ":MTESt:COUNt:TIME?"
strQueryResult = myScope.ReadString
Debug.Print "Mask test elapsed seconds: " + strQueryResult
Exit Sub
VisaComError:
MsgBox "VISA COM Error:" + vbCrLf + Err.Description
End Sub
Zobrazit stránku 373
1 2 ... 369 370 371 372 373 374 375 376 377 378 379 ... 933 934

Komentáře k této Příručce

Žádné komentáře