User manual

K8055D.DLL 13
© 2003 ... Velleman
Die K8055D.DDL in Visual Basic verwenden
In diesem Anwendungsbeispiel werden die Arbeitsweisen und die Funktionen der K8055.DLL erklärt.
Auch werden die 2 wichtigsten DLL -Signale:
OpenDevice
and
CloseDevice
verdeutlicht.
Hinweis:
Achten Sie darauf, dass Sie die Datei in den Windows' SYSTEM32'-Ordner kopieren.
Option
Explicit
Private
Declare
Function
OpenDevice
Lib
"k8055d.dll" (
ByVal
CardAddress
As
Long
)
As
Long
Private
Declare
Sub
CloseDevice
Lib
"k8055d.dll" ()
Private
Declare
Function
ReadAnalogChannel
Lib
"k8055d.dll" (
ByVal
Channel
As
Long
)
As
Long
Private
Declare
Sub
ReadAllAnalog
Lib
"k8055d.dll" (Data1
As
Long
, Data2
As
Long
)
Private
Declare
Sub
OutputAnalogChannel
Lib
"k8055d.dll" (
ByVal
Channel
As
Long
,
ByVal
Data
As
Long
)
Private
Declare
Sub
OutputAllAnalog
Lib
"k8055d.dll" (
ByVal
Data1
As
Long
,
ByVal
Data2
As
Long
)
Private
Declare
Sub
ClearAnalogChannel
Lib
"k8055d.dll" (
ByVal
Channel
As
Long
)
Private
Declare
Sub
SetAllAnalog
Lib
"k8055d.dll" ()
Private
Declare
Sub
ClearAllAnalog
Lib
"k8055d.dll" ()
Private
Declare
Sub
SetAnalogChannel
Lib
"k8055d.dll" (
ByVal
Channel
As
Long
)
Private
Declare
Sub
WriteAllDigital
Lib
"k8055d.dll" (
ByVal
Data
As
Long
)
Private
Declare
Sub
ClearDigitalChannel
Lib
"k8055d.dll" (
ByVal
Channel
As
Long
)
Private
Declare
Sub
ClearAllDigital
Lib
"k8055d.dll" ()
Private
Declare
Sub
SetDigitalChannel
Lib
"k8055d.dll" (
ByVal
Channel
As
Long
)
Private
Declare
Sub
SetAllDigital
Lib
"k8055d.dll" ()
Private
Declare
Function
ReadDigitalChannel
Lib
"k8055d.dll" (
ByVal
Channel
As
Long
)
As
Boolean
Private
Declare
Function
ReadAllDigital
Lib
"k8055d.dll" ()
As
Long
Private
Declare
Function
ReadCounter
Lib
"k8055d.dll" (
ByVal
CounterNr
As
Long
)
As
Long
Private
Declare
Sub
ResetCounter
Lib
"k8055d.dll" (
ByVal
CounterNr
As
Long
)
Private
Declare
Sub
SetCounterDebounceTime
Lib
"k8055d.dll" (
ByVal
CounterNr
As
Long
,
ByVal
DebounceTime
As
Long
)
Private
Sub
Connect_Click()
Dim
CardAddress
As
Long
Dim
h
As
Long
CardAddress = 0
CardAddress = 3 - (Check1(0).Value + Check1(1).Value * 2)
h = OpenDevice(CardAddress)
Select
Case
h
Case
0, 1, 2, 3
Label1.Caption = "Card " + Str(h) + " connected"
Case
-1
Label1.Caption = "Card " + Str(CardAddress) + " not found"
End
Select
End
Sub
Private
Sub
Form_Terminate()
CloseDevice
End
Sub