Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Andy19312
Anmeldungsdatum: 22.10.2005 Beiträge: 428
|
Verfasst am: 31.01.2009, 17:51 Titel: Com Schnittstelle - Programmbeispiel |
|
|
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 |
|
 |
Andy19312
Anmeldungsdatum: 22.10.2005 Beiträge: 428
|
Verfasst am: 31.01.2009, 19:58 Titel: |
|
|
keiner ne Lösung parat? |
|
Nach oben |
|
 |
volta
Anmeldungsdatum: 04.05.2005 Beiträge: 1876 Wohnort: D59192
|
Verfasst am: 01.02.2009, 00:58 Titel: |
|
|
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 |
|
 |
Andy19312
Anmeldungsdatum: 22.10.2005 Beiträge: 428
|
Verfasst am: 01.02.2009, 03:17 Titel: |
|
|
Wenn ich den Code ausführe, passiert überhaupt nichts.
Leider
Hat echt keiner einer Lösung?
Echt keiner? |
|
Nach oben |
|
 |
Andy19312
Anmeldungsdatum: 22.10.2005 Beiträge: 428
|
Verfasst am: 06.02.2009, 17:10 Titel: |
|
|
immer noch keiner eine Lösung, komisch |
|
Nach oben |
|
 |
volta
Anmeldungsdatum: 04.05.2005 Beiträge: 1876 Wohnort: D59192
|
Verfasst am: 06.02.2009, 21:26 Titel: |
|
|
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 |
|
 |
Andy19312
Anmeldungsdatum: 22.10.2005 Beiträge: 428
|
Verfasst am: 06.02.2009, 21:40 Titel: |
|
|
tja, noch garnichts |
|
Nach oben |
|
 |
28398
Anmeldungsdatum: 25.04.2008 Beiträge: 1917
|
|
Nach oben |
|
 |
Andy19312
Anmeldungsdatum: 22.10.2005 Beiträge: 428
|
Verfasst am: 06.02.2009, 22:41 Titel: |
|
|
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
Bin jetzt dabei eine gps software zu schreiben. Bis denne |
|
Nach oben |
|
 |
|