Rohde & Schwarz R&S FSVA Guide De Démarrage Rapide page 180

®
R&S FSVA/FSV
Les modules visa32.bas et vpptype.bas sont accessibles sous
<VXIpnpPath>\WinNT\include (généralement
C:\VXIpnp\WinNt\include).
Une autre solution consiste à ajouter au projet une référence à VISA32.DLL.
● Créer une file d'attente de réponse
Étant donné que la DLL renvoie des réponses contenant des chaînes termi-
nées par un zéro, une chaîne de longueur suffisante doit être générée avant
l'appel des fonctions InstrRead() et ilrd(). En effet, Visual Basic place
en début de chaîne une indication de longueur que la DLL n'actualise pas.
Les deux méthodes suivantes permettent la création d'une indication de lon-
gueur pour une chaîne :
Dim Rd as String * 100
Dim Rd as String
Rd = Space$(100)
● Création de procédures d'encapsulation pour l'écriture et la lecture
Les fonctions "VISA" nécessitant des chaînes de commande et de réponse
ainsi que leur longueur correspondante dans deux paramètres distincts, le
code de programmation principal est plus facile à lire et à maintenir si les
fonctions de lecture et d'écriture sont encapsulées. Dans cet exemple, la pro-
cédure InstrWrite() encapsule la fonction viWrite(), et InstrRead()
encapsule viRead(). En outre, ces encapsulateurs incluent des contrôles
d'état :
Public Sub InstrWrite(ByVal vi As Long, ByVal Cmd As String)
Dim status As Long
Dim retCount As Long
'Send command to instrument and check for status
status = viWrite(vi, Cmd, Len(Cmd), retCount)
Guide de démarrage rapide 1321.3066.09 ─ 03
Brève introduction à la commande à distance
Étapes de base de la programmation en commande à distance
157