Agilent Technologies 81689A Guía de usuario Pagina 82

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 117
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 81
Chapter 3 Calibration Procedures
An Example program of Excel 97 for Calibration
82
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
Vista de pagina 81
1 2 ... 77 78 79 80 81 82 83 84 85 86 87 ... 116 117

Comentarios a estos manuales

Sin comentarios