Das deutsche QBasic- und FreeBASIC-Forum

[sowerum]

Hallo liebe FreeBasic-Kenner,
nach einem frustrierenden Versuch mit Visual Basic versuche ich jetzt meine selbstgebaute Wetterstation mit FreeBasic auszulesen.
Die Werte der Sensoren werden von einem Atmega8 auf eine serielle Schnittstelle gesendet. Das funktioniert auch. ein Terminalprogramm empfängt diese Zeichenfolge: A0012163521872171770
Ich krieg es einfach nicht hin, die Schnittstelle mit freeBasic zu lesen. Die beiden folgenden Alternativen funktionieren nicht.

DIM dat as string
OPEN COM "COM1:4800,N,8,1" for input aS #2
dat = ""
do
dat = input(20,#2)
print dat
loop

alternativ:

DIM dat as string
OPEN COM "COM1:4800,N,8,1" for input aS #2
dat = ""
do
input #2, dat
print dat
loop

Die Befehlsreferenzliste, diese Forum und Google konnten mir nicht weiterhelfen. Eigentlich ist das doch eine Standardaufgabe.
Hat jemand für mich den entscheidenden Tip?

[Sebastian]

Hallo und willkommen im Forum!

Die Kombination aus ATMega, MAX232, COM-Port und FreeBASIC habe ich selber schon benutzt. Das geht.

Schau dir vielleicht mal diesen Thread hier an:
http://forum.qbasic.at/viewtopic.php?t=7405

... und im Speziellen das Posting hier, wo im Dauerbetrieb Daten eingelesen werden:
http://forum.qbasic.at/viewtopic.php?p=95177#95177
Da der Code damals für eine spezielle Frage gemacht war, kann man nur ein immer gleiches Byte an den Mikrocontroller senden: Wenn man die 1 auf der Tastatur drückt, wird eine "1" an den COM-Port bzw. Mikrocontroller geschickt. Den Teil könnte man natürlich beliebig ausbauen und auch andere Kommandos schicken.
Durch Tastendruck auf ESC wird die Schleife beendet.

Der Beispielcode aus dem Posting müsste da eingesetzt werden, wo hier die "..." sind:
http://forum.qbasic.at/viewtopic.php?p=95170#95170
Das CLOSE muss am Ende natürlich nur 1x gemacht werden.

Das hier

[sowerum]

Danke, Sebastian, für deine Antwort.
Morgen werde ich mal testen, ob der Comport überhaupt geöffnet wird, mit:

If (Open Com ( COMPort For Binary As #1 ) <> 0 ) Then
Print "Fehler: Der Port konnte nicht geoeffnet werden!"
wie in einem deiner Hinweise steht.

Die Zeile:
If Loc(1) > 0 Then ....; bei mir "Loc(2)"
hatte ich schon mal eingebaut, Loc(2) ergab immer "0".

Sind die Parameter "ME,CS0,DS0,RS" eigentlich wichtig? In der Befehlsreferenz bei "open com..." sind sie zwar aufgeführt, aber im Beispielcode nicht verwendet.

Ist mein Lesebefehl "input #2, dat" resp. "dat = input(20,#2)" so eigentlich richtig angewendet. In einem thread, auf den du verweist, wird mit "Get #1.." gelesen. Wird mit "Get.." nicht ein einzelnes Byte gelesen? Ich möchte einen String lesen mit 20 Zeichen.

[Sebastian]

[sowerum]

So, ich hab jetzt mal mit:

OPEN COM "COM1:4800,N,8,1" for input aS #1
If (Open Com ( "COM1:4800,N,8,1" For Binary As #1 ) <> 0 ) Then
Print "Fehler: Der Port konnte nicht geoeffnet werden!"
End If

das Öffnen der Schnittstelle überprüft. Die Schnittstelle kann nicht geöffnet werden!

Um auszuschließen, dass sie schon aus irgendeinem Grund vorher geöffnet war, hab ich auch mal "close #" davorgesetzt. - kein Erfolg. Wie schon oben geschrieben: ein fremdes Terminalprogramm liest einwandfrei. Die Schnittstelle ist keine umgesetzte USB-Schnittstelle.

Die Zusatzparameter ",ME,CS0,DS0,RS" bewirken übrigens, dass die Schnittstelle viel schneller angesprochen wird, auf das korrekte Öffnen haben sie keinen Einfluss.

An das Problem, dass der empfangene String an der richtigen Stelle beginnt und endet habe ich schon gedacht. Der Messwertgeber sendet nur Ziffern. Der Buchstabe "A" in meinem Beispiel wird vom Sender künstlich erzeugt, um den Beginn der echten Daten zu markieren und muss nachher ausgefiltert werden.
Aber erstmal muss die Schnittstelle überhaupt mal funktionieren.

[RockTheSchock]

Ich glaube damit der Freebasic Treiber für die Serielle / Parallele Schnittstelle Funktioniert muss einmalig das Programm mit Administratorrechten gestartet werden.

[sowerum]

Hallo RockTheSchock,
wie soll ich das verstehen?
Ich hab mal das Programm kompiliert und dann mit rechtsklick "als Administrator ausführen" ausgewählt. Das hatte keinen erfolg.
Ach ja - ich benutze Windows 7 professional.

[Sebastian]

Wenn du das genau so innerhalb 1 Programms hattest,

[sowerum]

Dieser Code bringt keine Fehlermeldung:
Const COMPort = "COM1:4800,N,8,1,ME,CS0,DS0,CD0,RS"
If (Open Com ( "COM1:4800,N,8,1,ME,CS0,DS0,RS" For Binary As #1 ) <> 0 ) Then
Print "Fehler: Der Port konnte nicht geoeffnet werden!"
end if

also müsste sich die schnittstelle damit öffnen lassen.

Was bedeutet "Const COMPort = "COM1:4800,N,8,1,ME,CS0,DS0,CD0,RS""
In der befehlsreferenz ist CONST erläutert, aber ich verstehs nicht.
Ist die Schnittstelle mit dem obigen Code zum lesen geöffnet?

[Sebastian]

Wie wär's hiermit?

[sowerum]

vielen Dank euch beiden für die Mühe, die ihr euch gemacht habt.

Was du geschickt hast, Sebastian, hab ich mal komplett in ein leeres Blatt kopiert und es läuft!

Noch nicht so ganz, statt eines Strings von 20 Zeichen erhalte ich zwei mal acht und einmal vier Zeichen. Aber das liegt ja an der Anpassung an meinen Sendestring und das krieg ich sicher hin.
Wenn ich noch Fragen hab melde ich mich einfach nochmal

Gruß - Uli

[Sebastian]

[sowerum]

Da ich ja das sendende Gerät selbst gebaut und programmiert habe, weiß ich ja wie der Sendstring aussieht. Deshalb glaube ich, den Header ganz einfach halten zu können. Eigentlich nur ein Zeichen: "A"
Wie oben schon mal geschrieben, ist das Startzeichen ein "A".
Dann folgen je drei Ziffern für Helligkeit, Radioaktivität, Luftdruck, Temperatur, Feuchtigkeit, Windrichtung und zwei Zeichen (im Moment nur eines) für Windgeschwindigkeit. Die Länge des Sendestrings ist also immer 20 Zeichen. Ich hab also mal die Variable "puffer" mit "space(20)" dimensioniert.
Damit erhalte ich den richtigen String, wie er gesendet wird. z.B.:
A0092133691842221980". Direkt danach kommt allerdings noch ein String mit unbekannter Zeichenzahl und nicht darstellbaren Zeichen - könnten auch Leerzeichen sein.
An Anfangder Zeile Print "--> Daten empfangen: " & chr(34) & Puffer & chr(34) habe ich noch "LOC(1)" ausgeben gelassen. In der Zeile mit den richtigen Werten ist LOC(1)=8, in der Zeile mit den Leerzeichen ist LOC(1)=2 ????

[Sebastian]

Könnte das evtl. schon funktionieren? (Ungetestet!)