Exemple : Téléchargement D'un Signal Arbitraire (En Ascii) - Agilent Technologies Agilent 33220A Guide D'utilisation

Exemple : téléchargement d'un signal arbitraire (en 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()
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
' 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.
With Fgen
.WriteString "*RST"
.IO.Clear
.IO.Timeout = 40000
End With
' Calcule le signal
txtError.Text = ""
txtError.SelText = "Computing Waveform..." & vbCrLf
For I = 1 To 5
Waveform(I) = Str$((I - 1) / 5)
Next I
For I = 6 To 205
Waveform(I) = "1"
Next I
For I = 206 To 210
Waveform(I) = Str$((210 - I) / 5)
Next I
For I = 211 To 4000
Waveform(I) = "0"
Next I
DataStr = Join(Waveform, ",")
Suite à la page suivante...
Chapitre 6 Programmes d'application
Listings des programmes
Le signal se compose de 4000
' Réinitialise le générateur de fonctions
' Efface les registres d'erreurs et d'états
' Règle la temporisation à 40 secondes pour
' les longues chaînes de téléchargement
' Définit le temps de montée (5 points)
' Définit la largeur d'impulsion (200 points)
' Définit le temps de descente (5 points)
' Définit les points restants à zéro
' Crée la chaîne d'après le tableau de données
4
6
347