Das deutsche QBasic- und FreeBASIC-Forum

[blutigerAnfänger]

Hallo zusammen,

hab folgendes Problem:
Muss über eine Serielle Schnittstelle Prozessparameter loggen. Dazu muss jeweils ein Request an die Serielle Schnittstelle gesendet und die Response anschließend in eine Datei geschrieben werden.
Request und Response müssen als hex-Code gesendet und empfangen werden.
Folgender Ansatz:


OPEN Pfadundname$ FOR OUTPUT AS 1
OPEN COM "com1:38400,N,8,1" FOR RANDOM AS 2

DO
PRINT"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
PRINT

Periode =.4
DO
deltat = TIMER - MESSENDE
LOOP UNTIL deltat >= Periode

PRINT #2, "&H010A00000605FF00090000F841" 'Request

DO
IF LOC(2) THEN
dataBridge$=INPUT$(28, #2) 'Reading the
'responded string
IF LEN(dataBridge$)=28 THEN EXIT DO
END IF
LOOP

PRINT dataBridge$
PRINT LEN (dataBridge$)

PRINT #1, dataBridge$

LOOP UNTIL INKEY$ = "s"
CLOSE #1

' Dateiwechsel durch Tastendruck
INPUT "Neue Datei anlegen? (y/n)", neueDatei$
if neueDatei$ = "y" then
i=i+1
GOTO NeueDatei
END if

CLOSE #2
END

Das grundsätzliche Problem: Ich bekomme keine Antwort!
1. Meine Vermutung ist schon mal, dass ich nicht wirklich nen hex-Code schreibe sondern eigentlich nen String, oder? Wie kann ich wirklich nen hex-Code auf die Serielle Schnittstelle schreiben?
Muss ich den hex-Frame als Einzelbotschaften nacheinander senden?
2. Funktioniert mit "dataBridge$=INPUT$(28, #2) " bereits das Warten auf eine Antwort mit der Länge von 28 Bit?

Würd mich sehr freuen, wenn mir jemand weiterhelfen könnte!
Herzlichen Gruß
blutigerAnfänger

[Mao]

Hi.
Wirklich helfen kann ich dir nicht...
...außer sagen, dass so, wie du den HEX-Code senden willst, ein String gesendet wird. Versuch's mal mit Val:
[code]
Print #2, Val(&H010A00000605FF00090000F841) ' Request
[code]
Allerdings weiß ich nicht, ob Val so große Zahlen überhaupt verarbeiten kann.

Und dann:
entweder du hast dich verschrieben, oder du wartest wirklich auf eine 28 _Bit_ Antwort. Input$ holt nur Bytes, keine Bits.

Naja, wirklich geholfen hat das nicht, oder?

Greets,
Mao
_________________
Eine handvoll Glück reicht nie für zwei.
--

[volta]

zu 1. ja, mit 'PRINT #2, "&H010A00000605FF00090000F841" schreibst du einen 56 Byte langen String als Request.
Vermutlich (???) sollst du

[Mao]

Ja, aber auch nicht so hilfreich.
Ich vermute mal irgendwie, dass bei Bloody's Code der Hex-String falsch ist.
_________________
Eine handvoll Glück reicht nie für zwei.
--

[dreael]

Korrekte Variante mit dem Senden von Bytes:

[blutigerAnfänger]

Hallo dreal,

das war der entscheidende Hinweis! Vielen Dank!
Allerdings ist das Script relativ langsam, gibts hier noch Möglichkeiten etwas zu tunen?

Herzlichen Dank

[pebisoft]

man könnte die baudrate von 9600 auf 19200baud erhöhen , wenn es das programm zulässt, macht es aber nicht.


ich hoffe, das mal bald in freebasic die gängigen höheren baudraten mit eingebaut werden!!!!

[volta]

[pebisoft]

in der "open com"beschreibung steht nur ein höchstwert von 9600baud.

bist du sicher das er die höheren baudzahlen durchführt, vielleicht nimmt der immer nur 9600, auch wenn ein höherer wert eingestellt wird.

[Kai Bareis]

Naja siehe hier

Dort steht weiter unten auch eine größere Baudrate. So wie es aussieht ist das auf Freebaisc.de noch alt und von der Qbasic-Hilfe übernommen worden.
_________________
MfG Kai Bareis
Es ist noch kein Meister vom Himmel gefallen! Warum einfach wens auch umständlich geht!

[Michael712]

Vielleicht liegt es bei euch daran, das ihr "For Random" habt, in der englischen wiki steht das gar nicht. Also einfach