Exemple : Balayage Linéaire - Agilent Technologies Agilent 33220A Guide D'utilisation

Exemple : balayage linéaire
Ce programme (situé dans le sous-répertoire "Examples\chapter6\LinearSweep" du
CD-ROM) crée un balayage linéaire pour un signal sinusoïdal. Il définit les fréquences
initiale et finale ainsi que la vitesse du balayage.
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
' Ce programme définit un balayage linéaire d'un signal
' sinusoïdal.
' du balayage.
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"
' Les limites du balayage en fréquence peuvent aussi être définies par
' FREQuency:CENTer et FREQuency:SPAN sur le 33250A
' Pour le 33250A, voir aussi MARKer:FREQuency
.WriteString "OUTPut ON"
6
.WriteString "SWEep:STATe ON"
End With
Exit Sub
MyError:
txtError = Err.Description & vbCrLf
Resume Next
End Sub
Chapitre 6 Programmes d'application
Listings des programmes
Il définit les fréquences initiale et finale ainsi que la vitesse
344
' Réinitialise le générateur de fonctions
' Efface les registres d'erreurs et d'états
' Sélectionne la forme du signal
'Définit l'impédance de charge à
' 50 ohms (valeur par défaut)
' Règle l'amplitude à 1 Vpp.
' Détermine si le balayage progresse
' linéairement ou selon une loi logarithmique
' La vitesse de balayage est de 1 seconde
' La fréquence initiale est de 100 Hz
' La fréquence finale est de 20 kHz
' Active la sortie de l'instrument
' Active le balayage