A-30
PAT-T 4kW
Sample 2 (Voltage and current output and measurement (using
triggers))
This sample is an example to change the setting condition from the present voltage/
current setting to the preset value of the trigger voltage/current when *TRG
command is sent. It is required to send ":INIT:SEQ1" before the *TRG command
is sent. 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_Trig_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 dVoltTrig As Double
Dim dCurrTrig As Double
dVolt = 13.5 'volts
' voltage setting value : 13.5V
dCurr = 50 'amps
' current setting value : 50A
Summary of Contents for PAT160-25T
Page 17: ...General Description This chapter describes an overview and describes the features...
Page 22: ...1 6 PAT T 4kW...
Page 34: ...2 12 PAT T 4kW...
Page 106: ...6 12 PAT T 4kW...
Page 158: ...7 52 PAT T 4KW...
Page 159: ...Maintenance This chapter describes maintenance such as cleaning inspecting and calibrating...
Page 171: ...Specifications This chapter describes the specifications and gives the dimensions of the PAT...
