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
81
3
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