3 Calibration Procedures
90 Keysight E3633A and E3634A Service Guide
An Example Program of Excel 97 for Calibration
This section contains an Excel Macros (Visual Basic® for Applications) program
for calibration over the GPIB interface. This program makes software adjustments
to the E3633A power supply using a current shunt and a digital multimeter which
is connected to the controller. In this program a 0.001 ohm current shunt is used.
Be sure to change the value of the variable “shunt” to the value of the current
shunt used and the GPIB address for the power supply and the digital voltmeter.
'**********************************************************************
' This program was written on a PC with Excel Macros (Visual Basic® for
' Applications) for Windows 95 or Windows NT 4.0. It will make software
' adjustments to the E3633A Power Supply on the GPIB bus using a
' Keysight 34401A Digital Multimeter and a current shunt. In the program
' a 0.001 ohm current shunt is used to measure current. Be sure to
' change the value of the variable ‘shunt’ to the value of the current
' shunt used.
'**********************************************************************
Global id_power As Long
Global id_DMM As Long
Global power As Long
Global DMM As Long
Global Const VI_SUCCESS = &H0&
Global Const VoltageMin = 0
Global Const VoltageMid = 1
Global Const VoltageMax = 2
Global Const CurrentMin = 3
Global Const CurrentMid = 4
Global Const CurrentMax = 5
Sub Calibration_Click()Max
Dim shunt As Single 'Current shunt value in Ohms
Dim UserAnswer 'User response
Range("B4:B6").ClearContents
If OpenPort = False Then
ClosePort
Exit Sub
End If
InitializeDevice
EnableOVPandOCP False
If CheckSecurity = False Then
ClosePort
Exit Sub
End If
Continued on next page