2 AVR's die miteinerder komunizieren ?

[marc (Gast)]

hab da mal ne doofe Frage[...]
also ich habe 2 Atmega 8's  die sollen miteinerader über RXD / TXD 
kuminzieren, das ich die beiden Verbindungen kreuzen muss ist klar, kann 
mir da mal jemand nen fertigen quellcode mit bascom basteln.Als Danke 
schön bekommt der jenige 5 X LCD 2x16 Mit Backlight bedanke mich 
schonmal im vorraus bei euch. mfg Marc

[Papsi (Gast)]

Hallo,

Sender:

   $regfile = "m16def.dat"
   $crystal = 8000000

   Open "COMA.7:2400,8,N,1,inverted" For Output As #1
   
   Dim Sender as Byte

   Sender = 35
   Printbin #1 , Sender
End

Empfänger:

   $regfile = "m16def.dat"
   $crystal = 8000000

   Open "COMB.0:2400,8,N,1,inverted" For Input As #1

   Dim A As Byte

Do
   A = Inkey(#1)
   If A > 0 Then
      If A = 35 Then Goto XYZ
      ...
      ...
 End If

Die Programme senden von einem Mega8 an den anderen Mega8 ein "35" über 
die Leitung.
Wenn die "35" empfangen wurde, dann sprint er zu XYZ
Die Ports für die Verbindung kannst Du auch selber bestimmen mit Open 
"COM...

Noch Fragen ???

Bitte bei mir melden wegen den LCD´s :-)
elektrik (at) papsi (punkt) de

[marc (Gast)]

Hi Danke wie kann ich jetzt das Programm so schreiben das das ganze
wie eine ir Fernbedienung Funktioniert. Bloß ohne ir Also Mit 2 wire.
Sender UND Empfänger. Brauche noch deine Mail Wegen deiner Anschrift
MFG Marc

[Papsi (Gast)]

Mail steht oben - hier nochmal...
elektrik(at)papsi(punkt)de
(at) = @
(Punkt) = .

Klar oder?  :-)


Schreib mir ne Mail, dann kann ich Dir was zusenden...

[marc (Gast)]

Hi ich gebe dir mal meine sicher ist sicher!

[e-mail]