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:

MPUSBAPI.DLL [Gelöst!]

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



Anmeldungsdatum: 30.05.2010
Beiträge: 4

BeitragVerfasst am: 30.05.2010, 23:24    Titel: MPUSBAPI.DLL [Gelöst!] Antworten mit Zitat

.
.
.
.
Problem mit einem Beispiel aus der Praxis gelöst hier:
http://www.freebasic.net/forum/viewtopic.php?p=136968


Hallo!

Wie kommt man zum FreeBasic DLL (Mikrochip) übersetzen "mpusbapi.dll? Ich bin nur fünf Grundfunktionen der 10 er hat interessiert:

* MPUSBOpen
* MPUSBRead
* MPUSBWrite
* MPUSBClose
* MPUSBGetDeviceCount

Ich versuchte, die Übersetzungen von VB oder C++ zu tun FreeBasic aber ohne Erfolg:

(Ist in FreeBasic)

Code:


Cls

Const MPUS_FAIL         = 0
Const MPUSB_SUCCESS     = 1
Const MP_WRITE          = 0
Const MP_READ           = 1
Const MAX_NUM_MPUSB_DEV = 127

Const Vid_Pid = "VID_04D8&PID_000A"
Const Outpipe = "\\MCHP_EP3"
Const Inppipe = "\\MCHP_EP3"

Dim As UInteger MyInpPipe
Dim As UInteger MyOutPipe

Dim As Integer  Count

Dim As Any Ptr  hLib

hLib = DylibLoad( "mpusbapi.dll" )
If hLib = 0 Then End

Dim Version As Function () As UInteger
Dim OpenUSB As Function ( ByVal As UInteger, ByVal As String, ByVal As String, ByVal As UInteger, ByVal As UInteger) As Integer
Dim ClosUSB As Function ( ByVal As String ) As Integer
Dim DevCont As Function ( ByVal As String ) As Integer

Version = DyLibSymbol( hLib, "_MPUSBGetDLLVersion" )
OpenUSB = DyLibSymbol( hLib, "_MPUSBOpen" )
ClosUSB = DyLibSymbol( hLib, "_MPUSBClose" )
DevCont = DyLibSymbol( hLib, "_MPUSBGetDeviceCount" )

Count = DevCont(Vid_Pid)

If (Count > 0) Then
   MyOutPipe = OpenUSB( 0, Vid_Pid, Outpipe, MP_WRITE, 0 )
   MyInpPipe = OpenUSB( 0, Vid_Pid, Inppipe, MP_READ,  0 )
Else
   Print "Failed to open data pipes.!"
   Sleep
   End
EndIf

ClosUSB ( Outpipe )

Sleep

End



Zuletzt bearbeitet von Oceano2012 am 13.06.2010, 00:23, insgesamt 3-mal bearbeitet
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Lutz Ifer
Grillmeister


Anmeldungsdatum: 23.09.2005
Beiträge: 555

BeitragVerfasst am: 02.06.2010, 22:18    Titel: Antworten mit Zitat

No offense - this is a german board. Try visiting freebasic.net for english support.
_________________
Wahnsinn ist nur die Antwort einer gesunden Psyche auf eine kranke Gesellschaft.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Oceano2012



Anmeldungsdatum: 30.05.2010
Beiträge: 4

BeitragVerfasst am: 02.06.2010, 23:03    Titel: Entschuldigen Sie mich. Antworten mit Zitat

OK, danke!

Ich habe herausgegeben und übersetzt den Text mithilfe von Google Translate.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
28398



Anmeldungsdatum: 25.04.2008
Beiträge: 1917

BeitragVerfasst am: 03.06.2010, 11:59    Titel: Antworten mit Zitat

Go to freebasic.net/forum
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Oceano2012



Anmeldungsdatum: 30.05.2010
Beiträge: 4

BeitragVerfasst am: 03.06.2010, 22:08    Titel: Re: MPUSBAPI.DLL [Gelöst!] Antworten mit Zitat

Problem gelöst hier:

http://www.freebasic.net/forum/viewtopic.php?p=136968
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Spezielle Fragen 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