2.8英寸65K全彩色LCD测试程序_bascom avr单片机版 Proteus仿真

仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


注意：这个屏是2.5——3.3v的单片机与彩屏均使用3.3v电源.仿真仅玩玩而已不能据此造实物


单片机源程序如下:

1. 
   
2.    '
   
3.    '  *************************************************
   
4.    '  *  2.8英寸65K全彩色LCD测试程序*
   
5. 
   
6. '横向320x纵向240点[ILI 9341]SPI*
   
7. 
   
8. ' * O-Family 2019. 5.23       *
   
9.    '  *************************************************
   
10.    '
    
11. 
    
12. '$regfile = "m88pdef.dat"                                    '设定使用的AVR。(ATmega88P)
    
13. $regfile = "m328pdef.dat"                                   '设定使用的AVR。(ATmega328P)
    
14. $crystal = 8000000                                          '设定AVR时钟。
    
15. 
    
16. $hwstack = 64                                               '设置硬件堆栈的容量。
    
17. $swstack = 10                                               '设置软件堆栈的容量。
    
18. $framesize = 24                                             '设置框架区域的容量。
    
19. 
    
20.    '
    
21.    '  * G-LCD初期設定 *
    
22.    '
    
23.    Const Portrait = 1                                       'LCD的画面设置方向（旋转90度）。（0：横向放置[X=320，Y=240]，1：纵向放置[X=240，Y=320]）
    
24.    Const Rotate_180 = 0                                     'LCD的画面设置方向（180度旋转）。（0：连接器为上侧，1：连接器为下侧）
    
25.    Dim Offset256 As Byte                                    'LCD地址的偏移标志。(0:0-255 , 1:256-319)
    
26. $lib "glcd-ILI9341_2R8_240x320.lib"                         '嵌入ILI 9341的2.8英寸240x320版本的库。
    
27.    '指定LCD的连接端口。 Cs1 = [CS] , Rst = [RESET] , A0 = [DC] , Si = [SDI] , Sclk = [SCK]
    
28.    Config Graphlcd = Color , Cs1 = Portd.3 , Rst = Portd.4 , A0 = Portd.5 , Si = Portd.6 , Sclk = Portd.7       '选择[Cs1]和[Rst]。
    
29.    Initlcd                                                  'ILI9341初期化。
    
30.    Cls                                                      'G-LCD全画面清屏。
    
31. 
    
32.    '
    
33.    '  * 定义颜色名称 *  [RRRG_GGBB] = [R2,R1,R0,G2_G1,G0,B1,B0]
    
34.    '
    
35.    Const Black = &B0000_0000
    
36.    Const Red = &B1110_0000
    
37.    Const Green = &B0001_1100
    
38.    Const Blue = &B0000_0011
    
39.    Const Magenta = &B1110_0011
    
40.    Const Yellow = &B1111_1100
    
41.    Const Cyan = &B0001_1111
    
42.    Const White = &B1111_1111
    
43.    '
    
44.    Const Orange = &B1111_0100
    
45.    Const Brightgreen = &B0011_1110
    
46.    Const Brightblue = &B0001_1111
    
47.    Const Darkred = &B1100_0000
    
48.    Const Darkgreen = &B0001_0100
    
49.    Const Darkblue = &B0000_0010
    
50. 
    
51.    '
    
52.    '  ****************
    
53.    '  * 绘图测试 *
    
54.    '  ****************
    
55.    '
    
56.    Dim Temp1 As Byte
    
57.    Setfont Color8x8
    
58. 
    
59. #if Portrait = 0                                            '横放[X=320，Y=240]
    
60.    '
    
61.    Offset256 = 0                                            'LCD地址的偏移值。(0: 0-255)
    
62.    Box(0 , 0) -(255 , 239) , White                          '显示区域边框。
    
63.    Lcdat 12 , 90 , "Offset256 = 0" , Cyan , Black
    
64.    For Temp1 = 0 To 232 Step 8                              '显示地址值。
    
65.       Lcdat Temp1 , 5 , "(" ; Temp1 ; ",5)" , Green , Black
    
66.    Next Temp1
    
67.    '
    
68.    Offset256 = 1                                            'LCD地址的偏移值。(1: 256-319)
    
69.    Box(256 , 0 ) -(319 , 239 ) , Red                        '显示区域边框。
    
