'************* Konfiguracja uC ***************** '*********************************************** $regfile = "attiny2313.dat" $crystal = 16000000 Config Portb = &B11111111 : Portb = &B11111111 Config Portd = &B11111011 : Portd = &B11111111 Config Rc5 = Pind.2 Dioda Alias Portd.6 Enable Interrupts '********** Konfiguracja uC Koniec ************ '****************** Zmienne ******************* '*********************************************** Dim Komenda As Byte , Adres As Byte '************* Zmienne Koniec **************** '************** Petla glowna ****************** '*********************************************** Do Getrc5(adres , Komenda) Komenda = Komenda And &B01111111 If Adres = 0 Then Reset Dioda Select Case Komenda Case 1: Toggle Portb.0 Case 2: Toggle Portb.1 Case 3: Toggle Portb.2 Case 4: Toggle Portb.3 Case 5: Toggle Portb.4 Case 6: Toggle Portb.5 Case 7: Toggle Portb.6 Case 8: Toggle Portb.7 End Select Waitms 100 Set Dioda Waitms 100 End If Loop End '************ Petla glowna Koniec **************