Agilent-technologies System DC N5700 Bedienungsanleitung Seite 83

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 132
  • Inhaltsverzeichnis
  • LESEZEICHEN
  • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 82
Programming Examples 6
Series N5700 User’s Guide 83
' Set the over voltage level
.WriteString "VOLT:PROT:LEV " & Str$(overVoltSetting)
' Turn on over current protection
.WriteString "CURR:PROT:STAT " & Str$(overCurrOn)
' Set the current level
.WriteString "CURR " & Str$(CurrSetting)
' Turn the output on
.WriteString "OUTP ON"
' Make sure that the output is on before continuing
.WriteString "*OPC?"
.ReadString
' Measure the voltage
.WriteString "Meas:Volt?"
measVolt = .ReadNumber
MsgBox "Measured Voltage is " & Str$(measVolt)
' Check instrument for any errors
.WriteString "Syst:err?"
ErrString = .ReadString
' give message if there is an error
If Val(ErrString) Then
MsgBox "Error in instrument!" & vbCrLf & ErrString
End If
End With
End Sub
Seitenansicht 82
1 2 ... 78 79 80 81 82 83 84 85 86 87 88 ... 131 132

Kommentare zu diesen Handbüchern

Keine Kommentare