Publicité
6
Programmes d'application
MyError:
End Sub
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()
' Ce programme définit un balayage linéaire d'un signal
' sinusoïdal.
' du balayage.
' Les limites du balayage en fréquence peuvent aussi être définies par
' FREQuency:SPAN sur le 332x0A
' Pour le 332x0A, voir également MARKer:FREQuency
360
txtError = Err.Description & vbCrLf
Resume Next
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
Il définit les fréquences initiale et finale ainsi que la vitesse
With Fgen
.WriteString "*RST" ' Réinitialise le générateur de fonctions
. IO.Clear ' Efface les registres d'erreurs et d'états
.WriteString "FUNCtion SINusoid"' Sélectionne la forme du signal
.WriteString "OUTPut:LOAD 50"' Définit l'impédance de charge à
' 50 ohms (valeur par défaut)
.WriteString "VOLTage 1"' Règle l'amplitude à 1 Vpp.
.WriteString "SWEep:SPACing LINear"' Détermine si le balayage progresse
' linéairement ou selon une loi logarithmique
.WriteString "SWEep:TIME 1"' La vitesse de balayage est de 1 seconde
.WriteString "FREQuency:STARt 100" ' La fréquence initiale est de 100 Hz
.WriteString "FREQuency:STOP 20e3" ' La fréquence finale est de 20 kHz
.WriteString "OUTPut ON"' Active la sortie de l'instrument
.WriteString "SWEep:STATe ON"' Active le balayage
End With
Exit Sub
Keysight 33210A Guide d'utilisation
Publicité
