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
80
Private Function DacErrorCorrection() As Boolean
Dim Message As String
SendSCPI power, "Output On" 'Turn on the power supply output
SendSCPI power, "Cal:Dac:Error"
For I = 1 To 27
delay 1
ActiveCell.Value = "Waitting for " & Str$(27 - I) & "secs"
Next I
SendSCPI power, "Output Off" 'Turn off the power supply output
Message = SendSCPI(power, "Syst:Err?")
If InStr(Message, "0") Then
ActiveCell.Value = "DAC DNL Error Correction completed for power supply"
DacErrorCorrection = True
Else
ActiveCell.Value = Message
DacErrorCorrection = False
End If
End Function
Private Function StartCalibration(mode As Integer, bVolt As Boolean, shunt As Single)
Dim DMMdata As Single
SendSCPI power, "Output On" 'Turn on the power supply output
Select Case mode
Case VoltageMin
SendSCPI power, "Cal:Volt:Level Min" 'Set output to minimum cal value
Case VoltageMid
SendSCPI power, "Cal:Volt:Level Mid" 'Set output to middle cal value
Case VoltageMax
SendSCPI power, "Cal:Volt:Level Max" 'Set output to maximum cal value
Case CurrentMin
SendSCPI power, "Cal:Curr:Level Min" 'Set output to minimum cal value
Case CurrentMid
SendSCPI power, "Cal:Curr:Level Mid" 'Set output to middle cal value
Case CurrentMax
SendSCPI power, "Cal:Curr:Level Max" 'Set output to maximum cal value
End Select
delay 4
DMMdata = SendSCPI(DMM, "Meas:Volt:DC?") 'measure output
Continued on next page