0

Out of 0 Ratings

Owner's of the Agilent Technologies Portable Generator Agilent Technologies Portable Generator gave it a score of 0 out of 5. Here's how the scores stacked up:
  • Reliability

    0 out of 5
  • Durability

    0 out of 5
  • Maintenance

    0 out of 5
  • Performance

    0 out of 5
  • Ease of Use

    0 out of 5
of 136
 
Chapter 3 Calibration Procedures
An Example program of Excel 97 for Calibration
76
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
Continued on next page