Kikusui KJM6310, Operation Manual

Page: 43 / 56

KJM6310 RS-232C Control 4-13
4.4 Sample Program
'================================================================
' KJM6310 Sample Program
' A sample program using Microsoft Visual Basic 6.0.
' After setting the parameters, the jitter measurement value (%)
is displayed once.
'
' The VISA library (VISA COM software) is used for RS-232C control.
' Use any of the following VISA library versions.
' NI-VISA 3.0 or later
' Agilent IO Libraries M.01.00. or later
' KI-VISA 2.2x or later
'
' Microsoft and Visual Basic are registered trademarks of Microsoft
Corporation in the United States and/or other countries.
'================================================================
Option Explicit
' The Global Resource Manager (GRM) component object
Public m_rm As VisaComLib.ResourceManager
' VISA I/O session that is represented as IMessage VISA COM interface
Public m_session As VisaComLib.IMessage
'
Const MSG = "You need open the instrument with a valid VISA I/O resource"
'-----------------------------------------------------------------
Private Sub Form_Initialize()
' Create Resource Manager (RM).
' Select the VISA library to be used
On Error Resume Next
Set m_rm = CreateObject("VISA.GlobalRM") ' Use NI-VISA/KI-VISA
On Error GoTo ERROR_HANDLER
If m_rm Is Nothing Then
' Use Agilent IO Libraries
Set m_rm = CreateObject("AgilentRM.SRMCls")
End If
' Open the VISA I/O resource (use the RS-232C COM1 port)
Set m_session = m_rm.Open("ASRL1::INSTR")' RS232C COM1 Open
Dim rs As ISerial
Set rs = m_session