Publicité
MyError:
End Sub
Exemple : modulation d'amplitude
Ce programme (situé dans le sous-répertoire "Examples\chapter6\AMLowLevel"
du CD-ROM) configure un signal modulé en amplitude à l'aide de commandes
SCPI de bas niveau. Il montre aussi comment utiliser la commande *SAV pour
enregistrer la configuration du générateur de fonctions dans sa mémoire interne.
Private Sub cmdAMLowLevels_Click()
' Ce programme utilise des commandes SCPI de bas niveau pour configurer
' le générateur de fonctions afin qu'il délivre un signal AM.
' Il montre aussi comment utiliser le "stockage d'états" pour
' enregistrer la configuration de l'instrument en mémoire.
Keysight 33210A Guide d'utilisation
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
With Fgen
.WriteString "*RST" ' Réinitialise le générateur de fonctions
.IO.Clear ' Efface les registres d'erreurs et d'états
.WriteString "OUTPut:LOAD 50" ' L'impédance de sortie est de 50 ohms
.WriteString "FUNCtion:SHAPe SINusoid"' La forme de la porteuse est '
.WriteString "FREQuency 5000;VOLTage 5"' La fréquence de la porteuse est de 5 kHz @ 5
.WriteString "AM:INTernal:FUNCtion SINusoid" ' La forme du signal modulant ' est
.WriteString "AM:INTernal:FREQuency 200"' Fréquence de modulation = 200 Hz
.WriteString "AM:DEPTh 80"' Taux de modulation = 80%
.WriteString "AM:STATe ON"' Active la modulation AM
.WriteString "OUTPut ON"' Active la sortie de l'instrument
.WriteString "*SAV 1"' Enregistre l'état dans l'emplacement ' mémoire 1
' Utilise la commande "*RCL 1" pour rappeler l'état enregistré
End With
Exit Sub
Programmes d'application
sinusoïdale
Vpp
inusoïdale
6
359
Publicité
