单片机论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 380|回复: 0
打印 上一主题 下一主题
收起左侧

st7735彩色液晶仿真(Proteus 8 +bascom avr单片机)

[复制链接]
跳转到指定楼层
楼主
st7735的Proteus仿真测试


单片机源程序如下:
  1. '----------------------------------------------------------------------------'
  2. '                      ST7735R display library                             '
  3. '                         resolution 128x160                                 '
  4. '                                                                            '
  5. '                         BASCOM-AVR  2.0.8.0.                                '
  6. '                         Shilov Sergey ?017                                '
  7. '                            St-Peterburg                                    '
  8. '                               RUSSIA                                       '
  9. '                                                                            '
  10. '----------------------------------------------------------------------------'
  11. $regfile = "m8adef.dat"
  12. $crystal = 8000000
  13. $hwstack = 64
  14. $swstack = 64
  15. $framesize = 64

  16. '------------------------------- Setup -----------------------------------------
  17. $lib "glcd-ST7735R_april.lib"
  18. '$lib "glcd-ST7735R_march.lib"
  19. Config Graphlcd = Color , A0 = Portd.3 , Si = Portd.2 , Sclk = Portd.1 , Cs1 = Portd.4 , Rst = Portd.0       ' CS1 & Rst are optional

  20. Const Portrait = 0                                          '1=Portrait, 0=Landscape
  21. Const Rotate_180 = 0                                        '1=Rotated,  0=Not Rotated

  22. '------------------- Variables & Constants -------------------------------------
  23. Const Blue = &B00000011                                     ''predefined contants are making programming easier
  24. Const Yellow = &B11111100
  25. Const Red = &B11100000
  26. Const Green = &B00011100
  27. Const Black = &B00000000
  28. Const White = &B11111111
  29. Const Brightgreen = &B00111110
  30. Const Darkgreen = &B00010100
  31. Const Darkred = &B10100000
  32. Const Darkblue = &B00000010
  33. Const Brightblue = &B00011111
  34. Const Orange = &B11111000
  35. Const Violet = &B11100011

  36. Dim I As Byte , N As Byte , M As Byte , P As Byte
  37. '============================ Main prog ========================================
  38. Initlcd

  39. Cls

  40. Do

  41. #if Portrait = 0

  42.    Boxfill(0 , 0) -(159 , 127) , Green
  43.    Boxfill(0 , 0) -(159 , 127) , Red
  44.    Boxfill(0 , 0) -(159 , 127) , Violet
  45.    Boxfill(0 , 0) -(159 , 127) , Yellow
  46.    Boxfill(0 , 0) -(159 , 127) , Blue

  47.    Line(0 , 0) -(159 , 0) , Yellow
  48.    Line(0 , 0) -(0 , 127) , Yellow
  49.    Line(0 , 127) -(159 , 127) , Yellow
  50.    Line(159 , 0) -(159 , 127) , Yellow

  51.    Pset 1 , 1 , Yellow
  52.    Pset 158 , 1 , Yellow
  53.    Pset 1 , 126 , Yellow
  54.    Pset 158 , 126 , Yellow

  55.    Box(2 , 2) -(157 , 125) , Yellow

  56.    For I = 1 To 63 Step 4
  57.       Circle(80 , 64) , I , Green
  58.    Next I

  59.    Setfont Color8x8
  60.    Lcdat 60 , 20 , "Display ST7735R" , Orange , Blue
  61.    Wait 1

  62.    Boxfill(0 , 0) -(159 , 127) , White
  63.    Showpic 40 , 24 , Clock

  64. #else

  65.    Boxfill(0 , 0) -(127 , 159) , Green
  66.    Boxfill(0 , 0) -(127 , 159) , Red
  67.    Boxfill(0 , 0) -(127 , 159) , Violet
  68.    Boxfill(0 , 0) -(127 , 159) , Yellow
  69.    Boxfill(0 , 0) -(127 , 159) , Blue

  70.    Line(0 , 0) -(127 , 0) , Yellow
  71.    Line(0 , 0) -(0 , 159) , Yellow
  72.    Line(0 , 159) -(127 , 159) , Yellow
  73.    Line(127 , 0) -(127 , 159) , Yellow

  74.    Pset 1 , 1 , Yellow
  75.    Pset 126 , 1 , Yellow
  76.    Pset 1 , 158 , Yellow
  77.    Pset 126 , 158 , Yellow

  78.    Box(2 , 2) -(125 , 157) , Yellow

  79.    For I = 1 To 63 Step 4
  80.       Circle(64 , 80) , I , Green
  81.    Next I

  82.    Setfont Color8x8
  83.    Lcdat 76 , 20 , "  ST7735R  " , Orange , Blue
  84.    Wait 1

  85.    Boxfill(0 , 0) -(127 , 159) , White
  86.    Showpic 24 , 40 , Clock

  87. #endif

  88. Wait 2

  89. Loop

  90. End

  91. '-------------------------------------------------------------------------------
  92. $include "color8x8.font"
  93. Clock:
  94. $bgf "Clock.bgc"
复制代码


资料 st7735.zip (51.33 KB, 下载次数: 6)

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 转播转播 分享分享 分享淘帖 顶 踩
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|单片机论坛 |51黑电子论坛单片机 联系QQ:125739409;技术交流QQ群582644647

Powered by 单片机教程网

快速回复 返回顶部 返回列表