logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Sterowanie odbiornikiem RC5 pilotem URC22B-3 - konfiguracja i programowanie

owca607 05 Kwi 2006 18:11 1277 2
REKLAMA
  • #1 2496363
    owca607
    Poziom 15  
    Posty: 105
    Pomógł: 12
    Ocena: 2
    Mam pilota URC22B-3 UNIVERSAL REMOTE CONTROLLER. Czy mogę za jego pomocą sterować odbiornikiem, rc5? Jeśli tak to trzeba go jakoś konfigurować (adres)? ma ktoś może pod ręką jakiś krótki program wykorzystujący odbiornik SFH506? Podłączyłem go do pinu B.0 i chciałem coś na nim wyświetlić ale dupa. Poniżej zamieszczam program który próbowałem wprogramować miał to być tester pilotów ale nie działa.

    Config Portb = &B1111110
    Portd.1 = 0
    Config Rc5 = Pinb.0
    Config Lcd = 16 * 2
    Cursor Off
    Cls
    Lcd "adres: "
    Lowerline
    Lcd "komenda: "
    Dim Address As Byte , Command As Byte
    Enable Interrupts
    Do
    Getrc5(address , Command)
    Waitms 50
    Command = Command And &B0111111
    If Address < 32 Then
    Locate 1 , 10
    Lcd " "
    Locate 1 , 10
    Lcd Address
    Locate 2 , 10
    Lcd " "
    Locate 2 , 10
    Lcd Command
    If Command = 16 Then
    Portd.1 = 1
    Waitms 20
    Portd.1 = 0
    Waitms 100
    Portd.1 = 1
    Waitms 20
    Portd.1 = 0
    End If
    End If
    Loop
    End

    Dodam że jedyne co mi się wyświetla to napis adres2
  • REKLAMA
  • #2 2497100
    M. S.
    Poziom 34  
    Posty: 2107
    Pomógł: 259
    Ocena: 680
    $regfile = "m8def.dat"
    $crystal = 1000000
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Portd.6 , Db5 = Portd.5 , Db6 = Portb.7 , Db7 = Portb.6 , E = Portd.7 , Rs = Portb.0
    $lib "mcsbyte.lbx"
    Cursor Off
    Config Pind.2 = Input
    Portd.2 = 1
    Config Rc5 = Pind.2
    Dim A As String * 2                                         'Deklaracja umożliwiająca działanie komendy GETRC5 ???
    Dim Address As Byte
    Dim Command As Byte
    Enable Interrupts
    Cls
    Do
    Getrc5(address , Command)
    Command = Command And &B01111111
    Locate 1 , 1 : Lcd "A= " ; Address ; "  "
    Locate 2 , 1 : Lcd "K= " ; Command ; "  "
    Loop
    End


    U mnie działa! Program dostosuj do swojego układu.
  • #3 2497380
    Anderian
    Poziom 18  
    Posty: 406
    Pomógł: 9
    Ocena: 3
    masz rezystor pociagajacy ??
    i czy pilot nadaje w standardzie rc5 ?
REKLAMA