Abend zusammen!
Ich versuche gerade mein Lauflicht per IR zu steuern,
aber nicht über RC5 sondern einfach nur an/aus.

Leider bekomm ich die Invertierung nicht hin.
Das Lauflicht soll nur "laufen" wenn ich am Anfang sende, aber wenn ich sende, läuft es gerade nicht!

Manchmal geht es dann aber auch erst garnicht!

Code:
$regfile = "m16def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600

Waitms 50                                                   'Einschwingzeit

Config Porta = Output                                       'M1
Config Portc = Output                                       'M2
Config Pind.3 = Input                                       'TSOP
Portd.3 = 1                                                 'Pullup

Porta.4 = 1                                                 'Enable1 active = low
Portc.4 = 1
Enable1 Alias Porta.4
Enable2 Alias Portc.4

Dim I As Byte
Dim Time As Integer
Time = 100

Print "Start"
Do

If Pind.3 = 1 Then

For I = 0 To 15
 Porta = I
 Enable1 = 0
 Waitms Time
 Enable1 = 1
Next I

For I = 0 To 11
 Portc = I
 Enable2 = 0
 Waitms Time
 Enable2 = 1
Next I

End If

Loop
Mit den Oskar mess ich nur an/aus, also kann ich den TSOP doch eig. wie einen normalen Schalter abfragen!