Inicialización Y Estado Predeterminado; Crear Variables Globales - Rohde & Schwarz FSVA Guia De Inicio Rapido

®
R&S FSVA/FSV
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 siguiente función ilustra la comprobación estad/error. Este proceso da lugar a
una excepción cuando ocurre un error 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 Inicialización y estado predeterminado
Al iniciar cualquier programa deben crearse las variables globales que utilizarán
todas las subrutinas. El control remoto y las configuraciones del instrumento se
cambiarán a continuación a un estado predeterminado definido. Las dos subruti-
nas InitController y InitDevice se utilizan para esto.
7.1.2.1

Crear variables globales

En Visual Basic, las variables globales están almacenadas en módulos (exten-
sión de datos .BAS). Por lo tanto, se debe crear al menos un módulo (p. ej.
GLOBALS.BAS) que contenga las variables utilizadas en todas las subrutinas, p.
Guía de inicio rápido 1321.3066.10 ─ 03
Breve introducción al control remoto
Pasos básicos para la programación por control remoto
158