
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
Содержание KJM6335
Страница 1: ...KJM 6335 Part No Z1 002 622 IA002856 Jul 2009 KJM6335 OPERATION MANUAL CD TIME INTERVAL JITTER METER...
Страница 10: ...VIII Contents KJM6335...
Страница 12: ...P 2 Preface KJM6335...
Страница 41: ...KJM6335 Operation 3 7...
Страница 47: ...KJM6335 Operation 3 13...
Страница 104: ...4 46 GPIB Operation KJM6335...
Страница 112: ...5 8 Control Using EXT I O KJM6335...
Страница 126: ...A 2 Appendix KJM6335...