Agilent Technologies 81689A Betriebsanweisung Seite 77

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 117
  • Inhaltsverzeichnis
  • LESEZEICHEN
  • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 76
Chapter 3 Calibration Procedures
An Example program of Excel 97 for Calibration
77
3
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
Seitenansicht 76
1 2 ... 72 73 74 75 76 77 78 79 80 81 82 ... 116 117

Kommentare zu diesen Handbüchern

Keine Kommentare