Agilent Technologies E3632A User Manual page 139

Chapter 6 Application Programs
Excel 5.0 Example for Windows 3.1 and GPIB
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"
SendSCPI "Output ON"
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"
ClosePort
End Sub
136
'Reset E3632A to power on condition
'Turn on the output
'Turn off the output