EasyManua.ls Logo

Agilent Technologies E3633A User Manual

Agilent Technologies E3633A
176 pages
To Next Page IconTo Next Page
To Next Page IconTo Next Page
To Previous Page IconTo Previous Page
To Previous Page IconTo Previous Page
Page #142 background imageLoading...
Page #142 background image
Chapter 6 Application Programs
Example Program for Excel 97
129
6
Diode Macro
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
' This is the subroutine first executed. Modify this routine to suit
' your needs. To change the GPIB address, go to the module OpenPort, and
' change the variable GPIB_Address = "5” to the required GPIB address.
' To change the RS-232 port, go to the moudle OpenPort, and change the
' variable COM_Address = "1” to the required port
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Global defaultRM As Long ' Resource manager id for VISA GPIB
Global power_supply As Long ' Identifies power supply
Global bGPIB As Boolean ' A flag using of GPIB or RS-232
Global ErrorStatus As Long ' VISA Error code
Sub Diode_Click()
Range("B5:B15").ClearContents
Dim I As Integer
bGPIB = True ' To use RS-232, set the bGPIB to False
OpenPort
SendSCPI "*RST" ' Set power-on condition
SendSCPI "Output on" ' Turn on the output
For I = 5 To 15
SendSCPI "Volt " & Str$(Cells(I, 1))
Cells(I, 2) = Val(SendSCPI("Meas:Current?"))
Next I
SendSCPI "Output off" ' Turn off the output
ClosePort
End Sub
Private Function OpenPort()
Dim GPIB_Address As String
Dim COM_Address As String
If bGPIB Then
GPIB_Address = "5" ' Select GPIB address between 0 to 30
Else
COM_Address = "1" ' Set the number to 2 for COM2 port
End If
ErrorStatus = viOpenDefaultRM(defaultRM) ' Open the VISA session
If bGPIB Then
ErrorStatus = viOpen(defaultRM, "GPIB0::" & GPIB_Address & "::INSTR", _
0, 1000, power_supply)
Else
ErrorStatus = viOpen(defaultRM, "ASRL" & COM_Address & "::INSTR", _
0, 1000, power_supply)
SendSCPI "System:Remote"
End If
CheckError "Unable to open port"
End Function
Continued on next page

Table of Contents

Other manuals for Agilent Technologies E3633A

Question and Answer IconNeed help?

Do you have a question about the Agilent Technologies E3633A and is the answer not in the manual?

Agilent Technologies E3633A Specifications

General IconGeneral
Output Current Range0 to 3 A
Operating Temperature Range0 to 50 °C
Storage Temperature Range-40 to 70 °C
Ripple and Noise (Vp-p)Voltage: <2 mV
Current Ripple and Noise (20 Hz to 20 MHz)<500 μA
Voltage Programming Accuracy0.05% + 10 mV
Current Programming Accuracy0.1% + 5 mA
Ripple and Noise (rms)≤ 350 µV

Summary

General Information

Safety Considerations

Essential safety guidelines and compliance requirements for instrument operation.

Initial Operation

Preliminary Checkout

Steps to verify supplied items, voltage setting, and fuse installation.

Power-On Checkout

Verifies instrument self-test, display, and basic annunciator status upon power-up.

Output Checkout

Procedures to check voltage and current output functions with no load.

Front-Panel Operation

Constant Voltage Operation

Step-by-step guide to setting up and operating the power supply in CV mode.

Constant Current Operation

Step-by-step guide to setting up and operating the power supply in CC mode.

Programming Overvoltage Protection

Instructions for setting OVP trip levels, checking operation, and clearing conditions.

Programming Overcurrent Protection

Instructions for setting OCP trip levels, checking operation, and clearing conditions.

Remote Interface Reference

SCPI Command Summary

A comprehensive list of SCPI commands for programming the power supply remotely.

Error Messages

Application Programs

Specifications

Related product manuals