Publicité
Exemple : signal sinusoïdal simple
Ce programme (situé dans le sous-répertoire "Examples\chapter6\SimpleSine" du
CD-ROM) sélectionne la fonction "sine," (signal sinusoïdal), puis règle la fréquence,
l'amplitude et la tension continue de décalage du signal.
Private Sub cmdSimpleSine_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 signal en sélectionnant sa forme
' et règle sa fréquence, son amplitude et sa tension continue de décalage.
With Fgen
.WriteString "*RST"
.IO.Clear
.WriteString "FUNCtion SINusoid"
' Les autres options sont : SQUare, RAMP, PULSe, NOISe, DC et USER
.WriteString "OUTPut:LOAD 50"
' Peut aussi être INFinity, comme dans le cas de l'utilisation d'un'
oscilloscope ou d'un multimètre numérique
.WriteString "FREQuency 2500"
.WriteString "VOLTage 1.2"
6
.WriteString "VOLTage:OFFSet 0.4" ' Règle la tension continue de décalage en ' volts
' La tension peut aussi être définie par VOLTage:HIGH et VOLTage:LOW pour le
' niveau haut et le niveau bas
.WriteString "OUTPut ON"
End With
Exit Sub
MyError:
txtError = Err.Description & vbCrLf
Resume Next
End Sub
Chapitre 6 Programmes d'application
Listings des programmes
Listings des programmes
302
' 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 en ohms
' (50 ohms par défaut)
' Règle la fréquence.
' Règle l'amplitude en Vpp.
' Voir aussi VOLTage:UNIT
' Active la sortie de l'instrument
Publicité
