Kikusui KJM6310, Operation Manual

Page: 45 / 56

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