roboter
30.12.2004, 22:03
Ich habe nun meinen ATMega16 mit Hilfe eines MAX232 (Schaltung dürfte bekannt sein) an meinen PC angeschloßen.
Habe nun aber ein Problem:
Ich wollte das Tutorial zum URAT auf www.rowalt.de machen.
Also Teil 1:
$Regfile = "m16def.dat" 'ATMega16-Deklarationen
$Crystal = 16000000 'Quarz: 16 MHz
$Baud = 9600 'Baudrate der UART: 9600 Baud
Dim i As Byte
Dim wTest As Word
i = 1
wTest = 35000
Do
Printbin i ; wTest
Print "Hallo AVR: " ; i ; wTest
Print "<--->" ;
Loop
End
Die Baudrate müßte doch passen, oder?
Das Programm funktioniert auch, bekomme das "Hallo AVR" auf dem PC zu sehen.
Teil 2:
$Regfile = "m16def.dat" 'ATMega16-Deklarationen
$Crystal = 16000000 'Quarz: 16 MHz
$Baud = 9600 'Baudrate der UART: 9600 Baud
Dim i As Byte
Do
If USR.RXC = 1 Then 'Wenn Byte empfangen...
i = UDR 'Byte aus UART auslesen
Select Case i
Case "H"
Print "Hallo AVR"
Case "h"
Print "hallo avr"
Case Else
Print "Unbekannter Befehl"
End Select
End If
Loop
End
Nur das Funktioniert nicht: Bekomme nur wirre Zeichen auf den PC.
Aber das Senden muß ja funktionieren, Teil 1 funktioniert ja.
Warum bekomme ich bei Teil 2 nichts vernünftiges vom µC?
Habe nun aber ein Problem:
Ich wollte das Tutorial zum URAT auf www.rowalt.de machen.
Also Teil 1:
$Regfile = "m16def.dat" 'ATMega16-Deklarationen
$Crystal = 16000000 'Quarz: 16 MHz
$Baud = 9600 'Baudrate der UART: 9600 Baud
Dim i As Byte
Dim wTest As Word
i = 1
wTest = 35000
Do
Printbin i ; wTest
Print "Hallo AVR: " ; i ; wTest
Print "<--->" ;
Loop
End
Die Baudrate müßte doch passen, oder?
Das Programm funktioniert auch, bekomme das "Hallo AVR" auf dem PC zu sehen.
Teil 2:
$Regfile = "m16def.dat" 'ATMega16-Deklarationen
$Crystal = 16000000 'Quarz: 16 MHz
$Baud = 9600 'Baudrate der UART: 9600 Baud
Dim i As Byte
Do
If USR.RXC = 1 Then 'Wenn Byte empfangen...
i = UDR 'Byte aus UART auslesen
Select Case i
Case "H"
Print "Hallo AVR"
Case "h"
Print "hallo avr"
Case Else
Print "Unbekannter Befehl"
End Select
End If
Loop
End
Nur das Funktioniert nicht: Bekomme nur wirre Zeichen auf den PC.
Aber das Senden muß ja funktionieren, Teil 1 funktioniert ja.
Warum bekomme ich bei Teil 2 nichts vernünftiges vom µC?