70.    Lcdat 48 , 260 , "Offset" , Cyan , Black
    
71.    Lcdat 56 , 260 , "256 = 1" , Cyan , Black
    
72.    Lcdat 0 , 260 , "(0,260)" , Green , Black                '显示地址值。
    
73.    Lcdat 8 , 260 , "(8,260)" , Green , Black
    
74.    Lcdat 16 , 256 , "(16,256)" , Green , Black
    
75.    Lcdat 24 , 256 , "(24,256)" , Green , Black
    
76. 
    
77.    '
    
78.    Offset256 = 0                                            'LCD地址的偏移值。(0: 0-255)
    
79.    Lcdat 41 , 90 , "Red" , Red , Black                      '测试文字颜色。
    
80.    Lcdat 49 , 90 , "Green" , Green , Black
    
81.    Lcdat 57 , 90 , "Blue" , Blue , Black
    
82.    Lcdat 65 , 90 , "Magenta" , Magenta , Black
    
83.    Lcdat 73 , 90 , "Yellow" , Yellow , Black
    
84.    Lcdat 81 , 90 , "Cyan" , Cyan , Black
    
85.    Lcdat 89 , 90 , "Orange" , Orange , Black
    
86.    Lcdat 97 , 90 , "White" , White , Black
    
87.    Lcdat 107 , 90 , "Black" , Black , White
    
88.    '
    
89.    Lcdat 117 , 90 , "Darkred" , Darkred , Black
    
90.    Lcdat 125 , 90 , "Darkgreen" , Darkgreen , Black
    
91.    Lcdat 133 , 90 , "Darkblue" , Darkblue , Black
    
92.    Lcdat 141 , 90 , "Brightgreen" , Brightgreen , Black
    
93.    '
    
94.    Boxfill(200 , 190) -(240 , 230) , Red                    'BOX命令测试。
    
95.    Boxfill(215 , 205) -(225 , 215) , Green
    
96.    Box(206 , 196) -(234 , 224) , Cyan
    
97.    '
    
98.    Circle(220 , 152) , 18 , Magenta                         'CIRCLE命令测试。
    
99.    Circle(220 , 152) , 10 , Yellow
    
100.    Line(194 , 152) -(246 , 152) , White
     
101.    Pset 220 , 152 , Black
     
102.    '
     
103.    For Temp1 = 1 To 91 Step 5                               'LINE命令测试。
     
104.       Line(176 , 91) -(255 , Temp1) , Blue
     
105.    Next Temp1
     
106.    '
     
107.    Offset256 = 1                                            'LCD地址的偏移值。(1: 256-319)
     
108.    Boxfill(266 , 190) -(306 , 230) , Red                    'BOX命令测试。
     
109.    Boxfill(281 , 205) -(291 , 215) , Green
     
110.    Box(272 , 196) -(300 , 224) , Cyan
     
111.    '
     
112.    Circle(286 , 152) , 18 , Magenta                         'CIRCLE命令测试。
     
113.    Circle(286 , 152) , 10 , Yellow
     
114.    Line(260 , 152) -(312 , 152) , White
     
115.    Pset 286 , 152 , Black
     
116.    '
     
117. '   Wait 3
     
118. '   Cls                                                      '[Showpic]命令测试。
     
119. '   Offset256 = 1                                            'LCD地址的偏移值。(1: 256-319)
     
120. '   Box(256 , 0 ) -(319 , 239 ) , Green                      '显示区域边框。
     
121. '   Offset256 = 0                                            'LCD地址的偏移值。(0: 0-255)
     
122. '   Showpic 0 , 0 , 5011_255_240
     
123.    '
     
124.    '
     
125. #else                                                       '纵向放置[X=240，Y=320]
     
126.    '
     
127.    Offset256 = 0                                            'LCD地址的偏移值。(0: 0-255)
     
128.    Box(0 , 0) -(239 , 255) , White                          '显示区域边框。
     
129.    Lcdat 4 , 90 , "Offset256 = 0" , Cyan , Black
     
130.    For Temp1 = 0 To 255 Step 8                              '显示地址值。
     
131.       Lcdat Temp1 , 5 , "(" ; Temp1 ; ",5)" , Green , Black
     
132.    Next Temp1
     
133.    '
     
