Zakupiłem ostatnio wyświetlacz LCD taki jak tutaj http://allegro.pl/show_item.php?item=4218813488. Chciałem go połączyć z moją Atmegą, ale nie mogę przejść samego początku i chociaż wyświetlić 1 piksel.
Programuję w bascomie i przeczytałem całą dokumentację nawet kilku producentów wyświetlaczy używających tego modułu ILI9341. Do końca nie było jasno wyjaśnione jak wysyłać komendy, ale jakoś to ogarnąłem po swojemy. Stworzyłem kod bazując na inicjalizacjach innych osób. Stworzyłem coś takiego jednak nie działa, a może działa, ale ja nie widzę efektu. Mógłby ktoś powiedzieć gdzie jest błąd albo podrzucić jakiś działający kod na ktorym można się wzrowować?
Schemat podłączenia :
- Cały Port D od 0 do 7 to PORTD.0 = DB0 ... PORTD.7 = DB7
KOD PROGRAMU :
[syntax=basic4gl]$regfile = "m328pdef.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32
Config Portd = &B11111111
Config Portc = &B1111111
Db Alias Portd
Rs Alias Portc.5
Wr Alias Portc.4
Rd Alias Portc.3
Cs Alias Portc.2
Rst Alias Portc.1
Declare Sub Writedata(byval Comand As Integer)
Declare Sub Writecomand(byval Comand As Integer)
Cs = 0
Waitms 100
Rst = 1
Waitms 1
Rst = 0
Waitms 5
Rst = 1
Waitms 120
Call Writecomand(&H1)
Waitms 10
Call Writecomand(&H28)
Call Writecomand(&Hcf)
Call Writedata(&H00)
Call Writedata(&H83)
Call Writedata(&H30)
Call Writecomand(&Hed)
Call Writedata(&H64)
Call Writedata(&H3)
Call Writedata(&H12)
Call Writedata(&H81)
Call Writecomand(&He8)
Call Writedata(&H85)
Call Writedata(&H1)
Call Writedata(&H79)
Call Writecomand(&Hcb)
Call Writedata(&H39)
Call Writedata(&H2c)
Call Writedata(&H0)
Call Writedata(&H34)
Call Writedata(&H2)
Call Writecomand(&Hf7)
Call Writedata(&H20)
Call Writecomand(&Hea)
Call Writedata(&H0)
Call Writedata(&H0)
Call Writecomand(&Hc0)
Call Writedata(&H26)
Call Writecomand(&Hc1)
Call Writedata(&H11)
Call Writecomand(&Hc5)
Call Writedata(&H35)
Call Writedata(&H3e)
Call Writecomand(&Hc7)
Call Writedata(&Hbe)
Call Writecomand(&H36)
Call Writedata(&H48)
Call Writecomand(&H3a)
Call Writedata(&H55)
Call Writecomand(&Hb1)
Call Writedata(&H00)
Call Writedata(&H1b)
Call Writecomand(&Hf2)
Call Writedata(&H8)
Call Writecomand(&H26)
Call Writedata(&H1)
Call Writecomand(&He0)
Call Writedata(&H1f)
Call Writedata(&H1a)
Call Writedata(&H18)
Call Writedata(&Ha)
Call Writedata(&Hf)
Call Writedata(&H6)
Call Writedata(&H45)
Call Writedata(&H87)
Call Writedata(&H32)
Call Writedata(&Ha)
Call Writedata(&H7)
Call Writedata(&H2)
Call Writedata(&H7)
Call Writedata(&H5)
Call Writedata(&H0)
Call Writecomand(&He1)
Call Writedata(&H0)
Call Writedata(&H25)
Call Writedata(&H27)
Call Writedata(&H5)
Call Writedata(&H10)
Call Writedata(&H9)
Call Writedata(&H3a)
Call Writedata(&H78)
Call Writedata(&H4d)
Call Writedata(&H5)
Call Writedata(&H18)
Call Writedata(&Hd)
Call Writedata(&H38)
Call Writedata(&H3a)
Call Writedata(&H1f)
Call Writecomand(&H2a)
Call Writedata(&H0)
Call Writedata(&H0)
Call Writedata(&H0)
Call Writedata(&Hef)
Call Writecomand(&H2b)
Call Writedata(&H0)
Call Writedata(&H0)
Call Writedata(&H1)
Call Writedata(&H3f)
Call Writecomand(&Hb7)
Call Writedata(&H7)
Call Writecomand(&Hb6)
Call Writedata(&Ha)
Call Writedata(&H82)
Call Writedata(&H27)
Call Writedata(&H00)
Call Writecomand(&H11)
Waitms 100
Call Writecomand(&H29)
Waitms 100
Call Writecomand(&H2c)
Call Writecomand(&H51)
Call Writedata(&Hff)
End
Sub Writedata(comand As Integer)
Rd = 1
Rs = 1
Waitus 1
Wr = 0
Db = Comand
Waitus 1
Wr = 1
Waitus 1
End Sub
Sub Writecomand(comand As Integer)
Rd = 1
Rs = 0
Waitus 1
Wr = 0
Db = Comand
Waitus 1
Wr = 1
Waitus 1
Rs = 1
End Sub[/syntax]
Chciałbym żebyście się skupili na writecomand i writedata czy na sto procent jest poprawnie wykonany.
Przeniosłem do działu Bascom AVR - SonixStatystyki: Napisane przez ceceros — 15 maja 2014, o 08:05
]]>