Keysight Technologies E3633A - Page 95

Calibration Procedures 3
Keysight E3633A and E3634A Service Guide 95
Private Function StartCalibration(mode As Integer, bVolt As Boolean, shunt As
Single)
Dim DMMdata As Single
SendSCPI power, "Output On" 'Turn on the power supply outpu
Select Case mode
Case VoltageMin
SendSCPI power, "Cal:Volt:Level Min" 'Set output to minimum cal
value
Case VoltageMid
SendSCPI power, "Cal:Volt:Level Mid" 'Set output to middle cal
value
Case VoltageMax
SendSCPI power, "Cal:Volt:Level Max" 'Set output to maximum cal
value
Case CurrentMin
SendSCPI power, "Cal:Curr:Level Min" 'Set output to minimum cal
value
Case CurrentMid
SendSCPI power, "Cal:Curr:Level Mid" 'Set output to middle cal
value
Case CurrentMax
SendSCPI power, "Cal:Curr:Level Max" 'Set output to maximum cal
value
End Select
delay 4
DMMdata = SendSCPI(DMM, "Meas:Volt:DC?") 'measure output
If bVolt Then
'Send the measured voltage value to the power supply
SendSCPI power, "Cal:Volt:Data " & Str(DMMdata)
Else
'Send the measured current value to the power supply
SendSCPI power, "Cal:Curr:Data " & Str(DMMdata / shunt)
End If
SendSCPI power, "Output Off" 'Turn off the power supply output
End Function
Private Function OVPandOCPCalibration(bVolt As Boolean)
SendSCPI power, "Output On" 'Turn on the power supply output
If bVolt Then
ActiveCell.Value = " Begin OVP Calibration"
SendSCPI power, "Cal:Volt:Prot" 'Perform OVP circuit calibration
Else
ActiveCell.Value = " Begin OCP Calibration"
SendSCPI power, "Cal:Curr:Prot" 'Perform OCP circuit calibration
End If
delay 9
SendSCPI power, "Output Off" 'Turn off the power supply output
End Function
Continued on the next page