K8055.dll with VBA(Excell2003) OutputAllAnalog

Kits PC Related Projects
1

Hi fellow man,
I’m using the K8055D.dll in VBA (Excel 2003) and every function/sub works properly excpt from
OutputAnalogChannel
OutputAllAnalog

Modul-declareations:
…
Declare Function OpenDevice Lib “K8055D.DLL” (ByVal CardAddress As Long) As Long
Declare Sub CloseDevice Lib “K8055D.DLL” ()
Declare Sub OutputAnalogChannel Lib “K8055D.DLL” (ByVal Channel As Long, ByVal Data As Long)
Declare Sub OutputAllAnalog Lib “K8055D.DLL” (ByVal Data1 As Long, ByVal Data2 As Long)
Declare Sub ClearAnalogChannel Lib “K8055D.DLL” (ByVal Channel As Long)
Declare Sub ClearAllAnalog Lib “K8055D.DLL” ()
Declare Sub SetAnalogChannel Lib “K8055D.DLL” (ByVal Channel As Long)
Declare Sub SetAllAnalog Lib “K8055D.DLL” ()
…

Test-Macro:
Private Sub CommandButton1_Click()
OpenDevice (0) [color=green] 'works![/color]
ClearAllAnalog [color=green] 'works![/color]
SetAllAnalog [color=green]'works![/color]
[color=red] OutputAllAnalog(100,200) 'errormessage while compiling: “expects =”
OutputAnalogChannel(1,200) 'errormessage while compiling: “expects =”[/color]
CloseDevice [color=green]'works![/color]
End Sub

Is there something wrong declared?
What could be the Problem? (The DLL?)
Please Help!

2

You have to remove the parentheses. Only function calls need those.
Try this:
OutputAllAnalog 100, 200
OutputAnalogChannel 1, 200

See also: Procedure Calling Sequence for Visual Basic 6.0 Users
msdn2.microsoft.com/en-us/library/zx7hd02e(VS.80.aspx

3

:smiley:
Now it works!
Thank you very much!