Pisałem program do wyświetlacza kolorowego 320x240 AVD-T320240C256 z Artronic i nie działa tak,jak bym chciał. Biały Tło.
Podłączyłem pod Atmega2560.
PortA. 0...7 do DB0...7
PortC.3 do RS (Reset sygnal)
PortC.4 do WR (Write signal)
PortC.5 do RD (Read signal)
PortC.6 do CS (Chip enable)
PortC.7 do A0 (Register selection) oznaczona jako RS
VDD do +3,3V
VSS do GND
LED+ do +5V
Katalog - http://dl.btc.pl/kamami_wa/lcd-ag-tft320240c256.pdf.
Nie działa
. Szukam pomocy odnośnie programowania w języku Bascom AVR
Mam prośbę o pomoc jak to wykonanie
Dziękuję CKU
[syntax=basic4gl]$regfile = "m2560def.dat"
$crystal = 16000000
$loadersize = 512
$hwstack = 100
$swstack = 75
$framesize = 40
Config Porta = Output
Config Portc = Output
Rs Alias Portc.3
Wr Alias Portc.4
Rd Alias Portc.5
Cs Alias Portc.6
A0 Alias Portc.7
$include "Font8x8.font"
$include "Font16x16.font"
$include "Font6x8.font"
$include "Font5x5.font"
Const Black = &H0000
Const Blue = &H001F
Const Red = &HF800
Const Green = &H07E0
Const Cyan = &H07FF
Const Magenta = &HF81F
Const Yellow = &HFFE0
Const White = &HFFFF
Declare Sub Wrcmd(byval Command As Word)
Declare Sub Wrdata(byval Data16 As Word)
Declare Sub Lcd_reset()
Declare Sub Lcd_clear(byval Color As Word)
Declare Sub Lcd_text(byval S As String , Byval Xoffset As Word , Byval Yoffset As Word , Byval Fontset As Byte , Byval Forecolor As Word , Byval Backcolor As Word)
Declare Sub Lcd_line(byval Lx1 As Word , Byval Ly1 As Word , Byval Lx2 As Word , Byval Ly2 As Word , Byval Color As Word)
Sub Wrcmd(byval Command As Word)
Reset Cs
Set Rd
Reset A0
Porta = Command
Reset Wr
Set Wr
Set Cs
End Sub
Sub Wrdata(byval Data16 As Word)
Reset Cs
Set Rd
Set A0
Reset Wr
Porta = Data16
Reset Wr
Set Wr
Set Cs
End Sub
Sub Lcd_reset()
Set Cs
Set Rd
Set Wr
Set A0
Set Rs
Waitms 10
Reset Rs
Waitms 500
Set Rs
End Sub
Sub Lcd_clear(color As Word)
Dim I As Word , J As WorD
For I = 0 To 319
For J = 0 To 239
Wrdata Color
Next J
Next I
End Sub
Sub Lcd_text(byval S As String , Byval Xoffset As Word , Byval Yoffset As Word , Byval Fontset As Byte , Byval Forecolor As Word , Byval Backcolor As Word)
Local Tempstring As String * 1 , Temp As Word
Local A As Word , Pixels As Byte , Count As Byte , Carcount As Byte , Lus As Byte
Local Row As Byte , Byteseach As Byte , Blocksize As Byte , Dummy As Byte
Local Colums As Byte , Columcount As Byte , Rowcount As Byte , Stringsize As Byte
Local Xpos As Word , Ypos As Word , Pixel As Word , Pixelcount As Byte
Stringsize = Len(s) - 1
For Carcount = 0 To Stringsize
If Fontset = 1 Then Restore Font8x8
If Fontset = 2 Then Restore Font16x16
If Fontset = 3 Then Restore Font6x8
If Fontset = 4 Then Restore Font5x5
Temp = Carcount + 1
Tempstring = Mid(s , Temp , 1)
Read Row : Read Byteseach : Read Blocksize : Read Dummy
Temp = Asc(tempstring) - 32
For Lus = 1 To Temp
For Count = 1 To Blocksize
Read Pixels
Next Count
Next Lus
Colums = Blocksize / Row
Row = Row * 8
Row = Row - 1
Colums = Colums - 1
For Rowcount = 0 To Row Step 8
A = Rowcount + Yoffset
For Columcount = 0 To Colums
Read Pixels
Xpos = Columcount
Temp = Carcount * Byteseach
Xpos = Xpos + Temp
Xpos = Xpos + Xoffset
For Pixelcount = 0 To 7
Ypos = A + Pixelcount
Pixel = Pixels.0
If Pixel = 1 Then
Pixel = Forecolor
Else
Pixel = Backcolor
End If
Wrdata Xpos
Wrdata Ypos
Wrdata Pixel
Shift Pixels , Right
Next Pixelcount
Next Columcount
Next Rowcount
Next Carcount
End Sub
Sub Lcd_line(byval Lx1 As Word , Byval Ly1 As Word , Byval Lx2 As Word , Byval Ly2 As Word , Byval Color As Word)
Local M As Word , M1 As Single , M2 As Single
Local Yg As Word , Cv As Single , Bn As Integer
Local R As Word , B As Word
M1 = Ly2 - Ly1
M2 = Lx2 - Lx1
Cv = M1 / M2
Bn = Int(cv)
M = Low(bn)
B = M * Lx1
B = -1 * B
B = B + Ly1
For R = Lx1 To Lx2
Yg = M * R
Yg = Yg + B
Wrdata R
Wrdata Yg
Wrdata Color
Next R
End Sub
Lcd_reset
Lcd_clear Black
Lcd_text "CEZARY KUZMIUK" , 1 , 10 , 2 , Red , Black
Lcd_text "320x240 AVD-T320240C256" , 10 , 40 , 1 , Red , White
Do
Loop[/syntax]
Statystyki: Napisane przez ckupraca@wp.pl — 22 sie 2016, o 12:55
]]>