vbib-32.bas

广泛用于示波器上的gpig工业标准接口的计算机编成库

Attribute VB_Name = "VBIB32"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   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.
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   NI-488 DLL entry function declarations

Declare Function ibask32 Lib "Gpib-32.dll" Alias "ibask" (ByVal ud&, ByVal opt&, sstr As Any) As Long
Declare Function ibbna32 Lib "Gpib-32.dll" Alias "ibbnaA" (ByVal ud&, sstr As Any) As Long
Declare Function ibcac32 Lib "Gpib-32.dll" Alias "ibcac" (ByVal ud&, ByVal v%) As Long
Declare Function ibclr32 Lib "Gpib-32.dll" Alias "ibclr" (ByVal ud&) As Long
Declare Function ibcmd32 Lib "Gpib-32.dll" Alias "ibcmd" (ByVal ud&, sstr As Any, ByVal cnt&) As Long
Declare Function ibcmda32 Lib "Gpib-32.dll" Alias "ibcmda" (ByVal ud&, sstr As Any, ByVal cnt&) As Long
Declare Function ibconfig32 Lib "Gpib-32.dll" Alias "ibconfig" (ByVal ud&, ByVal opt&, ByVal v&) As Long
Declare Function ibdev32 Lib "Gpib-32.dll" Alias "ibdev" (ByVal bdid&, ByVal pad&, ByVal sad&, ByVal tmo&, ByVal eot&, ByVal eos&) As Long
Declare Function ibdiag32 Lib "Gpib-32.dll" Alias "ibdiag" (ByVal ud&, sstr As Any, ByVal cnt&) As Long
Declare Function ibdma32 Lib "Gpib-32.dll" Alias "ibdma" (ByVal ud&, ByVal v&) As Long
Declare Function ibeos32 Lib "Gpib-32.dll" Alias "ibeos" (ByVal ud&, ByVal v&) As Long
Declare Function ibeot32 Lib "Gpib-32.dll" Alias "ibeot" (ByVal ud&, ByVal v&) As Long
Declare Function ibevent32 Lib "Gpib-32.dll" Alias "ibevent" (ByVal ud&, eevent&) As Long
Declare Function ibfind32 Lib "Gpib-32.dll" Alias "ibfindA" (sstr As Any) As Long
Declare Function ibgts32 Lib "Gpib-32.dll" Alias "ibgts" (ByVal ud&, ByVal v&) As Long
Declare Function ibist32 Lib "Gpib-32.dll" Alias "ibist" (ByVal ud&, ByVal v&) As Long
Declare Function iblines32 Lib "Gpib-32.dll" Alias "iblines" (ByVal ud&, v&) As Long
Declare Function ibln32 Lib "Gpib-32.dll" Alias "ibln" (ByVal ud&, ByVal pad&, ByVal sad&, ln&) As Long
Declare Function ibloc32 Lib "Gpib-32.dll" Alias "ibloc" (ByVal ud&) As Long
Declare Function ibonl32 Lib "Gpib-32.dll" Alias "ibonl" (ByVal ud&, ByVal v&) As Long
Declare Function ibpad32 Lib "Gpib-32.dll" Alias "ibpad" (ByVal ud&, ByVal v&) As Long
Declare Function ibpct32 Lib "Gpib-32.dll" Alias "ibpct" (ByVal ud&) As Long
Declare Function ibpoke32 Lib "Gpib-32.dll" Alias "ibpoke" (ByVal ud&, ByVal opt&, ByVal v&) As Long
Declare Function ibppc32 Lib "Gpib-32.dll" Alias "ibppc" (ByVal ud&, ByVal v&) As Long
Declare Function ibrd32 Lib "Gpib-32.dll" Alias "ibrd" (ByVal ud&, sstr As Any, ByVal cnt&) As Long
Declare Function ibrda32 Lib "Gpib-32.dll" Alias "ibrda" (ByVal ud&, sstr As Any, ByVal cnt&) As Long
Declare Function ibrdf32 Lib "Gpib-32.dll" Alias "ibrdfA" (ByVal ud&, sstr As Any) As Long
Declare Function ibrdi32 Lib "Gpib-32.dll" Alias "ibrd" (ByVal ud&, sstr As Any, ByVal cnt&) As Long
Declare Function ibrdia32 Lib "Gpib-32.dll" Alias "ibrda" (ByVal ud&, sstr As Any, ByVal cnt&) As Long
Declare Function ibrdkey32 Lib "Gpib-32.dll" Alias "ibrdkey" (ByVal ud&, sstr As Any, ByVal cnt&) As Long
Declare Function ibrpp32 Lib "Gpib-32.dll" Alias "ibrpp" (ByVal ud&, sstr As Any) As Long
Declare Function ibrsc32 Lib "Gpib-32.dll" Alias "ibrsc" (ByVal ud&, ByVal v&) As Long
Declare Function ibrsp32 Lib "Gpib-32.dll" Alias "ibrsp" (ByVal ud&, sstr As Any) As Long
Declare Function ibrsv32 Lib "Gpib-32.dll" Alias "ibrsv" (ByVal ud&, ByVal v&) As Long
Declare Function ibsad32 Lib "Gpib-32.dll" Alias "ibsad" (ByVal ud&, ByVal v&) As Long
Declare Function ibsic32 Lib "Gpib-32.dll" Alias "ibsic" (ByVal ud&) As Long
Declare Function ibsre32 Lib "Gpib-32.dll" Alias "ibsre" (ByVal ud&, ByVal v&) As Long
Declare Function ibstop32 Lib "Gpib-32.dll" Alias "ibstop" (ByVal ud&) As Long
Declare Function ibtmo32 Lib "Gpib-32.dll" Alias "ibtmo" (ByVal ud&, ByVal v&) As Long
Declare Function ibtrg32 Lib "Gpib-32.dll" Alias "ibtrg" (ByVal ud&) As Long
Declare Function ibwait32 Lib "Gpib-32.dll" Alias "ibwait" (ByVal tmpUD&, ByVal tmpmask&) As Long
Declare Function ibwrt32 Lib "Gpib-32.dll" Alias "ibwrt" (ByVal ud&, sstr As Any, ByVal cnt&) As Long
Declare Function ibwrta32 Lib "Gpib-32.dll" Alias "ibwrta" (ByVal ud&, sstr As Any, ByVal cnt&) As Long
Declare Function ibwrtf32 Lib "Gpib-32.dll" Alias "ibwrtfA" (ByVal ud&, sstr As Any) As Long
Declare Function ibwrti32 Lib "Gpib-32.dll" Alias "ibwrti" (ByVal ud&, sstr As Any, ByVal cnt&) As Long
Declare Function ibwrtia32 Lib "Gpib-32.dll" Alias "ibwrtia" (ByVal ud&, sstr As Any, ByVal cnt&) As Long
Declare Function ibwrtkey32 Lib "Gpib-32.dll" Alias "ibwrtkey" (ByVal ud&, sstr As Any, ByVal cnt&) As Long

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

