Filter
Top Products
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