Kleines Problem mit Daten über RS232 einlesen, input get...
Also ich dachte, es wär so einfach, aber irgendwie werde ich da nicht schlau ruas, wie kann ich DAnte seriell einlesen, ich habe 2 AT90S2313 verbunden und der eine sendet ununterbrochen "a". Aber wie empfange ich die DAten nun am zweiten und wie bekomme ich das dann aufs LCD.
Gibt mir Input oder Get den Buchstaben und welches die Zahl wieder.
Könnte mir jemand einwenig Code schreiben?
Müsste ja ohne die ganzen Configs irgendwie so aussehen:
***********
Dim X as Byte
do
home
get X
Lcd X
lowerline
input x
Lcd X
loop
**********
Oder muss ich die Serielle Schnnittstelle noch irgendwie Initialieren, außer der Baudrate?
Bitte helft mir
MFG Moritz
Re: Kleines Problem mit Daten über RS232 einlesen, input get
Hallo,
Zitat:
Zitat von RCO
Also ich dachte, es wär so einfach, aber irgendwie werde ich da nicht schlau ruas, wie kann ich DAnte seriell einlesen, ich habe 2 AT90S2313 verbunden und der eine sendet ununterbrochen "a". Aber wie
meinst du eine Verbindung zweier ATMEL's mittel Software UART?
Ich versuche mal hier 2 Proggis einzufügen, meintest du dies?
Code:
' soll über Soft UART Befehle an BOT senden
Dim Befehl As Byte
Dim Wert As Byte
Dim I As Byte
Open "comd.2:19200,8,n,1" For Output As #1
Open "comb.2:19200,8,n,1" For Input As #2
Do
Input "Gib Befehl ein : " , Befehl , Wert
Print
Printbin #1 , 170
Waitms 100
Printbin #1 , Befehl ; Wert
Loop
"Bot" war in diesem Fall ein andere ATMEL.
Zitat:
Zitat von RCO
Oder muss ich die Serielle Schnnittstelle noch irgendwie Initialieren, außer der Baudrate?
Ja, mit Soft UART auf jeden Fall.
Habe hier noch ein Sample:
Code:
' Gibt 10 mal "serial output" auf Port C.0 aus, danach Ende Programm
' Das zeigt sich an 10maligem Aufblitzen der LED
' KLAPPT!
Dim I As Byte
Waitms 100
Open "comc.0:19200,8,n,1" For Output As #1
For I = 1 To 10
Print #1 , "serial output"
Waitms 255
Next I
Close #1
End 'end program
Hatte damals irgendwie zwei 4433 verbunden und die sollten beide kommunizieren.
Hoffe, das hilft dir.
mfG schnuppel