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

[mega32L] [BASCOM] LCD PCF8833 - wyświetla na niebiesko

DJ Pako 06 Lis 2009 23:54 4318 4
REKLAMA
  • #1 7225652
    DJ Pako
    Poziom 11  
    Witam, podłączyłem wyświetlacz Nokii 6100 do Megi32L, napisałem prosty program, LCD wyświetla lecz coś jest nie tak, czcionki są wyłącznie koloru niebieskiego, próbowałem różnych ustawień kontrastu jak równierz inwersji lecz bez skutku, nie mogę uzyskać koloru żółtego, zielonego lub czerwonego... Proszę o pomoc kogoś kto miał podobny problem lub kogoś kto wie gdzie leży przyczyna. Załączam kod i fotkę wyświetlacza, fotka przedstawia pracę programu poniżej

    
    $lib "LCD-pcf8833.LBX"
    $regfile = "m32def.dat"                                     'ATMega32L on 3.3V supply
    $crystal = 8000000                                          '8 MHz internal oscillator
    $hwstack = 128
    $swstack = 128
    $framesize = 128
    Config Graphlcd = Color , Controlport = Portc , Cs = 3 , Rs = 0 , Scl = 2 , Sda = 1
    
    Setfont Color16x16
    
    Const Blue = &B00000011
    Const Yellow = &B11111100
    Const Red = &B11100000
    Const Green = &B00011100
    Const Black = &B00000000
    Const White = &B11111111
    Const Brightgreen = &B00111110
    Const Lightgreen = &B01111100
    Const Darkgreen = &B00010100
    Const Darkred = &B10100000
    Const Darkblue = &B00000010
    Const Brightblue = &B00011111
    Const Orange = &B11111000
    
    Glcdcmd &H20
    
    Glcdcmd &H48                               'adres kontrastu
                                                   
    Glcddata 45                                  'kontrast
    
    Box(1 , 1) -(132 , 132) , White
    
    Lcdat 5 , 1 , "NIEBIESKI" , Blue , White
    Lcdat 25 , 1 , "ZOLTY" , Yellow , White
    Lcdat 45 , 1 , "CZERWONY" , Red , White
    Lcdat 65 , 1 , "ZIELONY" , Green , White
    Lcdat 85 , 1 , "CZARNY" , Black , White
    
    End
    
    $include "color16x16.font"
    


    [mega32L] [BASCOM] LCD PCF8833 - wyświetla na niebiesko

    Dodam że LCDkiem z Nokii 3510i steruję bez problemu .
    Dzięki i pozdrawiam.
  • REKLAMA
  • #2 7458049
    markosoft
    Poziom 12  
    Witam

    Mam ten sam problem. Wyłącznie niebieskie czcionki.
    Nie mam pojęcia jak sobie z tym poradzić.
    Bardzo proszę o pomoc w rozwiązaniu problemu.

    Dzięki.
  • REKLAMA
  • #3 7461854
    DJ Pako
    Poziom 11  
    Witam. Tak, udało mi się rozwiązać ten problem. W moim przypadku pomógł taki zabieg: Odłączyłem nóżkę RESET'u wyświetlacza od pinu C.4 mikrokontrolera (patrz kod w pierwszym poście) i podłączyłem do innego wolnego pinu , w moim przypadku Pin C.0, po dodaniu:
    
    Config Pinc.0 = Output
    Set Portc.0
    Reset Portc.0
    Wait 1
    Set Portc.0
    Wait 1
    

    Wyświetlacz ruszył.

    Spróbuj i daj znać czy Tobie to pomogło.
  • REKLAMA
  • #4 7658734
    Prodig
    Poziom 20  
    Witam.

    Ja podłączyłem ten LCD do portu "A" atmega16. Problem mam taki sam, wyświetla na niebiesko i w ogóle coś nie tak z kolorami. Nie wiem w czym tkwi problem.
  • #5 7917130
    wicy
    Poziom 22  
    Zgłaszam ten sam problem. Litery wyświetlane niebiesko na jasnym tle lub jasno (fioletowo?) na niebieskim tle. Czy ktoś rozwiązał ten problem?
    Podejrzewam złą konfigurację (lub jej brak na starcie) kodowania kolorów w lcd (8-bit / 12-bit), ale nie wiem jak sobie z tym poradzić.
    
    $lib "lcd-pcf8833.lbx"
    $regfile = "m16def.dat"
    $crystal = 16000000
    
    Config Graphlcd = Color , Controlport = Portc , Cs = 0 , Rs = 3 , Scl = 1 , Sda = 2
    
    Const Blue = &B00000011
    Const Yellow = &B11111100
    Const Red = &B11100000
    Const Green = &B00011100
    Const Black = &B00000000
    Const White = &B11111111
    Const Brightgreen = &B00111110
    Const Darkgreen = &B00010100
    Const Darkred = &B10100000
    Const Darkblue = &B00000010
    Const Brightblue = &B00011111
    Const Orange = &B11111000
    
    Glcdcmd &H28
    Glcdcmd &H01
    Glcdcmd &H11
    Glcdcmd &H20
    Glcdcmd &H36                                                'Mem_control
    Glcddata &H00101110                                         
    Glcdcmd &H29
    
    Cls
    Box(0 , 0) -(130 , 130) , Yellow
    Setfont Color8x8
    
    Lcdat 5 , 5 , "TEXT" , White , Black
    
    X = 0
    Do
       Incr X
       Cls Text
       Lcdat 5 , 5 , "grafika" , Black , Yellow
       Lcdat 15 , 5 , "LICZBA " ; X , Yellow , Green
       Wait 2
    Loop
    End
    
REKLAMA