Hallo,

habe mir eine Schaltung aufgebaut mit 2 x Atmega 16, 2 x Max 485 und einem LCD Display, somit will einen RS 485 Bus realisieren.

Der erste Atmega soll als Master dienen und der zweite Atmega als Slave. Diese habe ich auf einem Steckbrett aufgebaut mit folgendem Code:

Master Code:

$regfile = "m16def.dat"
$crystal = 10000000
$baud = 1200
Config Portd.2 = Output
Portd.2 = 1


Dim i As Byte
Dim wTest As Word

I = 1
'wTest = 35000

Do
Portd.2 = 1
Printbin I
Print "1" ; I
'waitms 10
Portd.2 = 0
Loop
End



Slave Code:

$regfile = "m16def.dat"
$crystal = 10000000
$baud = 1200
Config Portd.2 = Input
Portd.2 = 0

Dim I As Byte

' - - - Lcd - - -
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.0 , Db5 = Porta.1 , Db6 = Porta.2 , Db7 = Porta.3 , E = Porta.5 , Rs = Porta.4 'Ausgänge zum LCD
Config Lcdbus = 4
Config Lcdmode = Port
Config Serialin = Buffered , Size = 20
' - - - - - - - - -

Do
If Usr.rxc = 1 Then ' Wenn Byte empfangen...
I = Udr 'Byte aus UART auslesen
Select Case I
Case "1"
Cls
Lcd "Hallo AVR Nr.1"
Case "2"
Cls
Lcd "Hallo AVR Nr.2"
Case Else
Cls
Lcd "Nichts"

End Select
End If
Loop

Leider bekomme ich auf dem LCD am Slave die Meldung Nichts angezeigt. Die Schaltung habe ich auch schon etliche male kontrolliert.

Würde mich über eine Hilfe freuen.

Mfg

Tobias