Habe gerade ein Fehler erkannt (Bascom hat einmal address und das andere mal adress geschrieben).
Also der neue Code ist:
Dieser schein in sich schlüssig zu sein, jedoch habe ich ein Problem beim senden.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
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![]()







Zitieren

Lesezeichen