Beispiele
Übersicht
Beispiele 1
Beispiele 2
Beispiele 3
Beispiele 4
Beispiele 6
Beispiele 7
Erweiterungen
 

Demo Software K8055 / VM110




Download bei Velleman: SDK Version 4
' k8055d.bi.bas, - Volta 02.04.2012 ' K8055D.DLL Version 4.0.0.0 ' für Velleman "USB EXPERIMENT INTERFACE BOARD" VM110 oder K8055 (P8055) '--------------------------------------------------------------------------- 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 ptr, ByRef Data2 As Integer ptr) 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 Integer 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 SearchDevices As Function () As Integer Dim Shared SetCurrentDevice As Function (Byval As Integer) As Integer 'Version 4.0.0.0 Dim Shared ReadAll as Sub (data As Integer) Dim Shared Version As Function () 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" ) SearchDevices = DyLibSymbol( k8055d_Lib, "SearchDevices" ) SetCurrentDevice = DyLibSymbol( k8055d_Lib, "SetCurrentDevice" ) Version = DyLibSymbol( k8055d_Lib, "Version" ) ReadAll = DyLibSymbol( k8055d_Lib, "ReadAll" ) EndIf 'Am Programmende: 'If k8055d_Lib Then DylibFree k8055d_Lib

Software K8061 / VM140 (Demo)




Noch nicht vollständig. Nicht alle Funktionen implementiert.

Download bei Velleman: Softwarepack K8061
Download bei Velleman: K8061 driver update v4.0.0.0
'K8061.bi für FreeBASIC Dim Shared As Any Ptr K8061 K8061 = DylibLoad("K8061") Dim Shared OpenDevice As Function () As Integer Dim Shared CloseDevices As Sub () Dim Shared CloseDevice As Sub (ByVal CardAddress As Integer) Dim Shared ReadAnalogChannel As Function (ByVal CardAddress As Integer, ByVal Channel As Integer) As Integer Dim Shared PowerGood As Function (ByVal CardAddress As Integer) As Integer Dim Shared Connected As Function (ByVal CardAddress As Integer) As Integer Dim Shared ReadVersion As Sub (ByVal CardAddress As Integer, ByVal Buffer As Any Ptr) Dim Shared ReadAllAnalog As Sub (ByVal CardAddress As Integer, Buffer As Any Ptr) Dim Shared OutputAnalogChannel As Sub (ByVal CardAddress As Integer, ByVal Channel As Integer, ByVal Data As Integer) Dim Shared OutputAllAnalog As Sub (ByVal CardAddress As Integer, Buffer As Integer) Dim Shared ClearAnalogChannel As Sub (ByVal CardAddress As Integer, ByVal Channel As Integer) Dim Shared SetAllAnalog As Sub (ByVal CardAddress As Integer) Dim Shared ClearAllAnalog As Sub (ByVal CardAddress As Integer) Dim Shared SetAnalogChannel As Sub (ByVal CardAddress As Integer, ByVal Channel As Integer) Dim Shared OutputAllDigital As Sub (ByVal CardAddress As Integer, ByVal Data As Integer) Dim Shared ClearDigitalChannel As Sub (ByVal CardAddress As Integer, ByVal Channel As Integer) Dim Shared ClearAllDigital As Sub (ByVal CardAddress As Integer) Dim Shared SetDigitalChannel As Sub (ByVal CardAddress As Integer, ByVal Channel As Integer) Dim Shared SetAllDigital As Sub (ByVal CardAddress As Integer) Dim Shared ReadDigitalChannel As Function (ByVal CardAddress As Integer, ByVal Channel As Integer) As Integer Dim Shared ReadAllDigital As Function (ByVal CardAddress As Integer) As Integer Dim Shared OutputPWM As Sub (ByVal CardAddress As Integer, ByVal Data As Integer) Dim Shared ReadBackDigitalOut As Function (ByVal CardAddress As Integer) As Integer Dim Shared ReadBackAnalogOut As Sub (ByVal CardAddress As Integer, Buffer As Integer) Dim Shared ReadBackPWMOut As Function (ByVal CardAddress As Integer) As Integer If K8061>0 Then OpenDevice = DyLibSymbol(K8061, "OpenDevice") CloseDevices = DyLibSymbol(K8061, "CloseDevices") CloseDevice = DyLibSymbol(K8061, "CloseDevice") ReadAnalogChannel = DyLibSymbol(K8061, "ReadAnalogChannel") PowerGood = DyLibSymbol(K8061, "PowerGood") Connected = DyLibSymbol(K8061, "Connected") ReadVersion = DyLibSymbol(K8061, "ReadVersion") ReadAllAnalog = DyLibSymbol(K8061, "ReadAllAnalog") OutputAnalogChannel = DyLibSymbol(K8061, "OutputAnalogChannel") OutputAllAnalog = DyLibSymbol(K8061, "OutputAllAnalog") ClearAnalogChannel = DyLibSymbol(K8061, "ClearAnalogChannel") SetAllAnalog = DyLibSymbol(K8061, "SetAllAnalog") ClearAllAnalog = DyLibSymbol(K8061, "ClearAllAnalog") SetAnalogChannel = DyLibSymbol(K8061, "SetAnalogChannel") OutputAllDigital = DyLibSymbol(K8061, "OutputAllDigital") ClearDigitalChannel = DyLibSymbol(K8061, "ClearDigitalChannel") ClearAllDigital = DyLibSymbol(K8061, "ClearAllDigital") SetDigitalChannel = DyLibSymbol(K8061, "SetDigitalChannel") SetAllDigital = DyLibSymbol(K8061, "SetAllDigital") ReadDigitalChannel = DyLibSymbol(K8061, "ReadDigitalChannel") ReadAllDigital = DyLibSymbol(K8061, "ReadAllDigital") OutputPWM = DyLibSymbol(K8061, "OutputPWM") ReadBackDigitalOut = DyLibSymbol(K8061, "ReadBackDigitalOut") ReadBackAnalogOut = DyLibSymbol(K8061, "ReadBackAnalogOut") ReadBackPWMOut = DyLibSymbol(K8061, "ReadBackPWMOut") EndIf 'Am Programmende: 'If K8061 Then DylibFree K8061