Initialisation Et État Par Défaut - Rohde & Schwarz R&S FSVA Guide De Démarrage Rapide

®
R&S FSVA/FSV
'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)
Dim status As Long
'Initialize response string
Response = Space(count)
'...and read
status = viRead(vi, Response, count, retCount)
'Check for errors - this will raise an error if status is not VI_SUCCESS
CALL CheckError(vi, status)
'adjust string length
Response = Left(Response, retCount)
End Sub
La fonction suivante illustre le contrôle de l'état/des erreurs. La procédure génère
une exception en cas d'erreur VISA :
Public Sub CheckError(ByVal vi As Long, status As Long)
Dim ErrorMessage As String * 1024
'Initialize error message string
ErrorMessage = ""
If (status < 0) Then
'Query the error message from VISA
If (viStatusDesc(vi, status, ErrorMessage) = VI_SUCCESS) Then
Err.Description = ErrorMessage
End If
Err.Raise (status)
End If
End Sub
7.1.2 Initialisation et état par défaut
Au démarrage de chaque programme, les variables globales utilisées par tous les
sous-programmes doivent être créées. Ensuite, la commande à distance et les
réglages de l'appareil sont mis dans un état par défaut défini. A cette fin, on uti-
lise les deux subroutines InitController et InitDevice.
Guide de démarrage rapide 1321.3066.09 ─ 03
Brève introduction à la commande à distance
Étapes de base de la programmation en commande à distance
158