I tried to communicate with GPIB-device with the Labview6.1 build in Functions GPIBwrt and I couldnt get a result. The device didn't answer!
This Code works with Visual Basic 4.0 16 Bit:
magctrl% = DLLibfind(mgctrl$, ibsta%, iberr%, ibcntl&)
Call IBWrt(magctrl%, Chr$(8))
where
Sub IBWrt(ByVal address%, ByRef word$)
Dim dummy%, länge%
länge% = Len(word$)
dummy% = DLLibwrt(address%, word$, länge%, ibsta%, iberr%, ibcntl&)
End Sub
Declare Function DLLibfind Lib "gpib.dll" (ByVal udname$, ibsta%, iberr%, ibcntl&) As Integer
Declare Function DLLibwrt Lib "gpib.dll" (ByVal ud%, ByVal wrt$, ByVal cnt&, ibsta%, iberr%, ibcntl&) As Integer
Why??????