Download  Print this page

Keithley 7711 User Manual Page 23

Hide thumbs

Advertisement

Table of Contents
Option Explicit
'' ---------------------------------------------------------------------------------------------------------------------
'' Constants
'' ---------------------------------------------------------------------------------------------------------------------
Const MAXLEN = 6400
Const LENGTH = 6400
Const ENTER_TIMEOUT = 3000
Const ADDRESS = 16
'' Slot assignments.
Const SLOT_7700 = 1
Const SLOT_7711 = 2
Const SLOT_7705 = 3
'' Number of configurations, power supply units, and functions.
Const NUMBER_OF_DUTS = 4
Const NUMBER_OF_FUNCTIONS = 4
Const NUMBER_OF_SUPPLY_CONFIGURATIONS = 4
Const N_READINGS = NUMBER_OF_DUTS * NUMBER_OF_FUNCTIONS * NUMBER_OF_SUPPLY_CONFIGURATIONS
'' Constants to define limits for the different measurements.
Const POWER_SUPPLY_VOLTAGE = 5
Const DCV_MAX = POWER_SUPPLY_VOLTAGE * 1.1
Const DCV_MIN = POWER_SUPPLY_VOLTAGE * 0.9
Const ACV_MAX = 132
Const ACV_MIN = 108
Const CONT_MAX = 2
Const CONT_MIN = -0.01
Const TEMP_MAX = 125
Const TEMP_MIN = 70
'' Constants to define power supply configurations.
Const HIGH_LINE = 1
Const LOW_LINE = 2
Const TEN_PERCENT_LOAD = 1
Const NINETY_PERCENT_LOAD = 2
' Global variables.
Dim Status As Integer
Dim Readings(N_READINGS) As String
Dim Reading_Counter As Integer
'' ---------------------------------------------------------------------------------------------------------------------
'' 7700 Channel Configurations
'' ---------------------------------------------------------------------------------------------------------------------
'' Configure_Limits(,,) -
''
Sets the limits for a given channel given by the constants defined above.
''
'' Configure_7700_DCV(,) -
''
Sets a channel to measure DCV.
''
'' Configure_7700_ACV() -
''
Configures a channel to measure ACV.
''
'' Cofigure_CONT() -
''
Configures the channel to measure 2W ohms.
''
This measurement is used instead of CONT, so we can select the ohm's limits.
''
'' Configure_7700_TEMP() -
''
Sets a channel to measure temperature using *RST default.
''
'' Configure_Channel() -
''
Uses the above functions to do the following on the 7700:
''
1.
Sets channels 1,5,9,
''
2.
Sets channels 2,6,10, and 14 to ACV.
''
3.
Sets channels 3,7,11, and 15 to CONT.
''
4.
Sets channels 4,8,12, and 16 to TEMP.
''
5.
Places the box into Auto-Configuration Mode.
''
''
Note:
Auto-configuration mode brings in the individual channels'
''
settings when that channel is closed.
'' ---------------------------------------------------------------------------------------------------------------------
Private Sub Configure_7700_Limits(Channel_Num As Integer, Ulimit As Integer, Llimit As Integer)
Dim Channel_Str As String
Dim Upper_Limit As String
Dim Lower_Limit As String
Channel_Str = ",(@" & CStr(Channel_Num) & ")"
Upper_Limit = CStr(Ulimit)
Lower_Limit = CStr(Llimit)
Call send(ADDRESS, "CALC3:LIM1:STAT ON" & Channel_Str, Status)
Call send(ADDRESS, "CALC3:LIM1:UPP:DATA " & Upper_Limit & Channel_Str, Status)
Call send(ADDRESS, "CALC3:LIM1:LOW:DATA " & Lower_Limit & Channel_Str, Status)
End Sub
Private Sub Configure_7700_DCV(Channel_Num As Integer, Power_Supply_DCV As Integer)
Dim Channel_Str As String
Channel_Str = ",(@" & CStr(Channel_Num) & ")"
Call send(ADDRESS, "SENS:FUNC 'VOLT:DC'" & Channel_Str, Status)
Call send(ADDRESS, "SENS:VOLT:DC:RANG 100" & Channel_Str, Status)
Call Configure_7700_Limits(Channel_Num, DCV_MAX, DCV_MIN)
End Sub
Private Sub Configure_7700_ACV(Channel_Num As Integer)
Dim Channel_Str As String
Channel_Str = ",(@" & CStr(Channel_Num) & ")"
Call send(ADDRESS, "SENS:FUNC 'VOLT:AC'" & Channel_Str, Status)
Call send(ADDRESS, "SENS:VOLT:AC:RANG 150" & Channel_Str, Status)
Call Configure_7700_Limits(Channel_Num, ACV_MAX, ACV_MIN)
End Sub
' Constant used with ENTER function.
' Constant used with ENTER function.
' Length of time the ENTER function will
' wait for a query.
' DMM setup address.
' DCV, ACV, CONT, and TEMP.
' Includes HIGH/ LOW line and 10%/90% load.
' Voltage output of power supplies.
' Allow power supply to vary by 10%.
' ACV input voltage to power supply limits.
' Limit failure will occur at 2 ohms or more.
' Max. and min. limits for temperature.
' Variable used by the send() function.
' Array to store readings.
' Index to Readings().
and 13 to DCV.
' Converts a number to an ASCII channel parameter.
' Enable Limit1 for DCV.
' Set upper limit.
' Set lower limit.
' Set channel to measure DCV.
' Set voltage range(Power Supply is at 5V).
' Set channel to measure ACV.
' Set voltage range.
19

Advertisement

Table of Contents

   Related Manuals for Keithley 7711

This manual is also suitable for:

7712

Comments to this Manuals

Symbols: 0
Latest comments: