Duplex Datenübertragung über 20 Meter

[elkokiller]

Hallo veit,

habe jetzt mal versucht dein Beispiel nach zu vollziehen.
Vom Programm ist es ja eigentlich ganz simel. Ich bekomme es aber nicht in die Praxis umgesetzt.

Die Schaltung in der Anlage habe ich mit 2 Atmega 8 nachgebaut.
Jetzt möchte ich am anderen Ende einfach nur eine LED einschalten.

Wie müsste ich den Transfer in meinem Programm einleiten?

$regfile = "m8def.dat"

Const Keys = 2

Config Pinc.0 = Input


Dim I As Byte
Dim Key As Byte


 For I = 1 To Keys
 Key = I
 Select Case Key
 Case 1 : Debounce Pinc.0 , 0 , Key_o1 , Sub
 Case 1 : Debounce Pinc.1 , 0 , Key_o2 , Sub

 End Select

 Next

Loop

   Key_o1:

   '..........


   Return

   Key_o2:

   '..........


   Return