kryzzie
17.02.2006, 21:38
Ich habe mir das "AVR Mikrokontroller Lehrbuch" gekauft. Die darin beschriebene Testplatine mit dem ATmega8 habe ich mir zusammengebastelt. Soweit hat auch alles ganz gut geklappt. Ich habe jetzt ein wenig mit dem RS232-Anschluß rumgespielt.
Folgendes Beispiel lief einwandfrei:
$regfile = "m8def.dat"
$crystal = 3686400
$baud = 9600
Dim i As Byte
Do
If Usr.rxc = 1 Then
I = Udr
Select Case i
Case "H"
Print "Hallo AVR"
Case "h"
Print "hallo avr"
Case Else
Print "Unbekannter Befehl"
End Select
End If
Loop
End
Wenn ich jedoch versuche den Outputpuffer zu aktivieren erhalte ich garkeine Daten mehr in AVRTerm. Das einzige was ich Hardwaremäßig geändert habe ist, dass ich PD5 mit dem Speaker verbunden habe. Ich höre nur ein gleichbleibenden Ton der sich für mein Ohr genauso hoch anhört, als wenn ich die If-Schleife weglasse.
$regfile = "m8def.dat"
$crystal = 3686400
$baud = 9600
Config Serialout = Buffered , Size = 20
Ddrd.5 = 1
Do
If _rs_head_ptrw0 = _rs_tail_ptrw0 Then
Print "Dies ist ein Test."
End If
Portd.5 = Not Portd.5
Waitms 1
Loop
End
Für jedweden Tip wäre ich dankbar.
kryzzie
Folgendes Beispiel lief einwandfrei:
$regfile = "m8def.dat"
$crystal = 3686400
$baud = 9600
Dim i As Byte
Do
If Usr.rxc = 1 Then
I = Udr
Select Case i
Case "H"
Print "Hallo AVR"
Case "h"
Print "hallo avr"
Case Else
Print "Unbekannter Befehl"
End Select
End If
Loop
End
Wenn ich jedoch versuche den Outputpuffer zu aktivieren erhalte ich garkeine Daten mehr in AVRTerm. Das einzige was ich Hardwaremäßig geändert habe ist, dass ich PD5 mit dem Speaker verbunden habe. Ich höre nur ein gleichbleibenden Ton der sich für mein Ohr genauso hoch anhört, als wenn ich die If-Schleife weglasse.
$regfile = "m8def.dat"
$crystal = 3686400
$baud = 9600
Config Serialout = Buffered , Size = 20
Ddrd.5 = 1
Do
If _rs_head_ptrw0 = _rs_tail_ptrw0 Then
Print "Dies ist ein Test."
End If
Portd.5 = Not Portd.5
Waitms 1
Loop
End
Für jedweden Tip wäre ich dankbar.
kryzzie