Inhaltsverzeichnis
Werbung
Beispiel: Lineare Wobbelung
Dieses Programm (auf der CD-ROM im Unterverzeichnis „Examples\chapter6\Linear-
Sweep" zu finden) erstellt eine lineare Wobbelung für ein Sinus-Signal. Es legt die Start-
und die Stop-Frequenz sowie die Wobbelzeit fest.
Private Sub cmdLinearSweep_Click()
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)
On Error GoTo MyError
' This program sets up a linear sweep using a sinusoid
' waveform.
' time.
With Fgen
.WriteString "*RST"
.IO.Clear
.WriteString "FUNCtion SINusoid"
.WriteString "OUTPut:LOAD 50"
.WriteString "VOLTage 1"
.WriteString "SWEep:SPACing LINear"
.WriteString "SWEep:TIME 1"
.WriteString "FREQuency:STARt 100"
.WriteString "FREQuency:STOP 20e3"
' Frequency sweep limits may also be set as FREQuency:CENTer and
' FREQuency:SPAN on the 33250A
' For the 33250A, also see MARKer:FREQuency
.WriteString "OUTPut ON"
.WriteString "SWEep:STATe ON"
6
End With
Exit Sub
MyError:
txtError = Err.Description & vbCrLf
Resume Next
End Sub
Kapitel 6 Anwendungsprogramme
Programmbeispiel Beispiel: Einfache Sinus-Signalform
It sets the start and stop frequency and sweep
338
' Reset the function generator
' Clear errors and status registers
' Select waveshape
' Set the load impedance to
' 50 Ohms (default)
' Set the amplitude to 1 Vpp.
' Set Linear or LOG spacing
' Sweep time is 1 second
' Start frequency is 100 Hz
' Stop frequency is 20 kHz
' Turn on the instrument output
' Turn sweep on
Werbung
Kapitel
Inhaltsverzeichnis
