Habe gerade ein Fehler erkannt (Bascom hat einmal address und das andere mal adress geschrieben).
Also der neue Code ist:
Code:
$regfile = "m32def.dat"
' $framesize = 32
'$swstack = 32
'$hwstack = 32
$crystal = 16000000
$baud = 9600
$lib "mcsbyte.lbx"
Config Pind.5 = Output
Config Pina.7 = Input 'out-pin vom ir empfänger
Config Pinc.3 = Output
Config Rc5 = Pina.7
Porta.7 = 1
Enable Interrupts
Dim Togbit As Byte , Adress As Byte , Command As Byte
Command = 6
Togbit = 0
Adress = 0
Do
Waitms 150
Rc5send Togbit , Adress , Command
Waitms 150
Getrc5(adress , Command)
Waitms 150
If Adress < 255 Then
Print "Adress: " ; Adress ; "Command: " ; Command ; " - "
End If
If Command < 255 Then
Portc.3 = 1
Wait 1
Elseif Command = 255 Then
Portc.3 = 0
End If
Loop
End
Dieser schein in sich schlüssig zu sein, jedoch habe ich ein Problem beim senden.
Wenn ich die Stromversorgung des Atmel´s ausschalte, leuchtet die IR-LED ununterbrochen (ist +5V ---> A LED K -----> 220 Ohm > pind.5).
Wenn die Stromversorgung des Atmel's an ist, flackert die IR-LED periodisch (so, dass man es mit einer trägen Digicam sehen kann - das Flackern, also kann das best. nicht die "Codierung" sein).
Werde die IR-LED mal über einen Transistor ansteuern, mal schauen, was rauskommt.
Vielleicht seht ihr ja noch ein Fehler, denn Bascom beschreibt die Schaltung ja wie oben
Lesezeichen