Ich meinte natürlich Quarzoszillatoren!
Naja, ich verwende ein externes Programmiergerät.

Hier meine aktuellen Codes, die leider nicht funktionieren:

SENDER:
Code:
$regfile = "m8def.dat"
$crystal = 12000000

Dim Daten As Byte
Dim A As Integer

Config Portb = Output

Mainloop:
Daten = 170
For A = 1 To 8
If Daten.0 = 1 Then
Gosub Send1
Else
Gosub Send0
End If
rotate Daten , Right , 1
Waitms 500
Next A
Goto Mainloop

Send1:
Portb.1 = 1
Waitms 500
Portb.1 = 0
Goto Mainloop

Send0:
Portb.1 = 0
Waitms 500
Portb.1 = 0
Goto Mainloop
EMPFANG:
Code:
$regfile = "m8def.dat"
$crystal = 12000000

Dim A As Integer
Dim Rxdaten As Byte
Dim Zustand As Integer

Config Portd = Input
Config Portb = Output

Zustand = Pind.2

Mainloop:
For A = 1 To 8
If Rxdaten.0 = 0 Then
Gosub Write0
Else
Gosub Write1
End If
rotate Rxdaten , Left , 1
Waitms 500
Next A
Goto Mainloop

Write1:
Portb.5 = 1
Waitms 500
Portb.5 = 0
Goto Mainloop

Write0:
Portb.5 = 0
Waitms 500
Portb.5 = 0
Goto Mainloop
Was ist da falsch programmiert?
MfG,
ShadowPhoenix[/code]