Calibration Procedures 3
Keysight E3633A and E3634A Service Guide 91
If DacErrorCorrection = False Then
ClosePort
Exit Sub
End If
shunt = 0.001 'Change the current shunt value
UserAnswer = MsgBox(“Voltage & OVP calibration. Connect the output to the
DMM”, vbYesNo + vbQuestion, “E3633A Calibration”)
If UserAnswer = vbNo Then
ClosePort
Exit Sub
End If
Range("B4").Select
ActiveCell.Value = "Begin Voltage Calibration"
StartCalibration VoltageMin, True, shunt 'Set output to minimum voltage cal
ActiveCell.Value = "End Minimum Voltage Calibration"
StartCalibration VoltageMid, True, shunt 'Set output to middle voltage cal
ActiveCell.Value = "End Middle Voltage Calibration"
StartCalibration VoltageMax, True, shunt 'Set output to maximum voltage cal
ActiveCell.Value = "End Maximum Voltage Calibration"
Message = SendSCPI(power, "Syst:Err?")
If InStr(Message, "0") Then
ActiveCell.Value = "Voltage Calibration Complete"
Else
ActiveCell.Value = Message
ClosePort
Exit Sub
End If
OVPandOCPCalibration True
UserAnswer = MsgBox("Connect the Current shunt to the DMM input to
measure a current. Connect the output to the shunt.",
vbYesNo + vbQuestion, "E3633A Calibration")
If UserAnswer = vbNo Then
ClosePort
Exit Sub
End If
ActiveCell.Value = "Begin Current Calibration"
StartCalibration CurrentMin, False, shunt 'Set output to minimum current
cal
ActiveCell.Value = "End Minimum Current Calibration"
StartCalibration CurrentMid, False, shunt 'Set output to middle current cal
ActiveCell.Value = "End Middle Current Calibration"
StartCalibration CurrentMax, False, shunt 'Set output to maximum current
cal
ActiveCell.Value = "End Maximum Current Calibration"
Continued on next page
To Next Page
Loading...
Need help?
General
