EA DOGM204 ładny 20x4 ultrapłaski wyswietlacz

[niveasoft]

Cześć. Ten wyświetlacz to sama szklana płyteczka z nóżkami. Nie trzeba go więc przykręcać tylko wystarczy przylutować do płytki.
Z tabliczką podświetlającą ma 5.8mm jeśli więc potrzebny jest jakiś cienki wyświetlacz to ten może się nadać.
Występują w wielu odmianach kolorów.

Przy pisaniu biblioteki i testach nie miałem jeszcze podświetlania więc użyłem latarki
Wystarczy dołączyć bibliotekę i ona przeprowadzi potrzebną wyświetlaczowi inicjalizację.

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1. $lib "EADOGM204_4_anypin.lib"                               'four bits
2.  
3. Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7
4. Config Lcd = 20x4a                                          ' <<< A is important!
5.  
6. Lcdreset Alias Porta.2 : Set Lcdreset : Config Lcdreset = Output       'set HI
7.  
8. Macro Resetlcd
9.  Lcdreset = 0
10.  Waitms 10
11.  Lcdreset = 1
12.  Waitms 1
13. End Macro
14.  
15. Resetlcd : Initlcd : Cls
16.  
17. Locate 1 , 1 : Lcd "Hello World"
18. Locate 2 , 1 : Lcd " EADOGM204A"
19. Locate 3 , 1 : Lcd " BASCOM"
20. Locate 4 , 1 : Lcd "EDC"
21.  
22. End

[niveasoft]

Małe uaktualnienie. Te wyświetlacze są naprawdę świetne. Mają wbudowane trzy zestawy znaków (trzy ROM`y) do wyboru programowo.
Cyrylicę, Euro i Japan, ale podstawowy zestaw jest taki sam. Te niejapońskie mają fajne ikonki

Domyślnie startuje ROMC więc napisałem sub który pozwala wybrać tez ROMA lub ROMC.

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1. Sub Select_rom(byval Rom_name As String * 1)
2.  R24 = &H2A                                                 'RE=1(b0) REV=0(b1) ->extended registers can be accessed
3.  ! call _lcd_control
4.  R24 = &H72                                                 ' "select ROM" command
5.  ! call _lcd_control
6.   Select Case Rom_name
7.    Case "A" : R24 = &H00                                    'ROMA
8.    Case "B" : R24 = &H04                                    'ROMB
9.    Case "C" : R24 = &H0C                                    'ROMC
10.    Case Else
11.     R24 = &H0C
12.   End Select
13.  ! call _Write_lcd                                          'RS Hi ->DataMode
14.  R24 = &H28
15.  ! call _lcd_control                                        'RS Lo ->CommandMode
16. End Sub
17.  
18. Select_rom "A"