Hallo zusammen,

ggf. hat wer nen tip für mich. Ich versuche nun seit mehreren Stunden mit Hilfe des Threads (https://www.roboternetz.de/phpBB2/ze...ag.php?t=20209) einen TSOP1738 ans laufen zu bekommen.

Als HW verwende ich das RN-Control v 1.4

Habe also nun den TSOP laut http://www.datasheetcatalog.org/data.../301092_DS.pdf angeschlossen.

+ an +
gnd an gnd
und out an Port pind.3

Egal was ich tue... ich bekomm nix eingelesen (also es wird nichts ausgegeben ... ausser mein programmstart). ... ich habe nun mehrere IR Empfänger durch (von alten Recievern etc. ...) bin aber letztendlich beim TSOP gelandet, da ich diesesn Fabrikneu hier hatte und auch ein Datenblatt hierfür habe.

Als Fernbedienungen habe ich hier diverse rumliegen.
Eine original Philips von einem Philips TV, eine Logitech Harmony, eine andere universal FB von Heitech.

Mein Code:

Code:
 $regfile = "m32def.dat"                                    
 $framesize = 32                                            
 $swstack = 32                                               
 $hwstack = 32
 $crystal = 16000000                                        
 $baud = 9600                                             
 
 Config Rc5 = Pind.3
 On Int1 Int1_int                                        
 Enable Int1
 Config Int1 = Falling
 Enable Interrupts

 Dim Address_rc5 As Byte , Command_rc5 As Byte , Rc5_flag As Bit


 Sound Portd.7 , 400 , 450                                   'BEEP
 Sound Portd.7 , 400 , 250                                   'BEEP
 Sound Portd.7 , 400 , 450                                   'BEEP

 Print "Waiting for IR"

 'main
 Reset Rc5_flag
 Do
   If Rc5_flag = 1 Then
      If Address_rc5 <> 255 Then
        Reset Rc5_flag
        Command_rc5 = Command_rc5 And &B01111111
        Print "Adresse" ; Address_rc5 ; "Code" ; Command_rc5
      End If
   End If
 Loop
End

'Lesen der RC5 Codes
Int1_int:                                                   'Interrupt Handler For Int1
   Disable Int1
   Enable Interrupts
   Getrc5(address_rc5 , Command_rc5)
   Set Rc5_flag                                             'Flag für RC5 Daten
   Gifr = Gifr Or &H80                                      'clear Flag Int1
   Enable Int1
Return