-
-
Hallo,
stell die Universalfernbedienung auf SONY Geräte ein. Die meisten benutzen den RC5-Code.
Für Bascom folgendes Proggi verwenden :
' RC5 Receiver Test
$regfile = "m8def.dat" ' ATmega8
$crystal = 3690000 ' Taktfrequenz Board
$baud =9600 ' RS232
Config Rc5 = Pind.3 ' PD3 ist Eingang für SFH506-36
Portd.3 = 1 ' PullUp aktiv
Enable Interrupts ' Timer0 arbeitet im Hintergrund
Dim Addresse As Byte , Kommando As Byte
Dim Flag As Bit
Flag = 1
Do
Getrc5(addresse , Kommando)
If Flag = 1 Then
Print "Warte auf Kommando"
Flag = 0
End If
If Address <> 255 Then
Reset Kommando.7 ' Togglebit zurücksetzen
Cls
Print "Addresse: " ; Addresse ; " Kommando: " ; Kommando
Flag = 1
End If
Loop
End
Gruß, Manni
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- Anhänge hochladen: Nein
- Beiträge bearbeiten: Nein
-
Foren-Regeln
Lesezeichen