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

[BASCOM]komendy,obsluga lcd 3310

01 Gru 2010 23:06 5385 7
  • #1 8815039
    Konto nie istnieje
    Konto nie istnieje  
  • Pomocny post
    #2 8815714
    tombus
    Poziom 15  
    Witam.
    Powiem tak. Z doświadczenia wiem, że nieoryginalne zamienniki LCD do n3310 bywają różne. Zdarza się, że nawet, że kontroler jest także inny.
    Również z tym problemem się spotkałem przy swoim projekcie.
    Pomógł mi w tym pdf w załączniku. Co prawda, kody są w C, ale tam jest podana prawidłowa sekwencja odpowiednich komend.
  • #3 8818592
    Konto nie istnieje
    Konto nie istnieje  
  • Pomocny post
    #5 8866004
    wader_669
    Poziom 28  
    
    Const Extcmd = &H21                                         'extended command mode
    Const Contrmid = &HC8                                       'LCD contract medium level(after Extcmd)
    Const Tempcomp2 = &H06                                      'temperature compensation (after Extcmd)
    Const Bias48 = &H14                                         'bias 1:48 for LCD (after Extcmd)
    Const Normcmd = &H20                                        'normal command mode
    Const Lcdinv = &H0D                                         'inverted LCD screen(after Normcmd)
    Const Lcdnorm = &H0C                                        'normal LCD screen(after Normcmd)
    Const Lcdxaddr0 = &H80                                      'set X addr of RAM to 0(after Normcmd)
    Const Lcdpdown = &H24                                       'LCD in power down mode
    Const Lcdact = &H20                                         'LCD in active mode
    Const Cmd1 = &H05
    Const Adresowanie_poziome = &H01
    
    
    
    
    
    
    ' ------ Tcmd(Tlcdcmd) -----     START
    Sub Tcmd(byval Tlcdcmd As Byte)
    Reset Lcd_dc                                                'command mode
    Spiout Tlcdcmd , 1
    Set Lcd_dc                                                  'data mode
    End Sub
    
    ' ------ Tlcdinit ------       START
    Sub Tlcdinit
    Local I As Word
    Spiinit
    Reset Lcd_sce                                               'LCD enable
    Reset Lcd_reset                                             'RESET LCD display
    Set Lcd_reset                                               '
    Tcmd Extcmd                                                 '21
    Tcmd Cmd1                                                   '05
    Tcmd Contrmid                                               'c8 od 30 do 90
    Tcmd Tempcomp2                                              '06
    Tcmd Bias48                                                 '14
    Tcmd Normcmd
    Tcmd Adresowanie_poziome                                    '01
    Tcmd Lcdnorm                                                '
    End Sub
    


    wlasnie testuje na podrobkach sterownika pcd8544. Oczywiscie dziala
  • #6 8867441
    Konto nie istnieje
    Konto nie istnieje  
  • #7 8881137
    Konto nie istnieje
    Konto nie istnieje  
  • #8 9740972
    Konto nie istnieje
    Konto nie istnieje  
REKLAMA