Declare Sub AllSpoll32 Lib "Gpib-32.dll" Alias "AllSpoll" (ByVal ud&, arg1 As Any, arg2 As Any)
Declare Sub DevClear32 Lib "Gpib-32.dll" Alias "DevClear" (ByVal ud&, ByVal v&)
Declare Sub DevClearList32 Lib "Gpib-32.dll" Alias "DevClearList" (ByVal ud&, arg1 As Any)
Declare Sub EnableLocal32 Lib "Gpib-32.dll" Alias "EnableLocal" (ByVal ud&, arg1 As Any)
Declare Sub EnableRemote32 Lib "Gpib-32.dll" Alias "EnableRemote" (ByVal ud&, arg1 As Any)
Declare Sub FindLstn32 Lib "Gpib-32.dll" Alias "FindLstn" (ByVal ud&, arg1 As Any, arg2 As Any, arg3 As Any)
Declare Sub FindRQS32 Lib "Gpib-32.dll" Alias "FindRQS" (ByVal ud&, arg1 As Any, result&)
Declare Sub PassControl32 Lib "Gpib-32.dll" Alias "PassControl" (ByVal ud&, ByVal addr&)
Declare Sub PPoll32 Lib "Gpib-32.dll" Alias "PPoll" (ByVal ud&, sstr As Any)
Declare Sub PPollConfig32 Lib "Gpib-32.dll" Alias "PPollConfig" (ByVal ud&, ByVal addr&, ByVal line&, ByVal sense&)
Declare Sub PPollUnconfig32 Lib "Gpib-32.dll" Alias "PPollUnconfig" (ByVal ud&, arg1 As Any)
Declare Sub RcvRespMsg32 Lib "Gpib-32.dll" Alias "RcvRespMsg" (ByVal ud&, arg1 As Any, ByVal cnt&, ByVal term&)
Declare Sub ReadStatusByte32 Lib "Gpib-32.dll" Alias "ReadStatusByte" (ByVal ud&, ByVal addr&, arg1 As Any)
Declare Sub Receive32 Lib "Gpib-32.dll" Alias "Receive" (ByVal ud&, ByVal addr&, arg1 As Any, ByVal cnt&, ByVal term&)
Declare Sub ReceiveSetup32 Lib "Gpib-32.dll" Alias "ReceiveSetup" (ByVal ud&, ByVal addr&)
Declare Sub ResetSys32 Lib "Gpib-32.dll" Alias "ResetSys" (ByVal ud&, arg1 As Any)
Declare Sub Send32 Lib "Gpib-32.dll" Alias "Send" (ByVal ud&, ByVal addr&, sstr As Any, ByVal cnt&, ByVal term&)
Declare Sub SendCmds32 Lib "Gpib-32.dll" Alias "SendCmds" (ByVal ud&, sstr As Any, ByVal cnt&)
Declare Sub SendDataBytes32 Lib "Gpib-32.dll" Alias "SendDataBytes" (ByVal ud&, sstr As Any, ByVal cnt&, ByVal term&)
Declare Sub SendIFC32 Lib "Gpib-32.dll" Alias "SendIFC" (ByVal ud&)
Declare Sub SendList32 Lib "Gpib-32.dll" Alias "SendList" (ByVal ud&, arg1 As Any, arg2 As Any, ByVal cnt&, ByVal term&)
Declare Sub SendLLO32 Lib "Gpib-32.dll" Alias "SendLLO" (ByVal ud&)
Declare Sub SendSetup32 Lib "Gpib-32.dll" Alias "SendSetup" (ByVal ud&, arg1 As Any)
Declare Sub SetRWLS32 Lib "Gpib-32.dll" Alias "SetRWLS" (ByVal ud&, arg1 As Any)
Declare Sub TestSys32 Lib "Gpib-32.dll" Alias "TestSys" (ByVal ud&, arg1 As Any, arg2 As Any)
Declare Sub Trigger32 Lib "Gpib-32.dll" Alias "Trigger" (ByVal ud&, ByVal addr&)
Declare Sub TriggerList32 Lib "Gpib-32.dll" Alias "TriggerList" (ByVal ud&, arg1 As Any)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   DLL entry function declarations needed for GPIB global variables

