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:

Com Schnittstelle - Programmbeispiel

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



Anmeldungsdatum: 22.10.2005
Beiträge: 428

BeitragVerfasst am: 31.01.2009, 17:51    Titel: Com Schnittstelle - Programmbeispiel Antworten mit Zitat

Ich wollte mal wieder meine usb gps Maus an den PC anschliessen.
Wenn ich sie anschliesse und die Treiber installiere, dann wird sie auch als serielle Schnittstelle erkannt.
Meist als Com 5 oder Com 6.


Wie man Ausgänge schaltet, zeigt ja folgender Code "ist von Steini63".
Das gleiche, wie man die Eingangsleitungen liest.
Nun meine Frage, welche Eingangsleitung muss ich lesen und auf welchen schreiben.

4800 Bits pro Sekunde,8 Datenbits, 1 Stop Bit.

Cu Andy



http://www.freebasic-portal.de/index.php?s=code&id=78


Cu Andy
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Andy19312



Anmeldungsdatum: 22.10.2005
Beiträge: 428

BeitragVerfasst am: 31.01.2009, 19:58    Titel: Antworten mit Zitat

keiner ne Lösung parat?
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192

BeitragVerfasst am: 01.02.2009, 00:58    Titel: Antworten mit Zitat

Hi,
wenn mich nicht alles täuscht, werden die Daten einfach als ASCII -Zeichen ausgegeben (siehe http://vancouver-webpages.com/peter/nmeafaq.txt ).
mit
Code:
Open Com "COM5:4800,N,8,1" For Binary As #1

Dim buffer As String

Do Until Inkey$<>""
  If Loc(1) > 0 Then
    buffer = Space( Loc(1) )
    Get #1, , buffer
    Print buffer
    buffer = ""
  End If
Loop

Close #1
sollten sie sichtbar werden.
_________________
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
Andy19312



Anmeldungsdatum: 22.10.2005
Beiträge: 428

BeitragVerfasst am: 01.02.2009, 03:17    Titel: Antworten mit Zitat

Wenn ich den Code ausführe, passiert überhaupt nichts.
Leider traurig

Hat echt keiner einer Lösung?

Echt keiner?
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Andy19312



Anmeldungsdatum: 22.10.2005
Beiträge: 428

BeitragVerfasst am: 06.02.2009, 17:10    Titel: Antworten mit Zitat

immer noch keiner eine Lösung, komisch
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192

BeitragVerfasst am: 06.02.2009, 21:26    Titel: Antworten mit Zitat

tja...
mach doch eine Umfrage:
    O will mir keiner helfen!
    X kann mir keiner helfen!
    O mir ist nicht zu helfen!

Meine Stimmabgabe ist schon angekreuzt.

Mal eine Frage "Was hast du denn bereits unternommen?"
(außer hier nach einer Lösung zu fragen)
_________________
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
Andy19312



Anmeldungsdatum: 22.10.2005
Beiträge: 428

BeitragVerfasst am: 06.02.2009, 21:40    Titel: Antworten mit Zitat

tja, noch garnichts
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
28398



Anmeldungsdatum: 25.04.2008
Beiträge: 1917

BeitragVerfasst am: 06.02.2009, 22:20    Titel: Antworten mit Zitat

http://freebasic.net/forum
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Andy19312



Anmeldungsdatum: 22.10.2005
Beiträge: 428

BeitragVerfasst am: 06.02.2009, 22:41    Titel: Antworten mit Zitat

OPEN COM "COM4:4800,N,8,1,cs0,cd0,ds0,rs" FOR BINARY AS #1

DIM buffer AS STRING
DO UNTIL INKEY$<>""
IF LOC(1) > 0 THEN
buffer = SPACE( LOC(1) )
GET #1, , buffer
PRINT buffer
buffer = ""
END IF
sleep 1000
LOOP

CLOSE #1



es funktioniert lächeln

Bin jetzt dabei eine gps software zu schreiben. Bis denne
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 -> Allgemeine Fragen zu FreeBASIC. 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