Keysight Technologies E3633A User Manual

3 Calibration Procedures
94 Keysight E3633A and E3634A Service Guide
Private Function CheckSecurity() As Boolean
Dim Message As String
Dim SecurityCode As String
Message = SendSCPI(power, "Cal:Str?")
Range("B5").Select
ActiveCell.Value = Message
Message = SendSCPI(power, "Cal:Count?")
Range("B6").Select
ActiveCell.Value = Message
Range("B4").Select
SecurityCode = "HP003633"
SendSCPI power, "Cal:Sec:Stat Off," & SecurityCode
Message = SendSCPI(power, "Cal:Sec:Stat?")
If InStr(Message, "1") Then
ActiveCell.Value = "Unable to Unsecure the Power Supply"
CheckSecurity = False
Else
Message = SendSCPI(power, "Syst:Err?")
If InStr(Message, "0") Then
CheckSecurity = True
Else
ActiveCell.Value = Message
CheckSecurity = False
End If
End If
End Function
Private Function DacErrorCorrection() As Boolean
Dim Message As String
SendSCPI power, "Output On" 'Turn on the power supply output
SendSCPI power, "Cal:Dac:Error"
For I = 1 To 27
delay 1
ActiveCell.Value = "Waitting for " & Str$(27 - I) & "secs"
Next I
SendSCPI power, "Output Off" 'Turn off the power supply output
Message = SendSCPI(power, "Syst:Err?")
If InStr(Message, "0") Then
ActiveCell.Value = "DAC DNL Error Correction completed for power
supply"
DacErrorCorrection = True
Else
ActiveCell.Value = Message
DacErrorCorrection = False
End If
End Function
Continued on next page

Keysight Technologies E3633A Specifications

General

Brand	Keysight Technologies
Model	E3633A
Category	Power Supply
Language	English