Table of Contents
Advertisement
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)
Call send(ADDRESS, "SENS:RES:RANG 10" & Channel_Str, Status)
Call send(ADDRESS, "SENS:RES:NPLC 0.1" & Channel_Str, Status)
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)
Call send(ADDRESS, "SENS:TEMP:TRAN TC" & Channel_Str, Status)
Call send(ADDRESS, "SENS:TEMP:TC:TYPE T" & Channel_Str, Status)
Call send(ADDRESS, "SENS:TEMP:TC:RJUN:RSEL INT" & Channel_Str, Status)
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)
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.
''
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)
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_OF_DUTS + 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_OF_DUTS + 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_OF_DUTS + 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.
'' ---------------------------------------------------------------------------------------------------------------------
20
' Set channel to measure 2W ohms.
' Set resistance range.
' Set meaurement speed to fast.
' Set channel to TEMP measurement.
' Select thermocouple measurement.
' Use T thermocouples.
' Use internal reference junction.
' Place instrument in auto-configure mode.
A load of 10% or 90% is also
' Open all 7705 channels.
Advertisement
Table of Contents
