Download  Print this page

Advertisement

Table of Contents
Private Sub Take_Measurements()
Dim I, J As Integer
Dim Channel_Num As Integer
Dim Channel_Str As String
Dim Reading As String
For I = 1 To NUMBER_OF_DUTS
Channel_Num = (SLOT_7711 * 100) + I
Channel_Str = "(@" & CStr(Channel_Num) & ")"
Call send(ADDRESS, "ROUT:MULT:CLOS " & Channel_Str, Status)
For J = 1 To NUMBER_OF_FUNCTIONS
Channel_Num = (SLOT_7700 * 100) + J + ((I - 1) * NUMBER_OF_DUTS)
Channel_Str = "(@" & CStr(Channel_Num) & ")"
Call send(ADDRESS, "ROUT:CLOS " & Channel_Str, Status)
Call send(ADDRESS, "READ?", Status)
Call enter(Reading, MAXLEN, LENGTH, ADDRESS, Status)
Readings(Reading_Counter) = Reading
Reading_Counter = Reading_Counter + 1
Next
' Insert code here to take oscilloscope measurements.
Next
End Sub
'' ---------------------------------------------------------------------------------------------------------------------
'' Main Function
'' ---------------------------------------------------------------------------------------------------------------------
Private Sub Start_Click()
Reading_Counter = 0
Call settimeout(ENTER_TIMEOUT)
Call initialize(21, 0)
Call send(ADDRESS, "*RST", Status)
Call send(ADDRESS, "INIT:CONT OFF", Status)
Call send(ADDRESS, "FORM:ELEM READ,UNIT", Status)
Call Configure_7700_Channels
Call Configure_Power_Supplies(HIGH_LINE, TEN_PERCENT_LOAD)
Call Take_Measurements
Call Configure_Power_Supplies(HIGH_LINE, NINETY_PERCENT_LOAD)
Call Take_Measurements
Call Configure_Power_Supplies(LOW_LINE, TEN_PERCENT_LOAD)
Call Take_Measurements
Call Configure_Power_Supplies(LOW_LINE, NINETY_PERCENT_LOAD)
Call Take_Measurements
End Sub
' Loop to take measurements for all DUTs.
' Determine channel number.
' Convert channel to ASCII string parameter.
' Route channel on 7711 to Out A.
' Loop for each measurement function.
' Close measurement channel on the 7700.
' Take measurement.
' Store reading.
' Reset index counter.
' Set timeout valuefor enter function.
' Initialize GPIB.
' Restore *RST defaults.
' Ensure INIT continuous trigger is off.
' Display only reading and units.
' Setup measurement channels on 7700.
' DUT input voltage is high line and 10% load.
' DUT input voltage is high line and 90% load.
' DUT input voltage is low line and 10% load.
' DUT input voltage is low line and 90% load.
21

Advertisement

Table of Contents

   Related Manuals for Keithley 7711

This manual is also suitable for:

7712

Comments to this Manuals

Symbols: 0
Latest comments: