Tabla de contenido
Publicidad
Introducción Breve al Control Remoto
Public Sub InstrRead(ByVal vi As Long, Response As String, ByVal count As Long,
Dim status As Long
'Inicializa la serie de respuesta
Response = Space(count)
'...y leer
status = viRead(vi, Response, count, retCount)
'Chequear errores – dará lugar a un error si el estado no es VI_SUCCESS
CALL CheckError(vi, status)
'ajustar la longitud de la serie
Response = Left(Response, retCount)
End Sub
La siguiente función ilustra el análisis del estado/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
'Inicializar el mensaje de error
ErrorMessage = ""
If (status < 0) Then
'Preguntar el mensaje de error de VISA
If (viStatusDesc(vi, status, ErrorMessage) = VI_SUCCESS) Then
Err.Description = ErrorMessage
End If
Err.Raise (status)
End If
End Sub
Inicialización y Configuración por defecto
Al inicio de cada programa, se deben crear las variables globales usadas por todas las
subrutinas. El control remoto y las configuraciones del instrumento cambiarán al estado
definido por defecto. Las dos subrutinas "InitController" y "InitDevice" se usan
para este propósito.
Crear Variales Globales
En Visual Basic, las variables globales se almacenan en módulos (extensión de datos
.BAS). Esto es, al menos se debe crear un módulo (ej. GLOBALS.BAS) que contenga la
variable usada por todas las subrutinas, por ejemplo las variables usadas por el driver de
control remoto para el direccionamiento del dispositivo.
Para todos los ejemplos siguientes, el fichero debe contener las siguientes instrucciones:
Global analyzer As Long
Global defaultRM As Long
1300.2519.67
retCount As Long)
6.4
R&S FSL
ES-3
Publicidad
Tabla de contenido
