volta
Anmeldungsdatum: 04.05.2005 Beiträge: 1875 Wohnort: D59192
|
Verfasst am: 14.11.2009, 13:59 Titel: |
|
|
Eine k8055d.bi Code: | ' k8055d.bi, - Volta 10.04.2009
' K8055D.DLL für Velleman "USB EXPERIMENT INTERFACE BOARD" VM110 oder K8055
'---------------------------------------------------------------------------
Dim Shared OpenDevice As Function (ByVal CardAddress As Integer) As Integer
Dim Shared CloseDevice As Sub ()
Dim Shared ReadAnalogChannel As Function (ByVal Channel As Integer) As Integer
Dim Shared ReadAllAnalog As Sub (ByRef Data1 As Integer, ByRef Data2 As Integer)
Dim Shared OutputAnalogChannel As Sub (ByVal Channel As Integer, ByVal DataX As Integer)
Dim Shared OutputAllAnalog As Sub (ByVal Data1 As Integer, ByVal Data2 As Integer)
Dim Shared ClearAnalogChannel As Sub (ByVal Channel As Integer)
Dim Shared SetAllAnalog As Sub ()
Dim Shared ClearAllAnalog As Sub ()
Dim Shared SetAnalogChannel As Sub (ByVal Channel As Integer)
Dim Shared WriteAllDigital As Sub (ByVal DataX As Integer)
Dim Shared ClearDigitalChannel As Sub (ByVal Channel As Integer)
Dim Shared ClearAllDigital As Sub ()
Dim Shared SetDigitalChannel As Sub (ByVal Channel As Integer)
Dim Shared SetAllDigital As Sub ()
Dim Shared ReadDigitalChannel As Function (ByVal Channel As Integer) As Boolean
Dim Shared ReadAllDigital As Function () As Integer
Dim Shared ReadCounter As Function (ByVal CounterNr As Integer) As Integer
Dim Shared ResetCounter As Sub (ByVal CounterNr As Integer)
Dim Shared SetCounterDebounceTime As Sub (ByVal CounterNr As Integer, ByVal DebounceTime As Integer)
Dim Shared As Any Ptr k8055d_Lib
k8055d_Lib = DylibLoad( "k8055d.dll" )
If k8055d_Lib Then
OpenDevice = DyLibSymbol( k8055d_Lib, "OpenDevice" )
CloseDevice = DyLibSymbol( k8055d_Lib, "CloseDevice" )
ReadAnalogChannel = DyLibSymbol( k8055d_Lib, "ReadAnalogChannel" )
ReadAllAnalog = DyLibSymbol( k8055d_Lib, "ReadAllAnalog" )
OutputAnalogChannel = DyLibSymbol( k8055d_Lib, "OutputAnalogChannel" )
OutputAllAnalog = DyLibSymbol( k8055d_Lib, "OutputAllAnalog" )
ClearAnalogChannel = DyLibSymbol( k8055d_Lib, "ClearAnalogChannel" )
SetAllAnalog = DyLibSymbol( k8055d_Lib, "SetAllAnalog" )
ClearAllAnalog = DyLibSymbol( k8055d_Lib, "ClearAllAnalog" )
SetAnalogChannel = DyLibSymbol( k8055d_Lib, "SetAnalogChannel" )
WriteAllDigital = DyLibSymbol( k8055d_Lib, "WriteAllDigital" )
ClearDigitalChannel = DyLibSymbol( k8055d_Lib, "ClearDigitalChannel" )
ClearAllDigital = DyLibSymbol( k8055d_Lib, "ClearAllDigital" )
SetDigitalChannel = DyLibSymbol( k8055d_Lib, "SetDigitalChannel" )
SetAllDigital = DyLibSymbol( k8055d_Lib, "SetAllDigital" )
ReadDigitalChannel = DyLibSymbol( k8055d_Lib, "ReadDigitalChannel" )
ReadAllDigital = DyLibSymbol( k8055d_Lib, "ReadAllDigital" )
ReadCounter = DyLibSymbol( k8055d_Lib, "ReadCounter" )
ResetCounter = DyLibSymbol( k8055d_Lib, "ResetCounter" )
SetCounterDebounceTime = DyLibSymbol( k8055d_Lib, "SetCounterDebounceTime" )
EndIf
'Am Programmende:
'If k8055d_Lib Then DylibFree k8055d_Lib | Eine VM110 hatte ich mal bei Ebay gekauft. Ist schon wieder verkauft, war sehr komfortabel aber zu langsam.
USB - Adapter mit dem FT232RL sind mir lieber. _________________ Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|