![Keithley 7711 Скачать руководство пользователя страница 25](http://html2.mh-extra.com/html/keithley/7711/7711_user-manual_3986486025.webp)
21
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 ' Loop to take measurements for all DUTs.
Channel_Num = (SLOT_7711 * 100) + I ' Determine channel number.
Channel_Str = "(@" & CStr(Channel_Num) & ")" ' Convert channel to ASCII string parameter.
Call send(ADDRESS, "ROUT:MULT:CLOS " & Channel_Str, Status) ' Route channel on 7711 to Out A.
For J = 1 To NUMBER_OF_FUNCTIONS ' Loop for each measurement function.
Channel_Num = (SLOT_7700 * 100) + J + ((I - 1) * NUMBER_OF_DUTS)
Channel_Str = "(@" & CStr(Channel_Num) & ")"
Call send(ADDRESS, "ROUT:CLOS " & Channel_Str, Status) ' Close measurement channel on the 7700.
Call send(ADDRESS, "READ?", Status) ' Take measurement.
Call enter(Reading, MAXLEN, LENGTH, ADDRESS, Status)
Readings(Reading_Counter) = Reading ' Store reading.
Reading_Counter = Reading_C 1
Next
' Insert code here to take oscilloscope measurements.
Next
End Sub
'' ---------------------------------------------------------------------------------------------------------------------
'' Main Function
'' ---------------------------------------------------------------------------------------------------------------------
Private Sub Start_Click()
Reading_Counter = 0 ' Reset index counter.
Call settimeout(ENTER_TIMEOUT) ' Set timeout valuefor enter function.
Call initialize(21, 0) ' Initialize GPIB.
Call send(ADDRESS, "*RST", Status) ' Restore *RST defaults.
Call send(ADDRESS, "INIT:CONT OFF", Status) ' Ensure INIT continuous trigger is off.
Call send(ADDRESS, "FORM:ELEM READ,UNIT", Status) ' Display only reading and units.
Call Configure_7700_Channels ' Setup measurement channels on 7700.
Call Configure_Power_Supplies(HIGH_LINE, TEN_PERCENT_LOAD) ' DUT input voltage is high line and 10% load.
Call Take_Measurements
Call Configure_Power_Supplies(HIGH_LINE, NINETY_PERCENT_LOAD) ' DUT input voltage is high line and 90% load.
Call Take_Measurements
Call Configure_Power_Supplies(LOW_LINE, TEN_PERCENT_LOAD) ' DUT input voltage is low line and 10% load.
Call Take_Measurements
Call Configure_Power_Supplies(LOW_LINE, NINETY_PERCENT_LOAD) ' DUT input voltage is low line and 90% load.
Call Take_Measurements
End Sub
Содержание 7711
Страница 1: ...Model 7711 7712 User s Guide PA 818 Rev B 8 03 A G R E A T E R M E A S U R E O F C O N F I D E N C E...
Страница 30: ...26 Figure 12 Model 7711 component layout...
Страница 31: ...27 Figure 13 Model 7712 component layout...
Страница 37: ......