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

[attiny2313] + TFMS1736 + lcd

fizzmann 30 Gru 2008 23:49 1187 7
REKLAMA
  • #1 5926801
    fizzmann
    Poziom 10  
    Config Lcdpin = Pin , Db4 = Pd.2 , Db5 = Pd.3 , Db6 = Pd.4 , Db7 = Pd.5 , E = Pd.1 , Rs = Pd.0 



    na tym etapie z innymi peryferiami (led + ds18b20) jest ok

    problem jest z tfms-em (5V+ --> 330 Ohm + Vc(tfmsa) i równolegle C 4,7uF i nie widzi kodu rc5 ( program jeden z standardowych kiedys hulal na atmedze8 wiec tfms tez dobry powinien byc.) wyczytałem ze tfms na porcie INT0 ma byc itd... mala reorganizacja i Lcd z Db4 = Pd.2 zmienione na cokolwiek- efekt nie działa lcd....
  • REKLAMA
  • #2 5926873
    dawid512
    Poziom 32  
    Może kolega sprecyzuje o co dokładnie mu chodzi bo ja jakoś nie mogę zrozumieć twojego problemu.
  • REKLAMA
  • #3 5928104
    fizzmann
    Poziom 10  
    1 problem: znika mi obraz z lcd jak D4 połacze z innym pinem niz pd2
    (oczywiscie w bascomie zmieniam konfiguracje programu)

    2 problem jezeli zostawie dzialajacy wyswietlacz a dane z tfms puszcze w inny wolny pin nie nie czyta mi kodu.
  • #4 5928254
    sp3ots
    Poziom 38  
    Witam !
    Wyślij cały kod to można będzie się zastanowić co masz nie tak !
    Szczęśliwego Nowego Roku 2009 życzę, Stefan amator
  • #5 5928300
    fizzmann
    Poziom 10  
    
    $crystal = 4000000                                          'deklaracja częstotliwości pracy kwarcu
    
    $regfile "attiny2313.dat"                                   'model procesora dla którego jest ten program
    Deflcdchar 1 , 14 , 17 , 17 , 14 , 32 , 32 , 32 , 32        ' definicja znaki stopnia
    
    
    
    
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Pd.6 , Db5 = Pd.3 , Db6 = Pd.4 , Db7 = Pd.5 , E = Pd.1 , Rs = Pd.0
    
    Cursor Off
    
    Initlcd
    
    
    Lcd "hello"
    
    End
    


    no narazie taki wycinek dlaczego lcd nie działa kiedy db4 podpiete pod pd6 po zmianie sprzetowej na pd2 i zmianie w kodzie działa.
  • REKLAMA
  • Pomocny post
    #6 5928390
    sp3ots
    Poziom 38  
    Witam !

    bez tej lini działa
    Initlcd

    'dopisz
    cls
    'przed linią
    Lcd "hello"

    Teraz działa.

    2009 Rok coraz bliżej
  • #7 5928552
    fizzmann
    Poziom 10  
    
    $crystal = 4000000                                          'deklaracja częstotliwości pracy kwarcu
    
    $regfile "attiny2313.dat"                                   'model procesora dla którego jest ten program
    Deflcdchar 1 , 14 , 17 , 17 , 14 , 32 , 32 , 32 , 32        ' definicja znaki stopnia
    
    
    
    
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Pd.6 , Db5 = Pd.3 , Db6 = Pd.4 , Db7 = Pd.5 , E = Pd.1 , Rs = Pd.0
    
    Cursor Off
    
    Cls
    
    
    
    Dim Kod As Bit
    Dim Command As Byte , Subaddress As Byte
    
    Reset Portd.2
    On Int0 Receiverc5
    Enable Int0
    Enable Interrupts
    Cls
    Lcd "Waiting for RC5"
    Cursor Off
    Do
    If Kod = 1 Then
    Disable Int0
    Cls
    Lcd "Com: " ; Command ; ",Adr: " ; Subaddress
    Kod = 0
    Enable Int0
    End If
    Loop
    Receiverc5:
    Getrc5(Subaddress , Command)
    Kod = 1
    Return
    
    End
    



    wielkie dzieki, zadzialalo, teraz problem z rc5 ;]
    COM:255 Adr: 25
    reaguje na pilota bo mryga wyswietlacz

    Dodano po 11 [minuty]:

    Poradzilem sobie ;>

    
    $crystal = 4000000                                          'deklaracja częstotliwości pracy kwarcu
    
    $regfile "attiny2313.dat"                                   'model procesora dla którego jest ten program
    Deflcdchar 1 , 14 , 17 , 17 , 14 , 32 , 32 , 32 , 32        ' definicja znaki stopnia
    
    
    
    
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Pd.6 , Db5 = Pd.3 , Db6 = Pd.4 , Db7 = Pd.5 , E = Pd.1 , Rs = Pd.0
    
    Cursor Off
    
    Cls
    
    Config Rc5 = Pind.2
    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
    


    na tym kodzie dziala :> jednak denerwuje mnie ta petla ;> zaraz cos pokombinuje
  • REKLAMA
  • #8 5928615
    dawid512
    Poziom 32  
    Wyrzuć CLS i opóźnienie z pętli i zastosuj Locate.
REKLAMA