4-14 RS-232C Control
KJM6310
rs.BaudRate = 19200
' Baud rate 19200 bps
rs.DataBits = 8
' Data 8 bits
rs.StopBits = ASRL_STOP_ONE
' Stop 1 bit
rs.Parity = ASRL_PAR_NONE
' Parity NONE
rs.FlowControl = ASRL_FLOW_XON_XOFF
' X-flow
' Other common settings
On Error Resume Next
m_session.TerminationCharacter = 10
m_session.TerminationCharacterEnabled = True
m_session.Timeout = 3000
'I/O timeout (in milliseconds)
Exit Sub
ERROR_HANDLER:
Dim strVisaCode As String
strVisaCode = "VISA Error: 0x" & Hex(Err.Number)
MsgBox Err.Description, vbExclamation, strVisaCode
End Sub
'-------------------------------------------------------------
Private Sub Form_Load()
' Model information is checked(Maker, Model name, Version)
Dim strModelInfo As String
Call SendMessage(m_session, "*IDN?")
strModelInfo = ReceiveMessage(m_session)
If strModelInfo = "" Then
Call CloseVisaResource
Exit Sub
End If
' Measurement setup
Dim strAck As String
Call SendMessage(m_session, "PLL ON")
' PLL clock regen.
' circuit = ON
strAck = ReceiveMessage(m_session)
Call SendMessage(m_session, "SYM:MOD AUT")' SYMMETRY mode = AUTO
strAck = ReceiveMessage(m_session)
Call SendMessage(m_session, "DEL:MOD AUT") ' DELAY mode = AUTO
strAck = ReceiveMessage(m_session)
Содержание 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...