User`s guide
Table Of Contents
- Agilent E3632A DC Power Supply
- Table of Contents
- List of Figures
- List of Tables
- 1 Getting Started
- 2 Operation and Features
- Overview
- Constant Voltage Operation
- Constant Current Operation
- Storing and Recalling Operating States
- Programming the Overvoltage Protection
- Programming the Overcurrent Protection
- Remote Voltage Sensing
- Disabling the Output
- System-Related Operations
- Remote Interface Configuration
- GPIB Interface Configuration
- RS-232 Interface Configuration
- Calibration
- 3 Remote Interface Reference
- SCPI Command Summary
- Introduction to the SCPI Language
- Simplified Programming Overview
- Using the APPLy Command
- Output Settings and Operation Commands
- Triggering Commands
- System-Related Commands
- Calibration Commands
- RS-232 Interface Commands
- SCPI Status Registers
- What is an event register?
- What is an enable register?
- SCPI status system
- The Questionable Status register
- The Standard Event register
- The Status Byte register
- Using Service Request (SRQ) and Serial POLL
- Using *STB? to read the Status Byte
- Using the Message Available Bit (MAV)
- To interrupt your bus controller using SRQ
- To determine when a command sequence is completed
- Using *OPC to signal when data is in the output buffer
- Status Reporting Commands
- Halting an Output in Progress
- SCPI Conformance Information
- IEEE-488 Conformance Information
- 4 Error Messages
- 5 Application Programs
- 6 Tutorial
- 7 Characteristics and Specifications
Application Programs 5
Example Program for Excel 5.0 (Windows 3.1 and GPIB)
E3632A User’s Guide 145
Diode bas Macro
Option Explicit
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
' This is the subroutine first executed. Modify this routine
' to suit your needs. To change the GPIB address, go to the module GPIB,
' Sub OpenPort(), and change the variable VISAaddr = "5" to the
' required GPIB address
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Sub Diode()
Range("B5:B15").ClearContents
Dim I As Integer
OpenPort
SendSCPI "*RST" 'Reset E3632A to power on condition
SendSCPI "Output ON" 'Turn on the output
For I = 5 To 15
' Convert the worksheet value to a string, add to SCPI command
SendSCPI "Volt" & Str$(Cells(I, 1))
' Request a current measurement, put response in worksheet
Cells(I, 2) = Val(SendSCPI("meas:current?"))
Next I
SendSCPI "Output OFF" 'Turn off the output
ClosePort
End Sub