Rohde & Schwarz R&S FSVR Guide De Démarrage Rapide page 147

®
R&S FSVR
● Créer une file d'attente de réponse
Étant donné que la DLL retourne les réponses sous forme de chaînes terminé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() , car Visual Basic place au début des
chaînes une indication de longueur qui n'est pas actualisée par la DLL. Les deux
méthodes suivantes permettent la création d'une indication de longueur 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 procédure Ins-
trWrite() 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)
'Check for errors - this will raise an error if status is not VI_SUCCESS
CALL CheckError(vi, status)
End Sub
Public Sub InstrRead(ByVal vi As Long, Response As String, _
ByVal count As Long, retCount As Long)
Guide de démarrage rapide 1311.0670.63 ─ 03
Brève introduction à la commande à distance
Étapes de base de la programmation en commande à distance
147