An Example Program Of Excel 97 For Calibration - Agilent Technologies E3634A Service Manual

An Example program of Excel 97 for Calibration

An Example program of Excel 97 for Calibration
'**************************************************************************************
'This program was written on a PC with Excel Macros (Visual Basic
'for Windows 95 or Windows NT 4.0. It will make software adjustments to the E3633A
'Power Supply on the GPIB bus using a Agilent 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()
Dim shunt As Single 'Current shunt value in Ohms
Dim UserAnswer
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
'User response
Ò
Ò
for Applications)
Continued on next page
75
3