Declare Function RegisterGpibGlobalsForThread Lib "Gpib-32.dll" (Longibsta&, Longiberr&, Longibcnt&, ibcntl&) As Long
Declare Function UnregisterGpibGlobalsForThread Lib "Gpib-32.dll" () As Long
Declare Function ThreadIbsta32 Lib "Gpib-32.dll" Alias "ThreadIbsta" () As Long
Declare Function ThreadIbcnt32 Lib "Gpib-32.dll" Alias "ThreadIbcnt" () As Long
Declare Function ThreadIbcntl32 Lib "Gpib-32.dll" Alias "ThreadIbcntl" () As Long
Declare Function ThreadIberr32 Lib "Gpib-32.dll" Alias "ThreadIberr" () As Long

Sub AllSpoll(ud%, addrs%(), results%())
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If
 
' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)
    
' Call the 32-bit DLL.
    Call AllSpoll32(ByVal tmpUD&, addrs%(0), results%(0))
    
    Call copy_ibvars
End Sub

Sub copy_ibvars()
    ibsta% = ConvertLongToInt(Longibsta&)
    iberr% = CInt(Longiberr&)
    ibcnt% = ConvertLongToInt(ibcntl&)
End Sub

Sub DevClear(ud%, addr%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If
    
' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)
    tmpaddr& = CLng(addr%)

' Call the 32-bit DLL.
    Call DevClear32(ByVal tmpUD&, ByVal tmpaddr&)
    
    Call copy_ibvars
End Sub

Sub DevClearList(ud%, addrs%())
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)

