GPIB NUMERO DE SERIE USANDO VISUAL BASIC 5

[DESIINALA]

DESEO OBTENER EL NUEMRO DE SERIE DE UNA TARJETA GPIB USB HS BAJO EL CONTROL DEL PROGRAMA VISUAL BASIC 5

PARA ELLO IMPLEMENTE LA SIGUIENTE RUTINA.

Private Sub Command1_Click()
Call ibfind(gpib0, ud%)
Call ibask(gpib0, IbaSerialNumber, value%)
Text1 = Str(value%)
End Sub

LO QUE OBTENGO DE RESULTADO ES UN 0 EN LUGAR DEL NUMERO DE SERIE.

BAJO EL CONTROL INTERACTIVO DE MESURMENT & AUTOMATITATION EXPLORER, BAJO TOOLS EN IEE488 INTERACTIVE CONTROL USO EL SIGUIENTE CODIGO

IBFIND GPIB0

RESPONDIENDO EL SISTEMA

GPIB0:

ESCRIBO LA INSTRUCCION

GPIB0: IBASK IBASERIALNUMBER

RESPONDIENDO EL NUEMRO DE SERIE EN HEXADECIMAL Y EN DECIMAL

ES POR ESO QUE DESEO SABER DE QUE MANERA LO PUEDO IMPLEMENTAR EN VISUAL BASIC ESTAS INSTRUCCIONES.

BUEN DIA Y GRACIAS

[Arturo_M._Gomez]

Hola DESINALA,

Existe un documento que explica el procedimiento, te copio la liga para que puedas revisarlo. 

How Can I Read the Serial Number of a GPIB Card Programmatically?

 Es posible que tengas un problema de compatibilidad con Visual Basic 5, en este caso te sugiero que visites la siguiente página que incluye la liga para descargar un FIX.

Incompatibility between Measurement Studio and Microsoft Visual Basic 5.0

 Saludos !