Example: A Pulse Waveform - Keysight Technologies 33210A User Manual

Example: A Pulse Waveform

This program (found in the "Examples\chapter6\Pulse" subdirectory on the
CD-ROM) configures a pulse waveform, setting pulse width, period, and high/low
levels. The edge time is then incremented.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub cmdPulse_Click()
MyError:
Keysight 33210A User's Guide
Dim io_mgr As VisaComLib.ResourceManager
Dim Fgen As VisaComLib.FormattedIO488
Set io_mgr = New VisaComLib.ResourceManager
Set Fgen = New VisaComLib.FormattedIO488
Set Fgen.IO = io_mgr.Open(txtIO.Text)
Dim I As Integer
On Error GoTo MyError
' This program sets up a pulse waveshape and adjusts the edge
' time. It also shows the use of high and low voltage levels
' and period. The edge time is adjusted by 5 nsec increments.
With Fgen
.WriteString "*RST"
.IO.Clear
.WriteString "FUNCtion PULSe"
.WriteString "OUTPut:LOAD 50"
.WriteString "VOLTage:LOW 0"
.WriteString "VOLTage:HIGH 0.75"
.WriteString "PULSe:PERiod 1e-3"
.WriteString "PULSe:WIDTh 100e-6"
.WriteString "PULSe:TRANsition 20e-9"
.WriteString "OUTPut ON"
For I = 0 To 18
' Vary edge by 5 nsec steps
.WriteString "PULSe:TRANsition " & (0.00000001 + I * 0.000000005)
Sleep 300
Next I
End With
Exit Sub
txtError = Err.Description & vbCrLf
Resume Next
Application Programs
' Reset the function generator
' Clear errors and status registers
' Select pulse waveshape
' Set the load impedance to 50 Ohms
' (default)
' Low level = 0 V
' High level = .75 V
' 1 ms intervals
' Pulse width is 100 us
' Edge time is 20 ns
' (rise time = fall time)
' Turn on the instrument output
' Wait 300 msec
6
335