ADCMT 6146 User Manual

6146/6156 DC Voltage/Current Generators Operation Manual
5.9.4 Program Example 3-Sweep Operation and Voltage/Current Measurement
5-62
(Execution result example)
(Number of repetition) (Limiter activation) (Source voltage) (Measured voltage) (Measured current)
1 +0.00000E+0 -000.330E-03 -000.004E-03
2 +0.01000E+0 +009.730E-03 -000.001E-03
3 +0.02000E+0 +019.789E-03 +000.000E-03
....
Omitted . . .
....
211 LMH +2.10000E+0 +02.1110E+00 +010.132E-03
....
Omitted . . .
....
300 +2.99000E+0 +02.1110E+00 +010.132E-03
301 +3.00000E+0 +02.1110E+00 +010.132E-03
5.9.4.1 Program Example Using GPIB
Option Explicit ' Clearly declares all variables.
Private Const intIFBoardAdr As Integer = 0 ' Sets the GPIB board address to 0.
Private Const intVIGAdr As Integer = 1 ' Sets the VIG address to 1.
Private Const intDMMAdr As Integer = 2 ' Sets the DMM address to 2.
Private Const lngStaRow As Long = 1 ' Start row to store data
Private Const lngMeaNoCol As Long = 1 ' Column to store the measurement number
Private Const lngSrcLimitCol As Long = 2 ' Column to store the VIG limiter activation
Private Const lngSrcDataCol As Long = 3 ' Column to store the VIG source value
Private Const lngVDataCol As Long = 4 ' Column to store the measured voltage
Private Const lngIDataCol As Long = 5 ' Column to store the measured current
Public Sub SweepAndMeasure_GPIB()
Dim intVIGDes As Integer ' VIG device descriptor
Dim intDMMDes As Integer ' DMM device descriptor
Dim strRecvStr As String ' Data reception buffer
Dim strSrcLimit As String ' VIG limiter activation
Dim strSrcData As String ' Current VIG source value
Dim strMeasVData As String ' Measured voltage
Dim strMeasIData As String ' Measured current
Dim lngMeasCnt As Long ' Number of measurement
Dim lngRowNo As Long ' Row to store the measured data
Dim lngDMMSTB As Long ' DMM STB value
Dim lngVIGDSR As Long ' VIG DSR value
Dim blnRDYb As Boolean ' READY Out Bit
Dim blnSWEb As Boolean ' Sweep End Bit
Dim blnLMHb As Boolean ' Limiter High Bit
Dim blnLMLb As Boolean ' Limiter Low Bit
lngRowNo = lngStaRow ' Start row to store data
' Opens the devices (VIG, DMM) and executes initialization (timeout 10 s).
Call ibdev(intIFBoardAdr, intVIGAdr, 0, T10s, 1, 0, intVIGDes)
Call ibdev(intIFBoardAdr, intDMMAdr, 0, T10s, 1, 0, intDMMDes)
' Sets addresses in each transmission and reception
Call ibconfig(intVIGDes, IbcUnAddr, 1)

ADCMT 6146 Specifications

General

Brand	ADCMT
Model	6146
Category	Portable Generator
Language	English