标题: st7735彩色液晶仿真(Proteus 8 +bascom avr单片机) [打印本页]
作者: taotie    时间: 2019-5-27 13:31
标题: 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

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

  22. Const Portrait = 0                                          '1=Portrait, 0=Landscape
  23. Const Rotate_180 = 0                                        '1=Rotated,  0=Not Rotated

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

  40. Dim I As Byte , N As Byte , M As Byte , P As Byte
  41. '============================ Main prog ========================================
  42. Initlcd

  44. Cls

  46. Do

  48. #if Portrait = 0

  50.    Boxfill(0 , 0) -(159 , 127) , Green
  51.    Boxfill(0 , 0) -(159 , 127) , Red
  52.    Boxfill(0 , 0) -(159 , 127) , Violet
  53.    Boxfill(0 , 0) -(159 , 127) , Yellow
  54.    Boxfill(0 , 0) -(159 , 127) , Blue

  56.    Line(0 , 0) -(159 , 0) , Yellow
  57.    Line(0 , 0) -(0 , 127) , Yellow
  58.    Line(0 , 127) -(159 , 127) , Yellow
  59.    Line(159 , 0) -(159 , 127) , Yellow

  61.    Pset 1 , 1 , Yellow
  62.    Pset 158 , 1 , Yellow
  63.    Pset 1 , 126 , Yellow
  64.    Pset 158 , 126 , Yellow

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

  68.    For I = 1 To 63 Step 4
  69.       Circle(80 , 64) , I , Green
  70.    Next I

  72.    Setfont Color8x8
  73.    Lcdat 60 , 20 , "Display ST7735R" , Orange , Blue
  74.    Wait 1

  76.    Boxfill(0 , 0) -(159 , 127) , White
  77.    Showpic 40 , 24 , Clock

  79. #else

  81.    Boxfill(0 , 0) -(127 , 159) , Green
  82.    Boxfill(0 , 0) -(127 , 159) , Red
  83.    Boxfill(0 , 0) -(127 , 159) , Violet
  84.    Boxfill(0 , 0) -(127 , 159) , Yellow
  85.    Boxfill(0 , 0) -(127 , 159) , Blue

  87.    Line(0 , 0) -(127 , 0) , Yellow
  88.    Line(0 , 0) -(0 , 159) , Yellow
  89.    Line(0 , 159) -(127 , 159) , Yellow
  90.    Line(127 , 0) -(127 , 159) , Yellow

  92.    Pset 1 , 1 , Yellow
  93.    Pset 126 , 1 , Yellow
  94.    Pset 1 , 158 , Yellow
  95.    Pset 126 , 158 , Yellow

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

  99.    For I = 1 To 63 Step 4
  100.       Circle(64 , 80) , I , Green
  101.    Next I

  103.    Setfont Color8x8
  104.    Lcdat 76 , 20 , "  ST7735R  " , Orange , Blue
  105.    Wait 1

  107.    Boxfill(0 , 0) -(127 , 159) , White
  108.    Showpic 24 , 40 , Clock

  110. #endif

  112. Wait 2

  114. Loop

  116. End

  118. '-------------------------------------------------------------------------------
  119. $include "color8x8.font"
  120. Clock:
  121. $bgf "Clock.bgc"
复制代码


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

作者: lyl_420819    时间: 2019-9-4 16:17
学习，谢谢分享。
作者: 哈里路    时间: 2020-4-15 23:13
感谢分享，最近在找ST7735的I2C驱动，好像都是SPI通信驱动
作者: sphns    时间: 2020-4-23 14:25
学习，谢谢分享。
作者: AlirezaGhh    时间: 2020-7-18 20:50
good luck very useful
作者: suqianfu    时间: 2021-9-5 01:08
哈里路 发表于 2020-4-15 23:13
感谢分享，最近在找ST7735的I2C驱动，好像都是SPI通信驱动

因为SPI是独立时钟口，传输可以更快，更稳。乱码几率小。



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1