Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Lässt sich dieses Modul mit FreeBasic programmieren?

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Bibliotheken
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
DJS2009



Anmeldungsdatum: 07.11.2009
Beiträge: 22
Wohnort: Hagen / Westf.

BeitragVerfasst am: 14.11.2009, 10:32    Titel: Lässt sich dieses Modul mit FreeBasic programmieren? Antworten mit Zitat

Hallo!

Als Newbie was FreeBasic angeht würde ich gerne wissen ob sich das Modul

http://www.velleman.eu/distributor/support/downloads/?code=K8055

mit FreeBasic abfragen und steuern lässt. Es gibt auf der genannten Seite DLLs für VB etc.

Gruß
Dirk
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland

BeitragVerfasst am: 14.11.2009, 12:23    Titel: Antworten mit Zitat

Hallo,

unter Verwendung der angebotenen DLL sollte das problemlos möglich sein. Zur Benutzung in FreeBASIC kann man sich m. E. an dem VB6-Beispiel ganz gut orientieren.

Viele Grüße!
Sebastian
_________________

Der Markt regelt das! | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1874
Wohnort: D59192

BeitragVerfasst am: 14.11.2009, 12:59    Titel: Antworten mit Zitat

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.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
DJS2009



Anmeldungsdatum: 07.11.2009
Beiträge: 22
Wohnort: Hagen / Westf.

BeitragVerfasst am: 14.11.2009, 19:46    Titel: Antworten mit Zitat

Dank an Sebastian und Volta für die schnellen Antworten und auch für den Hinweis auf den FT232RL

Gruss
Dirk
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Bibliotheken Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz