Exemple : Signal D'impulsions - Agilent Technologies Agilent 33220A Guide D'utilisation

Exemple : signal d'impulsions

Ce programme (situé dans le sous-répertoire "Examples\chapter6\Pulse" du CD-ROM)
configure un signal impulsionnel, réglant la largeur d'impulsion, la période et les
niveaux haut/bas. Le temps de transition est alors incrémenté.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub cmdPulse_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)
Dim I As Integer
On Error GoTo MyError
' Ce programme définit une forme de signal d'impulsions et règle le temps
' de transition.
' bas et de la période.
With Fgen
.WriteString "*RST"
.IO.Clear
.WriteString "FUNCtion PULSe"
.WriteString "OUTPut:LOAD 50"
.WriteString "VOLTage:LOW 0"
.WriteString "VOLTage:HIGH 0.75"
.WriteString "PULSe:PERiod 1e-3"
.WriteString "PULSe:WIDTh 100e-6"
.WriteString "PULSe:TRANsition 10e-9"
.WriteString "OUTPut ON"
For I = 0 To 18
' Modifie le temps de transition par incréments de 5 ns
.WriteString "PULSe:TRANsition " & (0.00000001 + I * 0.000000005)
Sleep 300
Next I
End With
Exit Sub
MyError:MyError:
txtError = Err.Description & vbCrLf
Resume Next
End Sub
Il illustre aussi l'utilisation des niveaux de tension haut et
Le temps de transition est réglé par incréments de 5 ns.
Chapitre 6 Programmes d'application
Listings des programmes
' Réinitialise le générateur de fonctions
' Efface les registres d'erreurs et d'états
' Sélectionne la forme de signal d'impulsions
' Règle l'impédance de charge à 50 ohms
' (valeur par défaut)
' Niveau bas = 0 V
' Niveau haut = 0,75 V
' Période d'1 ms
' La largeur d'impulsion est de 100 us
' Le temps de transition est de 10 ns
' (temps de montée = temps de descente)
' Active la sortie de l'instrument
' Marque une pause pendant 300 ms
4
6
345