Instrument Control (GPIB, Serial, VISA, IVI)

cancel
Showing results for 
Search instead for 
Did you mean: 

VB6 Error53 gpib-32.dll error

Hello:

 

I wrote a VB6 program to control some devices using the HPIB-USB-HS.  Its on an older PC running win2000.  Everything works fine.  Using commands/subs  such such as ibwrt, ilrd, etc   to send out a few simple command, nothing complicated.

 

However, when moving the installation to a Vista computer, it brings up the program fine, but at the point of actually getting the GPIB portion running, I get:  error 53 GPBIB-32.dll not found.  I did try pasting that file into a winnt/system32 directory, but no change.

 

this is where it stalls out :

Public Sub RegisterGPIBGlobals()
    Dim rc As Long

    rc = RegisterGpibGlobalsForThread(Longibsta, Longiberr, Longibcnt, ibcntl)   <====STOPS RIGHT HERE

 

my vb6 includes niglobal.bas:

 

32-bit Visual Basic Language Interface
' Version 1.9
' Copyright 2001 National Instruments Corporation.
' All Rights Reserved.

AND VBIB-32.bas:

 

 32-bit Visual Basic Language Interface
' Version 1.81
' Copyright 2001 National Instruments Corporation.
' All Rights Reserved.
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   This module contains the subroutine declarations,
'   function declarations and constants required to use
'   the National Instruments GPIB Dynamic Link Library
'   (DLL) for controlling IEEE-488 instrumentation.  This
'   file must be 'added' to your Visual Basic project
'   (by choosing Add File from the File menu or pressing
'   CTRL+F12) so that you can access the NI-488.2
'   subroutines and functions.
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   NI-488.2 DLL entry function declarations

Declare Function ibask32 Lib "Gpib-32.dll" Alias "ibask" (ByVal ud As Long, ByVal opt As Long, value As Long) As Long
Declare Function ibbna32 Lib "Gpib-32.dll" Alias "ibbnaA" (ByVal ud As Long, sstr As Any) As Long
Declare Function ibcac32 Lib "Gpib-32.dll" Alias "ibcac" (ByVal ud As Long, ByVal v As Long) As Long
Declare Function ibclr32 Lib "Gpib-32.dll" Alias "ibclr" (ByVal ud As Long) As Long
Declare Functio

 

 

 

Any thoughts on where I'm going wrong?  I'm not too interested in any major re-write, just need this to run on vista or newer Windows

 

 

 

0 Kudos
Message 1 of 3
(5,244 Views)
It's been a long time since I've used VB and can't really comment on that but I don't understand your comment about pasting the dll in the system32 folder. You have to run the install program for the NI-488.2 driver and you have to use a version that has Vista support.
0 Kudos
Message 2 of 3
(5,242 Views)
Dennis is correct, you need to have the driver installed on the other computer.  If you need a later version of the NI-488.2 driver (such as a Vista compatible driver), I'd recommend installing that later version on your development computer first, then recompiling your code so it uses the later version of the driver.  Then you can install the NI-488.2 driver on your deployment machine and re-deploy your code.
Eric B.
National Instruments
0 Kudos
Message 3 of 3
(5,220 Views)