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

標題: avr單片機Proteus風速計模型仿真 bascom源程序 [打印本頁]
作者: taotie    時間: 2020-6-15 16:18
標題: avr單片機Proteus風速計模型仿真 bascom源程序
編譯環境：bascom avr+Proteus8.9


單片機源程序如下:
  1. rem Main.bas file generated by New Project wizard
  2. rem
  3. rem Created:   周二 6月 2 2020                 TAOTIE
  4. rem Processor: ATmega8
  5. rem Compiler:  BASCOM-AVR

  7. rem Write your code here

  9. $regfile = "m8def.dat"                                 
  10. $crystal = 8000000                                       
  11. '$baud = 9600                                            
  12. $hwstack = 32                                            
  13. $swstack = 30                                             
  14. $framesize = 40   
  15. Config Scl = Portc.5                                                           ' 用I2C引腳Scl = Portc.5 ，Sda = Portc.4
  16. Config Sda = Portc.4
  17. Config Twi = 400000                                                             ' i2c 的速度  


  20.   Ddrc.3 =  0                                                                    '配置端口方向輸入（啟動鍵）
  21. Portc.3 =  1                                                                     '上拉電阻有效
  22.                                                                                  
  23. I2cinit
  24. $lib "i2c_twi.lbx"                                                                        ' 不使用模擬I2c的軟件，而是使用twi
  25. $lib "glcdSSD1306-I2C.lib"                                                        ' 用glcdSSD1306-I2C庫替換默認庫要添加在bascom avr庫中

  27. #if _build < 20784
  28. Dim ___lcdrow As Byte , ___lcdcol As Byte                                ' 老版本變量格式進行編譯
  29. #endif

  31. Config Graphlcd = Custom , Cols = 128 , Rows = 64 , Lcdname = "SSD1306"   '配置圖形顯示器



  35. DIM  X   AS  bit                          '時間閘門標志
  36. dim jisu as word                         '脈沖計數變量


  39. 'Config Timer1 = Counter , Edge = Rising                        'Timer1工作在計數方式上升沿有效
  40. Config Timer1 = Counter , Edge = Falling                           'Timer1工作在計數方式下降沿有效
  41. Config Timer0 = Timer , Prescale = 8                                   'Timer0工作在計時方式預分頻=8

  43. On Ovf0 Tim0_isr                                                                    '計時器中斷服務標號Tim0_isr
  44. tcnt0=&h06                                                                               '從6開始計250次 中斷1次      250us                     

  46. Enable Timer0                                               '啟用計時器中斷
  47. Enable Interrupts              

  49.                                                                   
  50. do                                                                                         '外循環

  52. BITWAIT  pinc.3, RESET                                               '等待pinc.3置零啟動運行  
  53. jisu=0                                                                               '脈沖計數變量初始化
  54. x=0                                                                                   '時間閘門標志初始化
  55. stop  Timer1                                                                   '停止計數計時
  56. stop  Timer0
  57.   Tcnt1 = 0                                                                      ' 計時計數寄存器初始為零
  58. Timer1 =0
  59.    

  61.                            
  62. start Timer1                                                                    '啟動Timer1
  63. start Timer0                                                                    '啟動Timer0

  65. cls                                                                                    '清屏

  67. Do    '內循環
  68. Setfont font12x16
  69. Lcdat 2, 8 , "km/hr=" ;Tcnt1                                                                              
  70.    if x =1 then  exit do                                     '如果時間閘門標志=1則跳出內循環
  71.   

  73. Loop
  74. loop                                                                                  '循環返回到外循環開始處
  75. end

  77. Tim0_isr:
  78. tcnt0=&h06                                             '進入中斷先賦初值
  79. incr jisu                                                      '每次進入脈沖計數變量加1’
  80. if jisu=9286 then                                  '如果脈沖計數變量等于時間閘門需求時間閘門標志=1
  81. x=1                                                         
  82. end if
  83. Return

  85. $include  "../font12x16.font"
  86.                                                    
復制代碼

所有資料51hei提供下載:
計數.zip (38.26 KB, 下載次數: 44)
作者: 水淌    時間: 2021-5-6 20:47
哇，謝謝樓主，下載學習學習



歡迎光臨 (http://m.zg4o1577.cn/bbs/) Powered by Discuz! X3.1
主站蜘蛛池模板： 在线成人免费 | 91久久精品日日躁夜夜躁欧美 | 日韩中文字幕视频 | 黄色一及片 | 天天干夜夜 | 国产视频成人 | 国产精品一二三 | 午夜精品久久久久久久99 | 国产操操操 | 黄色资源在线观看 | 亚洲综合视频在线观看 | 青青草福利视频 | 亚洲精品成人 | 在线视频99 | 日韩一级免费视频 | 911精品国产一区二区在线 | 51调教丨国产调教视频 | 久久精品国产免费 | 99热最新| 日韩三级中文字幕 | 国产伦精品一区二区三区免费 | 国产一区二区三区视频在线 | 国产草草影院 | 日韩中文字幕一区二区 | 国产做爰免费观看视频 | 黄色小说网站在线观看 | 狠狠五月天 | 天天操天天拍 | 久久午夜视频 | 九九精品视频在线观看 | 国产区一区二区 | 亚洲欧洲天堂 | 欧美一级在线观看 | 在线不卡av | 深夜视频在线观看 | 91久久久久久久久 | 久久久久久免费 | 国产免费一区二区三区 | 日本视频免费观看 | 毛片毛片毛片毛片毛片 | 亚洲午夜久久 |