Das deutsche QBasic- und FreeBASIC-Forum

[Sippo]

Guten Abend zusammen,

ich habe mich daran gemacht daten die von einem mikrocontroller gesendet werden zu empfangen. Diese daten sehen in etwa so aus:

1491
5001
1392
5002
1292
5003
1492
5001
1393
5002
1293
5003
nach jeder vierstelligen zahl wird ein leerzeichen geschickt


Dank diesem hilfreichen beitrag:
http://forum.qbasic.at/viewtopic.php?t=5856&highlight=rs232
bin ich schon so weit, dass folgendes empfangen wird:

1491
5001
1392
5002
1292
5003
1492
500
1
1393
5002
1293
5003
1493
5001
1394
500
2
1294
5003
1494
5001
1395
5002
1295
500
3
1495
5001
1396
5002
1296
5003
1496
500
1
1397
5002

wie kann ich es nun noch hinbekommen dass das ende einer Zahle eindeutig erkannt wird?

ich habe den Code bereits leicht modifiziert:

[MisterD]

1) du fänst mit nem leeren string an ("")
2) du machst input und hängst die eingabe an den string dran (mit +).
3) dann schaust du ob ein leerzeichen drin ist (referenz -> instr).
3.a.1) Wenn ja, nimmst du das was vor dem leerzeichen steht als zahl (referenz -> mid bzw. left).
3.a.2) Den rest vom dem string hebst du auf (referenz -> mid bzw. right).
3.a.3) wiederholen ab 3).
3.b.1) Wenn kein leerzeichen drin ist machst du das nächste input, ohne zuvor ne zahl aus deinem buffer-string zu holen, weil noch nichts "fertiges" drin steht. also wiederholen ab 2).
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[HorstD]

Hallo,

versuch's mal damit:

[MisterD]

das crlf kommt nicht mit über die leitung so wie ich ihn verstanden hab?
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Sippo]

CRLF? was ist das denn? wenn das was bringt wenn man diese Buchstaben sendet wäre das auch kein Problem

MfG Sippo

[nemored]

http://de.wikipedia.org/wiki/CRLF
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[Sippo]

Achso , ok

da im ASCII dafür Hex A0 bzw. dezimal 10 vorgesehen ist wird das wohl nicht gehen, da ich dann mit meinen Dateien in konflikt kommen würde

MfG Sippo

[nemored]

Wenn deine Daten nur aus Ziffern und Leerzeichen bestehen, dann bewegen sie sich ausschließlich im ASCII-Bereich 32 und 48 bis 57.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[Sippo]

Diese muss ich dann aber wieder in integer umwandeln um sie aufs koordinatensystem zu kriegen...
gibts da nen befehl für? werd mal bissle in der referenz wühlen

MfG Sippo

Edit: gefunden: VAL

[nemored]

Ähm - dir ist der Unterschied zwischen einer Ziffer wie "1" und ihrem ASCII-Code 49 schon klar? Wenn du mit eingabe = INPUT(1) einliest, dann hast du es als String vorliegen - mit VALINT(eingabe) erhältst du den zugehörigen Zahlenwert, mit ASC(eingabe) den zugehörigen ASCII-Wert.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[Sippo]

ja der unterschied ist mir schon klar, deshalb will ichs ja umformen

ich hab nun mal nen kleinen Testcode geschrieben aber den muss ich wohl nochmal überarbeiten, der hängt sich nemmich immer in der schleife mit dem input auf. wa ja nur heißen kann, dass er kein leerzeichen findet oder ich nen fehler in dem befel hab oder?

[Sippo]

ich habe nun noch ein wenig an dem Code herumprobiert wenn ich ihn folgendermaßen umschreibe bekomme ich lauter 0er angezeigt:

[nemored]

Hmm, muss ich nochmal drüber schauen - aber das RTRIM bräuchtest du nicht (ist aber nicht der Grund des Fehlers).

Du musst aber auf jeden Fall nach der Auswertung wert wieder auf "" setzen, da du sonst an den schon bestehenden weiter anhängst.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[Andy19312]

uff

du bekommst lauter 0 er angezeigt, wegen dem hier:
if (INSTR(wert," ")) then

er springt nicht in die if hinein

[nemored]

Willst du wirklich nach jedem Anhängen eines Zeichens den ganzen String wieder von vorn nach einem Leerzeichen durchsuchen? (gut, INSTR macht natürlich auch nichts anderes) Warum nicht einfach nur das letzte ausgelesene Zeichen prüfen?

Zum Verlassen einer Schleife gibt es übrigens EXIT FOR; ist sauberer als ein eigenhändiges Setzen der Zählvariablen.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[Andy19312]

alla so?
if mid(wert,len(wert),1) = chr(32) then ?

[nemored]

Oder RIGHT(wert, 1). Oder, noch einfacher, gleich temp
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[Andy19312]

jepp



Aber wenn er temp gleich nach einem Leerzeichen prüfen will, müsste er den ganzen Code total umkrempeln.

So gehts aber auch:

[nemored]

[Sippo]

Vielen Dank für eure Antworten,

ich hatte in den letzten Tagen leider kaum Zeit und bin nicht zum weitermachen gekommen, also entschuldigt bitte die Verzögerung.

der Vorschlag von Andy scheint mir vielversprechend. ich habe versucht diesen umzusetzen allerdings verfängt sich das Prog jetzt wieder in der Schleife und es wird gar nichts angezegt.
Das CHR habe ich auf 20 geändert da dies laut der ASCII tabelle welche ich einsah die leerstelle sein sollte.