KJM6310
RS-232C Control 4-15
Call SendMessage(m_session, "CLOC:TRIG:EDG POS")' CLOCK edge =
strAck = ReceiveMessage(m_session)
' POSITIVE
Call SendMessage(m_session, "RF:TRIG:EDG POS") ' RF edge =
strAck = ReceiveMessage(m_session) ' POSITIVE
Call SendMessage(m_session, "TIM:CON 0.1") ' TIME CONST = 0.1 s
strAck = ReceiveMessage(m_session)
' Measurement of the JITTER value
Dim strImr As String
Dim strJitterPct As String
Dim strJitterNs As String
Do
Call SendMessage(m_session, "IMR?")
' Get the measurement
strImr = ReceiveMessage(m_session) ' status
Loop Until strImr = "1" ' Wait until the measured value is
' less than or equal to 20 %
Call SendMessage(m_session, "JIT?") ' Get the jitter value (%)
strJitterPct = ReceiveMessage(m_session)
Call SendMessage(m_session, "JIT:TIM?") ' Get the jitter value
strJitterNs = ReceiveMessage(m_session) ' (ns)
' Display the JITTER value
MsgBox "Jitter Value = " & strJitterPct & "%"
Call CloseVisaResource
End Sub
'-------------------------------------------------------------
Private Sub CloseVisaResource()
' Close the VISA I/O resource
If Not m_session Is Nothing Then
' Closes the VISA session
m_session.Close
Set m_session = Nothing
End If
End Sub
'------------------------------------------------------------
Function SendMessage(session As IMessage, strDat As String)
' Check if the VISA session is correctly opened
If session Is Nothing Then
MsgBox MSG, vbExclamation
Exit Function
Содержание KJM6310
Страница 1: ...KJM6310 Part No Z1 003 062 IA003161 Jan 2004 OPERATION MANUAL Time Interval Jitter Meter...
Страница 8: ...VI Overvoltage category KJM6310...
Страница 12: ...P 2 Preface KJM6310...
Страница 50: ...5 4 Maintenance KJM6310...
Страница 55: ......
Страница 56: ...TIME INTERVAL JITTER METER KJM6310 OPERATION MANUAL...