'Das Programm schaltet 3 Relais über entsprechende PNP- Transistoren 'by Paul Baumann 02/2008 '------------------------------------------------------------------- $regfile = "2313def.dat" 'Quarz: 4 MHz $crystal = 4000000 Ddrd = &B11111110 'Alles auf Ausgang, bis auf PD0 Portd = &B00000001 'Ziehwiderstand einschalten Ddrb = &B11111111 'Alles auf Ausgang $lib "mcsbyte.lbx" Config Rc5 = Pind.0 'an Pind.0 sitzt der Infrarotempfänger Enable Interrupts 'Interrupts erlauben Dim Address As Byte , Command As Byte Dim Flag As Bit Flag = 1 Do Getrc5(address , Command) If Flag = 1 Then 'wenn Flag 0 ist, wurde ein Flag = 0 'RC5-Kommando empfangen End If 'If Address <> 255 Then 'Wurde kein Komando gesendet, 'gibt die Funktion GETRC5 'eine 255 zurück If Address = 0 Then 'Wenn Adresse 0 (TV)ist, dann Reset Command.7 'reset toggle bit Select Case Command Case 1 : Portb.0 = 0 'Taste 1 schaltet rote LED ein Case 2 : Portb.0 = 1 'Taste 2 schaltet rote LED aus Case 3 : Portd.6 = 0 'gelbe Led ein Case 4 : Portd.6 = 1 'gelbe Led aus Case 5 : Portb.2 = 0 'grüne Led ein Case 6 : Portb.2 = 1 'grüne Led aus End Select If Command = 0 Then 'Taste Null schaltet alle aus Portb.0 = 1 Portd.6 = 1 Portb.2 = 1 End If Flag = 1 End If Loop End