Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

pilot rc5 at89c2051

24 Lut 2004 20:09 1704 3
  • Poziom 10  
    Witam! Przeczytałem u kumpla artykuł o pilocie do kompa (EP 8 i 11/2001) i postanowiłem zakupić sobie części. Teraz przyszła pora na zaprogramowanie AT89c2051, a nie mam programu do obsługi, bo jak się okazało w artykule była tylko część programu. Czy potrafiłby ktoś napisać program do obsługi tego pilota? Kasy i czasu nie mam by zamawiać zaprogramowany mikrokontroler. POMÓŻCIE!!!

    gg:5333791
    e-mail:neorob@interia.pl
    Załączniki:
  • Poziom 17  
    Hi
    Sprobuj sam w bascomie to proste!!!
    Pozdrawiam
  • Poziom 20  
    W EdW 10/03 opisywany byl projekt pilota RC5 sterowanego magistralą I2C lub równolegle. Kompletny program mozna sciagnac ze stony EdW. Jest to prosciutki projekt, ktory bez problemow mozna przerobic do wlasnych celow.
  • Poziom 10  
    Może i jest proste, ale ja nie wiem od czego zacząć. Jestem kompletnie zielony. Mam jakieś 2 kawałki kodu, wiecie jak to poskładać?

    I
    ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

    Address_set = 0
    Set P3.7
    If P3.7 = 1 Then
    Address_set.0 = 1
    EndIf
    Set P3.5
    If P3.5 = 1 Then
    Tab. 1. Adresy poszczególnych
    urządzeń sterowanych kodem RC5.
    Adres Urządzenie
    00 Odbiornik telewizyjny 1
    01 Odbiornik telewizyjny 2
    02 Teletekst
    05 Magnetowid 1
    06 Magnetowid 2
    16 Przedwzmacniacz audio 1
    17 Radioodbiornik
    18 Magnetofon
    19 Przedwzmacniacz audio 2
    20 Odtwarzacz CD
    22 Tuner satelitarny
    Rys. 2. Rozmieszczenie elementów
    na płytce drukowanej.
    Pilot do WinAmpa
    13 Elektronika Praktyczna 8/2001
    Address_set.1 = 1
    EndIf
    Set P3.4
    If P3.4 = 1 Then
    Address_set.2 = 1
    EndIf
    Set P3.3
    If P3.3 = 1 Then
    Address_set.3 = 1
    EndIf
    Set P3.2
    If P3.2 = 1 Then
    Address_set.4 = 1
    EndIf
    Set P1.6
    If P1.6 = 0 Then
    Sony 'podprogram detekcji
    'kodu SONY
    Else
    Rc5 'podprogram obsługi
    'kodu RC5
    End If


    II
    ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,


    Sub Rc5
    'analizowanie odebranego kodu RC5
    On Int0 Receiverc5
    'w przypadku wystąpienia
    'przerwania INT0 skok do
    'podprogramu RECEIVERC5
    Do
    If New = 1 Then
    'jeżeli odebrana została
    'transmisja zawierająca
    'kod RC5, to:
    'W tym momencie przyszła
    'pora na wyjaśnienie roli,
    'jaką pełni w układzie
    'jumper JP3. Warunkiem
    'poprawnej pracy układu jest
    'ustawienie za pomocą
    'jumperów JP1 adresu, pod
    'jaki aktualnie używany
    'pilot będzie wysyłał
    'polecenia. Jeżeli jednak
    'tego adresu nie znamy, to
    'zwieramy jumper JP3:
    Set P1.6
    'sprawdź stan jumpera JP3
    If P1.6 = 0 Then
    'jeżeli jumper zwarty, to:
    Print “Adres= “; Subaddress
    'wyślij do komputera
    'informację o odebranym
    'adresie
    Else
    'w przeciwnym wypadku
    '(tj. podczas normalnej
    'pracy układu):
    If Address_set = Subaddress Then
    'jeżeli odebrany adres
    'zgadza się z adresem
    'ustawionym za pomocą
    'jumperów JP1, to:
    Print Command
    'wyślij do komputera numer
    'aktualnie odebranej komendy
    End If
    End If
    New = 0
    'wskaźnik odebrania
    'transmisji RC5 ustawiamy
    'na 0
    Reset Led
    'włącz diodę LED
    Waitms 100
    Set Led
    'wyłącz diodę LED
    End If
    Loop
    '...........................
    Receiverc5:
    Getrc5(subaddress, Command )
    New = 1
    Return
    End Sub