Kikusui KJM6335, Operation Manual, Page: 103 / 129

KJM6335 GPIB Operation 4-45
'----------------------------------------------------
Call ibwrt(rd, "JIT:VAL?")
'Sends jitter value acquisition message.
Dim strJitterValue As String
strJitterValue = Space(128)
Call ibrd(rd, strJitterValue)
'Reads out jitter value and stores it to
'a variable.
strJitterValue = Left(strJitterValue, ibcntl)
Dim dJitterValue As Double
dJitterValue = Val(strJitterValue)
MsgBox "Jitter Value = " + Str(dJitterValue)
' Judgement information acquisition
'----------------------------------------------------
Call ibwrt(rd, "JUD:RES?") 'Sends judgment information acquisition
'message.
Dim strJudgment As String
strJudgment = Space(128)
Call ibrd(rd, strJudgment)
'Reads out judgment result and stores it to
'a variable.
strJudgment = Left(strJudgment, ibcntl)
MsgBox "Judgement = " + strJudgment