134.    Offset256 = 1                                            'LCD地址的偏移值。(1: 256-319)
     
135.    Box(0 , 256) -(239 , 319) , Red                          '显示区域边框。
     
136.    Lcdat 4 , 90 , "Offset256 = 1" , Cyan , Black
     
137.    Lcdat 256 , 13 , "(256,13)" , Green , Black              '显示地址值。
     
138.    Lcdat 264 , 13 , "(264,13)" , Green , Black
     
139.    Lcdat 272 , 13 , "(272,13)" , Green , Black
     
140.    Lcdat 280 , 13 , "(280,13)" , Green , Black
     
141.    Lcdat 288 , 13 , "(288,13)" , Green , Black
     
142.    Lcdat 296 , 13 , "(296,13)" , Green , Black
     
143.    Lcdat 304 , 13 , "(304,13)" , Green , Black
     
144.    Lcdat 312 , 13 , "(312,13)" , Green , Black
     
145.    '
     
146.    Offset256 = 0                                            'LCD地址的偏移值。(0: 0-255)
     
147.    Lcdat 25 , 90 , "Red" , Red , Black                      '测试文字颜色。
     
148.    Lcdat 33 , 90 , "Green" , Green , Black
     
149.    Lcdat 41 , 90 , "Blue" , Blue , Black
     
150.    Lcdat 49 , 90 , "Magenta" , Magenta , Black
     
151.    Lcdat 57 , 90 , "Yellow" , Yellow , Black
     
152.    Lcdat 65 , 90 , "Cyan" , Cyan , Black
     
153.    Lcdat 73 , 90 , "Orange" , Orange , Black
     
154.    Lcdat 83 , 90 , "White" , White , Black
     
155.    Lcdat 91 , 90 , "Black" , Black , White
     
156.    '
     
157.    Lcdat 101 , 90 , "Darkred" , Darkred , Black
     
158.    Lcdat 109 , 90 , "Darkgreen" , Darkgreen , Black
     
159.    Lcdat 117 , 90 , "Darkblue" , Darkblue , Black
     
160.    Lcdat 125 , 90 , "Brightgreen" , Brightgreen , Black
     
161.    '
     
162.    Boxfill(190 , 170) -(230 , 210) , Red                    'BOX命令测试。
     
163.    Boxfill(205 , 185) -(215 , 195) , Green
     
164.    Box(196 , 176) -(224 , 204) , Cyan
     
165.    '
     
166.    Circle(138 , 192) , 18 , Magenta                         'CIRCLE命令测试。
     
167.    Circle(138 , 192) , 10 , Yellow
     
168.    Line(112 , 192) -(164 , 192) , White
     
169.    Pset 138 , 192 , Black
     
170.    '
     
171.    For Temp1 = 1 To 91 Step 5                               'LINE命令测试。
     
172.       Line(160 , 91) -(239 , Temp1) , Blue
     
173.    Next Temp1
     
174.    '
     
175.    Offset256 = 1                                            'LCD地址的偏移值。(1: 256-319)
     
176.    Boxfill(190 , 270) -(230 , 310) , Red                    'BOX命令测试。
     
177.    Boxfill(205 , 285) -(215 , 295) , Green
     
178.    Box(196 , 276) -(224 , 304) , Cyan
     
179.    '
     
180.    Circle(138 , 292) , 18 , Magenta                         'CIRCLE命令测试。
     
181.    Circle(138 , 292) , 10 , Yellow
     
182.    Line(112 , 292) -(164 , 292) , White
     
183.    Pset 138 , 292 , Black
     
184.    '
     
185. #endif
     
186.    '
     
187.    End
     
188. 
     
189. '--------------------------------------------------------------------------------------------------
     
190. 
     
191.    '
     
192.    '  * 字体数据 *
     
193.    '
     
194. $include "color8x8.font"
     
195.    '
     
196.    '  * BGC图像数据 *
     
197.    '
     
198. '5011_255_240:
     
199. '$bgf "5011_255_240.BGC"

复制代码

全部资料51hei下载地址：
2.8英寸65K全彩色LCD.zip (1.25 MB, 下载次数: 28)

2021-1-27 14:05 上传

点击文件名下载附件
下载积分: 黑币 -5

呵呵~~~手机版用了自动翻译吗？颜色指令都变成中文了。