2 AVR's die miteinerder komunizieren ?

Gast #850972
Lesenswert?

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
Gast #850979
Lesenswert?

Hallo,

Sender:
1
   $regfile = "m16def.dat"
2
   $crystal = 8000000
3

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

8
   Sender = 35
9
   Printbin #1 , Sender
10
End


Empfänger:
1
   $regfile = "m16def.dat"
2
   $crystal = 8000000
3

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

6
   Dim A As Byte
7

8
Do
9
   A = Inkey(#1)
10
   If A > 0 Then
11
      If A = 35 Then Goto XYZ
12
      ...
13
      ...
14
 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
Gast #850988
Lesenswert?

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

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren