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

Bramka IR Attiny 2313 prosze o pomoc

ugh123 15 Gru 2009 21:24 2812 7
  • #1 7394329
    ugh123
    Poziom 13  
    Witam wszystkich :D
    Jak w nazwie tematu wymyslilem takie urzadzenie "alarm" do komorki. Mialo by to dzialac na takiej zasadzie ze w drzwiach na futrynie zamontowal bym z jednej strony diode nadawcza ir a z drugiej stront odbiornik kompatybilny z attiny 2313 czyli TSOP1736. Trzeba by je tak umiescic tak zeby sie " widzialy" zadaniem tinnego bylo by porownywac czy sygnal wyslany przez diode nadawcza zostaje odebrany przez odbiornik TSOP i np jezeli nie odbiora wyslanego kodu to powiedzmy ze wlacza np buzzer , zarowke itp . Prosze o pomoc w napisaniu takiego programu z gory dziekuje

    Pozdrawiam serdecznie Bartek
  • #2 7394435
    dawid512
    Poziom 32  
    Jaki język? Jeżeli Bascom to masz masę przykładów. Weźmy np. Kodowanie RC5. Jednym uc nadajesz kod w drugim odbierasz w określonych ramach czasowych. Reszta to kwestia napisania odpowiednich warunków.
  • #4 7394580
    dawid512
    Poziom 32  
    Najpierw zassaj sobie helpa do bascoma i w nim poczytaj o takich komendach jak getrc5 i rc5send są tam również schematy i przykładowe programy.
  • #7 7394707
    dawid512
    Poziom 32  
    Pokaż schemat i twój program. Upewnij się także czy twój pilot na pewno nadaje w RC5.
  • #8 7397857
    ugh123
    Poziom 13  
    Witam
    Co do programu i schematu to nizej zamieszczam schemat i kod programu
    $regfile = "attiny2313.dat"
    $crystal = 1000000
    Config Lcd = 16 * 2
    Cursor Off
    Config Rc5 = Pind.5
    Dim Address As Byte , Command As Byte
    Enable Interrupts
    Do
    Getrc5(address , Command)
    Command = Command And &B01111111
    Cls
    Lcd "adres :" ; Address
    Lowerline
    Lcd "komenda :" ; Command
    Waitms 100
    Loop
    End

    Schemat
    Bramka IR Attiny 2313 prosze o pomoc

    I caly czas nie odbiera nic wyswietla tylko adres 255 i komenda 127 nie wiem dlaczego tak sie dzieje. Prosze o pomoc



    ---------------------------------------------------------------------------------

    Nareszcie udalo sie odebrac kod z pilota Rc5 :D teraz zostalo jeszcze zrobic nadajnik jakiego kolwiek kodu w rc5

    Napisalem taki program
    $regfile = "attiny2313.dat"
    $crystal = 1000000
    Config Lcdpin = Pin , E = Portd.4
    Config Lcd = 16 * 2
    Config Rc5 = Pind.2
    Config Portd.0 = Output
    Config Portb.3 = Output
    Portb.3 = 0
    Portb.0 = 0
    Dioda Alias Portd.0
    Ir Alias Portb.3
    
    Cursor Off
    Cls
    Lcd "Odbiornik Rc5"
    Lowerline
    Lcd " by Bartek M"
    Wait 2
    Cls
    Dim Address As Byte , Command As Byte
    Enable Interrupts
    Do
    Getrc5(address , Command)
    Command = Command And &B01111111
    If Command = 13 Then Sound Portd.6 , 100 , 100 : Rc5send 0 , 0 , 13
    If Command = 1 Then Dioda = 1 : Rc5send 0 , 0 , 13
    If Command = 2 Then Dioda = 0 : Rc5send 0 , 0 , 13
    Cls
    Lcd "Adres :" ; Address
    Lowerline
    Lcd "Komenda :" ; Command
    Waitms 100
    Loop
    End

    Chodzi mi o to zeby 1 attiny 2313 wysylal i odbieral sygnal jednoczesnie prosze o sprawdzenie kodu pozdrawiam




    Po wielu godzinach spedzonych przy komputerze udalo mi sie zbudowac nadajnik rc5 . Dziekuje wszystkim za pomoc a w szczegolnosci Jacek31 mi pomogl dzieki . Temat uwazam za zamkniety. Pozdrawiam
REKLAMA