20
Private Sub Configure_7700_CONT(Channel_Num As Integer)
Dim Channel_Str As String
Channel_Str = ",(@" & CStr(Channel_Num) & ")"
Call send(ADDRESS, "SENS:FUNC 'RES'" & Channel_Str, Status) ' Set channel to measure 2W ohms.
Call send(ADDRESS, "SENS:RES:RANG 10" & Channel_Str, Status) ' Set resistance range.
Call send(ADDRESS, "SENS:RES:NPLC 0.1" & Channel_Str, Status) ' Set meaurement speed to fast.
Call Configure_7700_Limits(Channel_Num, CONT_MAX, CONT_MIN)
End Sub
Private Sub Configure_7700_TEMP(Channel_Num As Integer)
Dim Channel_Str As String
Channel_Str = ",(@" & CStr(Channel_Num) & ")"
Call send(ADDRESS, "SENS:FUNC 'TEMP'" & Channel_Str, Status) ' Set channel to TEMP measurement.
Call send(ADDRESS, "SENS:TEMP:TRAN TC" & Channel_Str, Status) ' Select thermocouple measurement.
Call send(ADDRESS, "SENS:TEMP:TC:TYPE T" & Channel_Str, Status) ' Use T thermocouples.
Call send(ADDRESS, "SENS:TEMP:TC:RJUN:RSEL INT" & Channel_Str, Status) ' Use internal reference junction.
Call Configure_7700_Limits(Channel_Num, TEMP_MAX, TEMP_MIN)
End Sub
Private Sub Configure_7700_Channels()
Dim I As Integer
Dim POWER_SUPPLY_VOLTAGE As Integer
For I = 0 To NUMBER_OF_DUTS - 1
Call Configure_7700_DCV(1 + (I * NUMBER_OF_DUTS) + (SLOT_7700 * 100), POWER_SUPPLY_VOLTAGE)
Call Configure_7700_ACV(2 + (I * NUMBER_OF_DUTS) + (SLOT_7700 * 100))
Call Configure_7700_CONT(3 + (I * NUMBER_OF_DUTS) + (SLOT_7700 * 100))
Call Configure_7700_TEMP(4 + (I * NUMBER_OF_DUTS) + (SLOT_7700 * 100))
Next
Call send(ADDRESS, "ROUT:CLOS:ACON ON", Status) ' Place instrument in auto-configure mode.
End Sub
'' ---------------------------------------------------------------------------------------------------------------------
'' 7705 Configurations
'' ---------------------------------------------------------------------------------------------------------------------
'' Configure_Power_Supplies(,) -
'' Uses the 7705 switch card to change the input voltage to the power supplies.
'' They may run at either high line or low line. A load of 10% or 90% is also
'' selected in this function.
''
'' Assume the following for the 7705:
'' 1) Channels 1 to 4 connect each of the possible DUTS to HIGH LINE.
'' 2) Channels 11 to 14 connect each of the possible DUTS to LOW LINE.
'' 3) Channels 21 to 24 connect each of the possible DUTS to 10% load.
'' 4) Channels 31 to 34 connect each of the possible DUTS to 90% load.
'' ---------------------------------------------------------------------------------------------------------------------
Private Sub Configure_Power_Supplies(Line As Integer, Load As Integer)
Dim Min_Channel, Max_Channel As String
' Insert code here to turn off power supply outputs.
Min_Channel = CStr((SLOT_7705 * 100) + 1)
Max_Channel = CStr((SLOT_7705 * 100) + 40)
Call send(ADDRESS, "ROUT:MULT:OPEN (@" & Min_Channel & ":" & Max_Channel & ")", Status) ' Open all 7705 channels.
Select Case (Line)
Case HIGH_LINE
Min_Channel = CStr((SLOT_7705 * 100) + 1)
Max_Channel = CStr((SLOT_7705 * 100) + NUMBER_OF_DUTS)
Call send(ADDRESS, "ROUT:MULT:CLOS (@" & Min_Channel & ":" & Max_Channel & ")", Status)
Case LOW_LINE
Min_Channel = CStr((SLOT_7705 * 100) + 1 + 10)
Max_Channel = CStr((SLOT_7705 * 100) + NUMBER_O 10)
Call send(ADDRESS, "ROUT:MULT:CLOS (@" & Min_Channel & ":" & Max_Channel & ")", Status)
End Select
Select Case (Load)
Case TEN_PERCENT_LOAD
Min_Channel = CStr((SLOT_7705 * 100) + 1 + 20)
Max_Channel = CStr((SLOT_7705 * 100) + NUMBER_O 20)
Call send(ADDRESS, "ROUT:MULT:CLOS (@" & Min_Channel & ":" & Max_Channel & ")", Status)
Case NINETY_PERCENT_LOAD
Min_Channel = CStr((SLOT_7705 * 100) + 1 + 30)
Max_Channel = CStr((SLOT_7705 * 100) + NUMBER_O 30)
Call send(ADDRESS, "ROUT:MULT:CLOS (@" & Min_Channel & ":" & Max_Channel & ")", Status)
End Select
' Insert code here to configure and/ or turn on power supply outputs.
End Sub
'' ---------------------------------------------------------------------------------------------------------------------
'' Measurement Functions
'' ---------------------------------------------------------------------------------------------------------------------
'' Take_Measurements() -
'' Closes the appropriate channels and takes a measurement using READ? command.
'' ---------------------------------------------------------------------------------------------------------------------
Содержание 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: ......
