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
   
6. 
   
7. rem Write your code here
   
8. 
   
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 的速度  
    
18. 
    
19. 
    
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库中
    
26. 
    
27. #if _build < 20784
    
28. Dim ___lcdrow As Byte , ___lcdcol As Byte                                ' 老版本变量格式进行编译
    
29. #endif
    
30. 
    
31. Config Graphlcd = Custom , Cols = 128 , Rows = 64 , Lcdname = "SSD1306"   '配置图形显示器
    
32. 
    
33. 
    
34. 
    
35. DIM  X   AS  bit                          '时间闸门标志
    
36. dim jisu as word                         '脉冲计数变量
    
37. 
    
38. 
    
39. 'Config Timer1 = Counter , Edge = Rising                        'Timer1工作在计数方式上升沿有效
    
40. Config Timer1 = Counter , Edge = Falling                           'Timer1工作在计数方式下降沿有效
    
41. Config Timer0 = Timer , Prescale = 8                                   'Timer0工作在计时方式预分频=8
    
42. 
    
43. On Ovf0 Tim0_isr                                                                    '计时器中断服务标号Tim0_isr
    
44. tcnt0=&h06                                                                               '从6开始计250次 中断1次      250us                     
    
45. 
    
46. Enable Timer0                                               '启用计时器中断
    
47. Enable Interrupts              
    
48. 
    
49.                                                                   
    
50. do                                                                                         '外循环
    
51. 
    
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.    
    
60. 
    
61.                            
    
62. start Timer1                                                                    '启动Timer1
    
63. start Timer0                                                                    '启动Timer0
    
64. 
    
65. cls                                                                                    '清屏
    
66. 
    
67. Do    '内循环
    
68. Setfont font12x16
    
69. Lcdat 2, 8 , "km/hr=" ;Tcnt1                                                                              
    
70.    if x =1 then  exit do                                     '如果时间闸门标志=1则跳出内循环
    
71.   
    
72. 
    
73. Loop
    
74. loop                                                                                  '循环返回到外循环开始处
    
75. end
    
76. 
    
77. Tim0_isr:
    
78. tcnt0=&h06                                             '进入中断先赋初值
    
79. incr jisu                                                      '每次进入脉冲计数变量加1’
    
80. if jisu=9286 then                                  '如果脉冲计数变量等于时间闸门需求时间闸门标志=1
    
81. x=1                                                         
    
82. end if
    
83. Return
    
84. 
    
85. $include  "../font12x16.font"
    
86.                                                    

复制代码

所有资料51hei提供下载:
计数.zip (38.26 KB, 下载次数: 43)

2020-6-15 16:17 上传

点击文件名下载附件

哇，谢谢楼主，下载学习学习