找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 3204|回復: 1
收起左側

2.8英寸65K全彩色LCD測試程序_bascom avr單片機版 Proteus仿真

[復制鏈接]
ID:342822 發(fā)表于 2021-1-27 14:05 | 顯示全部樓層 |閱讀模式
本帖最后由 taotie 于 2021-1-27 17:28 編輯

仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）
51hei.png

注意：這個屏是2.5——3.3v的單片機與彩屏均使用3.3v電源.仿真僅玩玩而已不能據(jù)此造實物
3699ph.gif

單片機源程序如下:

  2.    '
  3.    '  *************************************************
  4.    '  *  2.8英寸65K全彩色LCD測試程序*

  6. '橫向320x縱向240點[ILI 9341]SPI*

  8. ' * O-Family 2019. 5.23       *
  9.    '  *************************************************
  10.    '

  12. '$regfile = "m88pdef.dat"                                    '設定使用的AVR。(ATmega88P)
  13. $regfile = "m328pdef.dat"                                   '設定使用的AVR。(ATmega328P)
  14. $crystal = 8000000                                          '設定AVR時鐘。

  16. $hwstack = 64                                               '設置硬件堆棧的容量。
  17. $swstack = 10                                               '設置軟件堆棧的容量。
  18. $framesize = 24                                             '設置框架區(qū)域的容量。

  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全畫面清屏。

  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

  51.    '
  52.    '  ****************
  53.    '  * 繪圖測試 *
  54.    '  ****************
  55.    '
  56.    Dim Temp1 As Byte
  57.    Setfont Color8x8

  59. #if Portrait = 0                                            '橫放[X=320，Y=240]
  60.    '
  61.    Offset256 = 0                                            'LCD地址的偏移值。(0: 0-255)
  62.    Box(0 , 0) -(255 , 239) , White                          '顯示區(qū)域邊框。
  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                        '顯示區(qū)域邊框。
  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

  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                      '顯示區(qū)域邊框。
  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                          '顯示區(qū)域邊框。
  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                          '顯示區(qū)域邊框。
  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

  189. '--------------------------------------------------------------------------------------------------

  191.    '
  192.    '  * 字體數(shù)據(jù) *
  193.    '
  194. $include "color8x8.font"
  195.    '
  196.    '  * BGC圖像數(shù)據(jù) *
  197.    '
  198. '5011_255_240:
  199. '$bgf "5011_255_240.BGC"
復制代碼

全部資料51hei下載地址：
2.8英寸65K全彩色LCD.zip (1.25 MB, 下載次數(shù): 29)

評分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎勵！

查看全部評分

回復

使用道具 舉報

ID:342822 發(fā)表于 2021-1-29 08:49 | 顯示全部樓層
呵呵~~~手機版用了自動翻譯嗎？顏色指令都變成中文了。
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復 返回頂部 返回列表