Publicité
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()
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 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.
With Fgen
.WriteString "*RST"
.IO.Clear
.WriteString "OUTPut:LOAD 50"
.WriteString "FUNCtion:SHAPe SINusoid"
.WriteString "FREQuency 5000;VOLTage 5" ' La fréquence de la porteuse est de 5 kHz @ 5 Vpp
.WriteString "AM:INTernal:FUNCtion SINusoid"
.WriteString "AM:INTernal:FREQuency 200"
.WriteString "AM:DEPTh 80"
.WriteString "AM:STATe ON"
.WriteString "OUTPut ON"
.WriteString "*SAV 1"
' Utilise la commande "*RCL 1" pour rappeler l'état enregistré
End With
Exit Sub
MyError:
txtError = Err.Description & vbCrLf
Resume Next
End Sub
Chapitre 6 Programmes d'application
Listings des programmes
' Réinitialise le générateur de fonctions
' Efface les registres d'erreurs et d'états
' L'impédance de sortie est de 50 ohms
' La forme de la porteuse est
' La forme du signal modulant ' est sinusoïdale
' Fréquence de modulation = 200 Hz
' Taux de modulation = 80%
' Active la modulation AM
' Active la sortie de l'instrument
' Enregistre l'état dans l'emplacement ' mémoire 1
4
' sinusoïdale
6
303
Publicité
