Werbung
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
Private Declare Sub
Private Declare Function
Private Declare Sub
Private Declare Sub
Long)
Private Declare Sub
Long)
Private Declare Sub
Private Declare Sub
Private Declare Sub
Private Declare Sub
Private Declare Sub
Private Declare Sub
Private Declare Sub
Private Declare Sub
Private Declare Sub
Private Declare Function
Boolean
Private Declare Function
Private Declare Function
Private Declare Sub
Private Declare Sub
DebounceTime
Private Sub
Connect_Click()
Dim
CardAddress
Dim
h
As Long
CardAddress = 0
CardAddress = 3 - (Check1(0).Value + Check1(1).Value * 2)
h = OpenDevice(CardAddress)
Select Case
Case
Label1.Caption = "Card " + Str(h) + " connected"
Case
Label1.Caption = "Card " + Str(CardAddress) + " not found"
End Select
End Sub
Private Sub
Form_Terminate()
CloseDevice
End Sub
© 2003 ... Velleman
OpenDevice
CloseDevice
Lib
ReadAnalogChannel
ReadAllAnalog
Lib
OutputAnalogChannel
OutputAllAnalog
ClearAnalogChannel
SetAllAnalog
Lib
ClearAllAnalog
SetAnalogChannel
WriteAllDigital
ClearDigitalChannel
ClearAllDigital
SetDigitalChannel
SetAllDigital
Lib
ReadDigitalChannel
ReadAllDigital
ReadCounter
ResetCounter
Lib
SetCounterDebounceTime
As
Long)
As Long
h
0, 1, 2, 3
-1
Lib
"k8055d.dll"
(ByVal
"k8055d.dll" ()
Lib
"k8055d.dll"
"k8055d.dll" (Data1
Lib
"k8055d.dll"
Lib
"k8055d.dll"
(ByVal
Lib
"k8055d.dll"
(ByVal
"k8055d.dll" ()
Lib
"k8055d.dll" ()
Lib
"k8055d.dll"
(ByVal
Lib
"k8055d.dll"
(ByVal
Lib
"k8055d.dll"
Lib
"k8055d.dll" ()
Lib
"k8055d.dll"
(ByVal
"k8055d.dll" ()
Lib
"k8055d.dll"
Lib
"k8055d.dll" ()
Lib
"k8055d.dll"
(ByVal
"k8055d.dll"
(ByVal
Lib
"k8055d.dll"
K8055D.DLL
CardAddress
As
Long)
(ByVal
Channel
As
Long)
As
Long, Data2
As
Long)
(ByVal
Channel
As
Long,
Data1
As
Long,
ByVal
Channel
As
Long)
Channel
As
Long)
Data
As
Long)
(ByVal
Channel
As
Long)
Channel
As
Long)
(ByVal
Channel
As
As Long
CounterNr
As
Long)
CounterNr
As
Long)
(ByVal
CounterNr
As
13
As Long
As Long
ByVal
Data
As
Data2
As
Long)
As
As Long
Long,
ByVal
Werbung
