Kikusui PAT160-25T, Operation Manual

Page: 208 / 218

A-2 8
PAT-T 4kW
Sample 1 (Voltage and current output and measurement)
This sample is an example to query the Output voltage/current value after the output
is turned on through the communication by RS232C having with voltage/current
setting and overvoltage/overcurrent setting. The queried value will be converted
from the text to the numerical value and each of those will be substitute for the
variable in double data type.
Private Sub main_EZ_Click()
' These variables are necessary to operate the VISA COM
Dim rm As IResourceManager
Dim io As IMessage
Dim serial As ISerial
' This variable specifies the VISA address
Dim strVisaAddress As String
strVisaAddress = "ASRL1::INSTR" ' Sets the port setting of the PC to COM 1 when RS232C is
' used
' strVisaAddress = "GPIB0::1::INSTR" ' Sets the GPIB address of the PAT unit to 1 when GPIB is
' used
' strVisaAddress = "USB0::0x0B3E::0x100E::AB123456::INSTR" ' when USB is used, VID::PID::Serial number (each unit
' has different number)
' strVisaAddress = "TCPIP0::192.168.10.1::inst0::INSTR" ' The IP address is different depends on the connecting
' environment when using LAN
' Create the Resource Manager object
Set rm = CreateObject("VISA.GlobalRM")
' Open the VISA session
Set io = rm.Open(strVisaAddress, NO_LOCK)
' Set additional attributes for Serial I/O communications
If io.HardwareInterfaceType = 4 Then
Set serial = io
serial.BaudRate = 19200 ' Baudrate : 19200bps
serial.DataBits = 8 ' data length : 8 bit
serial.StopBits = ASRL_STOP_ONE ' stop bit length : 1 bit
serial.Parity = ASRL_PAR_NONE ' Parity : unused
serial.FlowControl = ASRL_FLOW_XON_XOFF ' Flow control : xon/off
serial.EndIn = ASRL_END_TERMCHAR ' Input terminate character : LF
serial.EndOut = ASRL_END_TERMCHAR ' Output terminate character : LF
End If
' Changing the instrument to remote ' Shift to Remote
io.WriteString ":SYST:REM"
' Resets the instrument
io.WriteString "*RST"
' Query the instrument identity
Dim strIDN As String
io.WriteString "*IDN?" ' ID Query command, send *IDN?
strIDN = io.ReadString(256) ' Read 256 bite from the Receiving buffer,
' substitute for the strIDN variable
' Give setting values for this example
Dim dVolt As Double
Dim dCurr As Double
Dim dOVP As Double
Dim dOCP As Double
dVolt = 13.5 'volts ' voltage setting value : 13.5V
dCurr = 50 'amps ' current setting value : 50A
dOVP = 15 'volts ' overvoltage protection setting value : 15V
dOCP = 60 'amps ' overcurrent protection setting value : 60A