久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

標題: 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://m.zg4o1577.cn/bbs/) Powered by Discuz! X3.1
主站蜘蛛池模板： 人人看人人爱 | 日产久久视频 | 国产传媒在线播放 | 福利在线播放 | 久久久精品 | www.亚洲天堂| av影片在线观看 | 欧美日韩一二三区 | 毛片网站免费 | 久久不雅视频 | 中文在线字幕观看 | 日韩久久久久 | av黄色在线观看 | 久久h| 美国一级大黄一片免费中文 | 色一情一乱一乱一区91av | 亚洲精品第一 | 国产午夜精品一区二区三区视频 | 伊人久久精品视频 | 久久99九九 | 波多野结衣一区二区三区在线观看 | 午夜激情网站 | 成人爱爱 | 欧美一区二区三区在线观看 | 亚洲欧美视频在线 | 秋霞国产 | 日本色图视频 | 久久精品一区二区三区四区 | 欧美日韩国产一区二区 | 国产成人精品一区二区 | 国产精品一品二区三区的使用体验 | 大香伊人网| 青草国产 | 91超碰在线观看 | 视频一区二区在线观看 | 22精品一区二区三区 | 国产欧美日韩在线观看 | 国产视频成人 | 自拍偷拍亚洲 | 性视频在线 | 在线观看小视频 |