So es handelt sich um eine "einseitige" Kommunikation, also der ATMEGA32 sendet nur an den ATMEGA8. Wenn gewollt kann man das Programm ja ruhig abändern dass der ATMEGA8 ne Empfangsbestätigung zurückschickt oder was auch immer.
Empfänger:
Code:
$regfile = "m8def.dat"
$framesize = 48
$swstack = 64
$hwstack = 64
$crystal = 8000000
$baud = 9600
Dim Empfangen As String * 3 Bei mehr Zeichen einfach die Stringzahl erhöhen
On Urxc Onrxd
Enable Urxc
Enable Interrupts
Do
If Len(empfangen) > 2 Then 'Nur als Prüfung da ich immer 3 Zeichen gesendet habe, kann also auch weggelassen werden
. 'Hier einfach den Code was passieren soll
.
.
Empfangen = ""
End if
Loop
End
Onrxd:
Empfangen = Empfangen + Chr(udr)
Return
Sender:
Code:
$regfile = "m32def.dat"
$framesize = 54
$swstack = 128
$hwstack = 64
$crystal = 8000000
$baud = 9600
On Urxc Onrxd
Enable Urxc
Enable Interrupts
Do
.
.
.
Gosub Senden
Loop
Senden:
Print "Zu sendender Text"
Return
Lesezeichen