Table des Matières
Publicité
Exemples de programmation détaillés
Lecture des données de courbe
Dans l'exemple ci-après, les données de courbe obtenues avec le réglage par défaut sont
lues sur l'appareil et affichées dans une liste à l'écran. La lecture s'effectue d'abord au
format binaire puis au format ASCII, une fois pour une plage de représentation > 0 et une
fois pour une plage de représentation = 0.
Au format binaire, l'en-tête du message s'évalue au moyen de l'indication de longueur et
s'utilise pour le calcul des valeurs de l'axe des x.
Au format ASCII, seule la liste des valeurs de niveau est lue.
La lecture des données binaires s'effectue en 3 étapes :
1. Lecture du nombre de chiffres de l'indication de longueur.
2. Lecture de l'indication de longueur.
3. Lecture des données de courbe.
Cette procédure est nécessaire pour les langages de programmation qui ne supportent que
des structures avec types similaires de données (tableaux) (Visual Basic, p. ex.), étant
donné que les types de données diffèrent par l'en-tête et la partie données dans le cas de
données binaires.
La bibliothèque VISA fournit uniquement un mécanisme permettant la lecture dans des files
d'attentes de chaînes. Pour convertir les données en tableau de valeurs de précision
unique, le contenu de la chaîne doit être copié dans une file d'attente de ce type. L'exemple
suivant utilise une fonction du système d'exploitation permettant l'opération de copie. La
déclaration de fonction doit être ajoutée à un module (.bas) de la manière suivante.
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As
Any, pSource As Any, ByVal ByteLen As Long)
Les tableaux destinés aux données de mesure sont dimensionnés de manière
à laisser un espace suffisant pour les données de courbe du R&S FSL (501
points de mesure).
REM ************************************************************************
Public Sub ReadTrace()
'––––––––– Création de variables ––––––––––––––––––––––––––––––––––––––––––––––––
Dim traceData(1250) As Single
virgule flottante
Dim digits As Byte
Dim traceBytes As Integer
Dim traceValues As Integer
Dim BinBuffer as String * 5000
Dim retCount as Long
asciiResult$ = Space$(25000)
result$ = Space$(100)
startFreq$ = Space$(100)
span$ = Space$(100)
1300.2519.63
'File d'attente pour données binaires en
'Nbre de caract. de l'indication de longueur
'Long. des données de courbe en octets
'Nbre val. mes. en file d'att.
'File d'attente pour données binaires
'File d'attente pour données de courbe ASCII
'File d'att. résultats simples
'File d'att. pour fréq. départ
'File d'att. pour gamme fréq.
6.18
R&S FSL
F-3
Publicité
Table des Matières
