Publicité
Les langues disponibles
Les langues disponibles
Utiliser le K8055D.DLL en Visual Basic
Dans cet exemple d'application se trouvent les explications des procédures et fonctions K8055D.DLL,
et un exemple démontrant l'utilisation des deux fonctions les plus importantes, OpenDevice et
CloseDevice.
Remarque: Assurez-vous du fait que le fichier K8055D.DLL soit copié au fichier 'SYSTEM32' dans
Windows:
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
Dim
CardAddress
Dim
h
As Long
CardAddress = 0
CardAddress = 3 - (Check1(0).Value + Check1(1).Value * 2)
h = OpenDevice(CardAddress)
Select Case
Case
Case
End Select
End Sub
Private Sub
CloseDevice
End Sub
© 2003 ... Velleman
OpenDevice
CloseDevice
Lib
ReadAnalogChannel
ReadAllAnalog
OutputAnalogChannel
OutputAllAnalog
ClearAnalogChannel
SetAllAnalog
ClearAllAnalog
SetAnalogChannel
WriteAllDigital
ClearDigitalChannel
ClearAllDigital
SetDigitalChannel
SetAllDigital
ReadDigitalChannel
ReadAllDigital
ReadCounter
ResetCounter
SetCounterDebounceTime
As
Long)
Connect_Click()
As Long
h
0, 1, 2, 3
Label1.Caption = "Card " + Str(h) + " connected"
-1
Label1.Caption = "Card " + Str(CardAddress) + " not found"
Form_Terminate()
Lib
"k8055d.dll"
(ByVal
"k8055d.dll" ()
Lib
"k8055d.dll"
Lib
"k8055d.dll" (Data1
Lib
"k8055d.dll"
Lib
"k8055d.dll"
(ByVal
Lib
"k8055d.dll"
Lib
"k8055d.dll" ()
Lib
"k8055d.dll" ()
Lib
"k8055d.dll"
Lib
"k8055d.dll"
(ByVal
Lib
"k8055d.dll"
Lib
"k8055d.dll" ()
Lib
"k8055d.dll"
Lib
"k8055d.dll" ()
Lib
"k8055d.dll"
Lib
"k8055d.dll" ()
Lib
"k8055d.dll"
Lib
"k8055d.dll"
(ByVal
Lib
"k8055d.dll"
K8055D.DLL
CardAddress
As
(ByVal
Channel
As
Long, Data2
As
(ByVal
Channel
As
Data1
As
Long,
(ByVal
Channel
As
Long)
(ByVal
Channel
As
Long)
Data
As
Long)
(ByVal
Channel
As
(ByVal
Channel
As
Long)
(ByVal
Channel
As Long
(ByVal
CounterNr
As
Long)
CounterNr
As
Long)
(ByVal
CounterNr
13
Long)
As Long
As
Long)
As Long
Long)
Long,
ByVal
Data
As
ByVal
Data2
As
Long)
As
Long)
As
As Long
As
Long,
ByVal
Publicité
