Agilent Technologies E3633A, E3634A manual Calibration Procedures, End of Program

Chapter 3 Calibration Procedures

An Example program of Excel 97 for Calibration

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

Private Function SaveDate()

Dim Message As String

'calibration string enclosed in quotes

Message = "Cal:Str " & Chr(34) & Date & Chr(34)

SendSCPI power, Message

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

End Function

End of Program

3

81