Weatherlights
19.04.2005, 14:16
Ja wir sitzen hier gerad in der Schule und haben noch nicht sonderlich viel Erfahrung mit bascom.
'0003.BAS: UART-Sender
'Hardware: MAX232 an PD0/PD1, Nullmodemkabel zum PC
'---------------------------------------------------
$regfile = "2313def.dat" 'AT90S2313-Deklarationen
$crystal = 3686400 'Quarz: 3.6864 MHz
$baud = 9600 'Baudrate der UART: 9600 Baud
Dim I As Byte
Dim Wtest As Word
Dim Name As String * 12
I = 1
Wtest = 35000
Do
Input "name" , Name
Printbin I ; Wtest
Print "Hallo AVR: " ; Name ; Wtest
Print "<--->" ;
Input "name" , Name
Loop
End
So wenn das Ding nun über das Serielle Kabel connected dann sollen wir beim AVR terminal die Aufferderung erhalten unseren Namen einzugeben. So das tun wir und dann soll Hallo AVR: Name dort erscheinen und dann die Loop schleife neu beginnen und der Name neu eingegeben werden.
Bei uns erscheint jedoch nur beim drücken auf Send nur Name und nicht der Rest der Schleife.
Was läuft da nicht?[/code]
'0003.BAS: UART-Sender
'Hardware: MAX232 an PD0/PD1, Nullmodemkabel zum PC
'---------------------------------------------------
$regfile = "2313def.dat" 'AT90S2313-Deklarationen
$crystal = 3686400 'Quarz: 3.6864 MHz
$baud = 9600 'Baudrate der UART: 9600 Baud
Dim I As Byte
Dim Wtest As Word
Dim Name As String * 12
I = 1
Wtest = 35000
Do
Input "name" , Name
Printbin I ; Wtest
Print "Hallo AVR: " ; Name ; Wtest
Print "<--->" ;
Input "name" , Name
Loop
End
So wenn das Ding nun über das Serielle Kabel connected dann sollen wir beim AVR terminal die Aufferderung erhalten unseren Namen einzugeben. So das tun wir und dann soll Hallo AVR: Name dort erscheinen und dann die Loop schleife neu beginnen und der Name neu eingegeben werden.
Bei uns erscheint jedoch nur beim drücken auf Send nur Name und nicht der Rest der Schleife.
Was läuft da nicht?[/code]