Kommunikation über den UART

Gast #21144
Lesenswert?

Hallo Zusammen,
ich bin auf der Suche nach einem Beispielprogramm zu Kommunikation  über 
den UART.
Vom PC werden Zeichen Strings gesendet, welche im AVR (AT90S4433) 
abgespeichert und dann abgearbeitet werden sollen.

Im PC läuft das folgende BASIC Programm:

100 open“com1:9600,N,8,1,DS,CD“as#1
120 print#1,“@0A50,500,300,900":gosub 1000
130 print#1,“@0A20,200,-30,90":gosub 1000
140 stop
1000 if loc(1)<1 then goto 1000
1010 a$=input$(1,1)
1015 if a$=&#8220;0" then return
1020 print &#8221;Karte meldet Fehler : &#8221;;a$
1030 stop


Könnte mir bitte jemand ein Beispielprogramm zum Empfang und Abspeichern 
eines Strings zusenden?
Wie kann das Ende der Übertragung erkannt werden? Die Strings sind 
unterschiedlich lang.

Grüße Axel
Gast #21146
Lesenswert?

Hi,

ich kann dir leider nicht mit einem QBASIC-Quelltext aushelfen, aber du 
kannst ja erstmal das Programm "HyperTerminal" benutzen,um Daten über 
die serielle Schnittstelle zu senden bzw. zu empfangen. Das findest du 
unter:

Start/Programme/Zubehör/HyperTerminal

Falls du Ahnung von Visual Basic hast, kann ich dir
die nötigen Quelltexte schicken.
Daraus kannst du dann dein Programm basteln.
Gast #21147
Lesenswert?

Hallo Stefan,
ich suche ein Programmbeispiel für den AVR zum Empfang und zum 
Abspeichern des vom PC gesendeten Strings.
Das Q-Basic Programm habe ich. Es wurde beim Einfügen in die erste 
Nachricht nur falsch dargestellt.

Hoffentlich klappt es jetzt:

100 open;com1:9600,N,8,1,DS,CD ;as#1
120 print#1,;"@0A50,500,300,900":gosub 1000
130 print#1,;"@0A20,200,-30,90":gosub 1000
140 stop
1000 if loc(1)<1 then goto 1000
1010 a$=input$(1,1)
1015 if a$="0" then return
1020 print Karte meldet Fehler : ;a$
1030 stop


Grüße Axel
Gast #21149
Lesenswert?

Hi. Ich versuche auch zur Zeit, so ein Terminalprogramm zu schreiben
(Visual Basic). Das mit dem Senden von PC nach µC ist kein Problem.
Aber das Auswerten Empfangener, bestimmter, Zeichenketten ist das
Problem.. Wenn der µC z.B. die Zahl "1" sendet, soll sich eine
Shape-Farbe verändern. (Nur so als Test) Oder irgendwas anderes
"tun".

Danke

pingLo

P.S: Ich verwende MSComm (Steuerelement)

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren