Publicité
MyError:
End Sub
Exemple : téléchargement d'un signal de forme arbitraire (ASCII)
Ce programme (situé dans le sous-répertoire "Examples\chapter6\ASCIIarb" du
CD-ROM) télécharge un signal arbitraire vers le générateur de fonctions comme
des données ASCII. Les valeurs des données se situent dans la gamme -1 à +1.
Private Sub cmdASCIIArb_Click()
' Ce programme utilise la fonction de signal arbitraire pour
' télécharger et délivrer une impulsion en signal carré ayant des temps
' de montée et de descente calculés.
' points téléchargés vers le générateur de fonctions comme des données ASCII.
' Calcule le signal
Keysight 33210A Guide d'utilisation
.WriteString "PWM:SOURce INTernal" ' Un signal interne sera utilisé pour
' la modulation
' Si un signal externe est utilisé pour la modulation PWM, connectez-le au
' connecteur BNC de la face arrière, et utilisez la commande ' PWM:SOURce
EXTernal
.WriteString "PWM:STATe ON"' Active la modulation PWM
.WriteString "OUTPut ON" ' Active la sortie de l'instrument
End With
Exit Sub
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 Waveform() As String
Dim I As Integer
Dim DataStr As String
ReDim Waveform(1 To 4000)
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
.IO.Timeout = 40000 ' Règle la temporisation à 40 secondes pour
' les longues chaînes de téléchargement
End With
Programmes d'application
Le signal se compose de 4000
6
363
Publicité
