Publicité
MyError:
End Sub
Exemple : un 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()
' Ce programme définit une forme de signal d'impulsions et règle le temps
' du balayage.
' bas et de la période. Le temps de transition est réglé par incréments de 5 ns.
' Modifie le temps de transition par incréments de 5 ns
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)
Dim I As Integer
On Error GoTo MyError
Il illustre aussi l'utilisation des niveaux de tension haut et
With Fgen
.WriteString "*RST" ' Réinitialise le générateur de fonctions
.IO.Clear ' Efface les registres d'erreurs et d'états
.WriteString "FUNCtion PULSe" ' Sélectionne la forme de signal d'impulsions
.WriteString "OUTPut:LOAD 50" ' Définit l'impédance de charge à 50 ohms
' (par défaut)(valeur par défaut)
.WriteString "VOLTage:LOW 0" ' Niveau bas = 0 V
.WriteString "VOLTage:HIGH 0.75" ' Niveau haut = 0,75 V
.WriteString "PULSe:PERiod 1e-3" ' Période d'1 ms
.WriteString "PULSe:WIDTh 100e-6"' La largeur d'impulsion est de 100 us
.WriteString "PULSe:TRANsition 20e-9"' Le temps de transition est de 20
' (temps de montée = temps de descente)
.WriteString "OUTPut ON"' Active la sortie de l'instrument
For I = 0 To 18
.WriteString "PULSe:TRANsition " & (0.00000001 + I * 0.000000005)
Sleep 300' Marque une pause pendant 300 ms
Programmes d'application
ns
6
361
Publicité
