Agilent Technologies InfiniiVision 3000 DSO-X 3054A Servisní příručka Strana 853

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 970
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 852
Synchronizing Acquisitions 35
Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide 853
myScope.WriteString ":OPERegister:CONDition?"
varQueryResult = myScope.ReadNumber
' Mask 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 results.
' -----------------------------------------------------------------
If lngElapsed < lngTimeout Then
myScope.WriteString ":MEASure:RISetime"
myScope.WriteString ":MEASure:RISetime?"
varQueryResult = myScope.ReadNumber ' Read risetime.
Debug.Print "Risetime: " + _
FormatNumber(varQueryResult * 1000000000, 1) + " ns"
Else
Debug.Print "Timeout waiting for single-shot trigger."
End If
Exit Sub
VisaComError:
MsgBox "VISA COM Error:" + vbCrLf + Err.Description
End Sub
Zobrazit stránku 852
1 2 ... 848 849 850 851 852 853 854 855 856 857 858 ... 969 970

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

Žádné komentáře