' Call the 32-bit DLL.
    Call DevClearList32(ByVal tmpUD&, addrs%(0))

    Call copy_ibvars
End Sub

Sub EnableLocal(ud%, addrs%())
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)

' Call the 32-bit DLL.
    Call EnableLocal32(ByVal tmpUD&, addrs%(0))

    Call copy_ibvars
End Sub

Sub EnableRemote(ud%, addrs%())
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)

' Call the 32-bit DLL.
    Call EnableRemote32(ByVal tmpUD&, addrs%(0))

    Call copy_ibvars
End Sub

Sub FindLstn(ud%, addrs%(), results%(), limit%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If
  
' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)
    tmplimit& = CLng(limit%)

' Call the 32-bit DLL.
    Call FindLstn32(ByVal tmpUD&, addrs%(0), results%(0), ByVal tmplimit&)
    
    Call copy_ibvars

End Sub

Sub FindRQS(ud%, addrs%(), result%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)

' Call the 32-bit DLL.
    Call FindRQS32(ByVal tmpUD&, addrs%(0), tmpresult&)

    result% = ConvertLongToInt(tmpresult&)
    
    Call copy_ibvars
End Sub

Sub ibask(ud%, opt%, rval%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameters to Longs.
    tmpUD& = CLng(ud%)
    tmpopt& = CLng(opt%)

' Call the 32-bit DLL.
    rc& = ibask32(ByVal tmpUD&, ByVal tmpopt&, tmprval&)

    rval% = ConvertLongToInt(tmprval&)

    Call copy_ibvars
End Sub

Sub ibbna(ud%, udname$)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)

' Call the 32-bit DLL.
    rc& = ibbna32(ByVal tmpUD&, ByVal udname$)

    Call copy_ibvars
End Sub

Sub ibcac(ud%, v%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameters to Longs.
    tmpUD& = CLng(ud%)
    tmpv& = CLng(v%)

'  Call the 32-bit DLL.
    rc& = ibcac32(ByVal tmpUD&, ByVal tmpv&)

    Call copy_ibvars
End Sub

Sub ibclr(ud%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter into Long.
    tmpUD& = CLng(ud%)
    
'  Call the 32-bit DLL.
    tmp& = ibclr32(ByVal tmpUD&)
    
    Call copy_ibvars
End Sub

Sub ibcmd(ud%, buf$)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)

    cnt& = CLng(Len(buf$))
    
'  Call the 32-bit DLL.
    rc& = ibcmd32(ByVal tmpUD&, ByVal buf$, ByVal cnt&)

    Call copy_ibvars
End Sub

Sub ibcmda(ud%, buf$)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)
    cnt& = CLng(Len(buf$))
    
'  Call the 32-bit DLL.
    rc& = ibcmd32(ByVal tmpUD&, ByVal buf$, ByVal cnt&)

' When Visual Basic remapping buffer problem solved, then use:
'    rc& = ibcmda32(ByVal tmpUD&, ByVal buf$, ByVal cnt&)

    Call copy_ibvars
End Sub

Sub ibconfig(bdid%, opt%, v%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(bdid%)
    tmpopt& = CLng(opt%)
    tmpv& = CLng(v%)

'  Call the 32-bit DLL.
    rc& = ibconfig32(ByVal tmpUD&, ByVal tmpopt&, ByVal tmpv&)
    
    Call copy_ibvars
End Sub

Sub ibdev(bdid%, pad%, sad%, tmo%, eot%, eos%, ud%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameters into Longs.
    tmpID& = CLng(bdid%)
    tmppad& = CLng(pad%)
    tmpsad& = CLng(sad%)
    tmptmo& = CLng(tmo%)
    tmpeot& = CLng(eot%)
    tmpeos& = CLng(eos%)
    
' Call the 32-bit DLL.
    tmpUD& = ibdev32(ByVal tmpID&, ByVal tmppad&, ByVal tmpsad&, ByVal tmptmo&, ByVal tmpeot&, ByVal tmpeos&)

    ud% = ConvertLongToInt(tmpUD&)
    
    Call copy_ibvars
End Sub

Sub ibdiag(ud%, buf$)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)

    cnt& = CLng(Len(buf$))
    
'  Call the 32-bit DLL.
    rc& = ibdiag32(ByVal tmpUD&, ByVal buf$, ByVal cnt&)

    Call copy_ibvars
End Sub

Sub ibdma(ud%, v%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)
    tmpv& = CLng(v%)

'  Call the 32-bit DLL.
    rc& = ibdma32(ByVal tmpUD&, ByVal tmpv&)
    
    Call copy_ibvars
End Sub

Sub ibeos(ud%, v%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)
    tmpv& = CLng(v%)

'  Call the 32-bit DLL.
    rc& = ibeos32(ByVal tmpUD&, ByVal tmpv&)
    
    Call copy_ibvars
End Sub

Sub ibeot(ud%, v%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)
    tmpv& = CLng(v%)

'  Call the 32-bit DLL.
    rc& = ibeot32(ByVal tmpUD&, ByVal tmpv&)
    
    Call copy_ibvars
End Sub

Sub ibevent(ud%, eevent%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)

'  Call the 32-bit DLL.
    rc& = ibevent32(ByVal tmpUD&, tmpv&)

    eevent% = ConvertLongToInt(tmpv&)
    
    Call copy_ibvars
End Sub

Sub ibfind(udname$, ud%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Call the 32-bit DLL.
    rc& = ibfind32(ByVal udname$)

    ud% = ConvertLongToInt(rc&)
    
    Call copy_ibvars
End Sub

Sub ibgts(ud%, v%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)
    tmpv& = CLng(v%)

'  Call the 32-bit DLL.
    rc& = ibgts32(ByVal tmpUD&, ByVal tmpv&)

    Call copy_ibvars
End Sub

Sub ibist(ud%, v%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)
    tmpv& = CLng(v%)

'  Call the 32-bit DLL.
    rc& = ibist32(ByVal tmpUD&, ByVal tmpv&)

    Call copy_ibvars
End Sub

Sub iblines(ud%, lines%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)

'  Call the 32-bit DLL.
    rc& = iblines32(ByVal tmpUD&, tmplines&)

    lines% = ConvertLongToInt(tmplines&)

    Call copy_ibvars
End Sub

Sub ibln(ud%, pad%, sad%, ln%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter to Long.
    tmpUD& = CLng(ud%)
    tmppad& = CLng(pad%)
    tmpsad& = CLng(sad%)

'  Call the 32-bit DLL.
    rc& = ibln32(ByVal tmpUD&, ByVal tmppad&, ByVal tmpsad&, tmpln&)

    ln% = ConvertLongToInt(tmpln&)

    Call copy_ibvars
End Sub

Sub ibloc(ud%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter into Long.
    tmpUD& = CLng(ud%)

'  Call the 32-bit DLL.
    rc& = ibloc32(ByVal tmpUD&)

    Call copy_ibvars
End Sub

Sub ibonl(ud%, v%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameters into Longs.
    tmpUD& = CLng(ud%)
    tmpv& = CLng(v%)
    
' Call the 32-bit DLL.
    rc& = ibonl32(ByVal tmpUD&, ByVal tmpv&)
    
    Call copy_ibvars
End Sub

Sub ibpad(ud%, v%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If

' Convert Integer parameter into Long.
    tmpUD& = CLng(ud%)
    tmpv& = CLng(v%)

'  Call the 32-bit DLL.
    rc& = ibpad32(ByVal tmpUD&, ByVal tmpv&)
    
    Call copy_ibvars
End Sub

Sub ibpct(ud%)
' Check to see if GPIB Global variables are registered
    If (GPIBglobalsRegistered = 0) Then
      Call RegisterGPIBGlobals
    End If