标题: BASCOM-AVR 驱动数码管简洁代码 [打印本页]
作者: 富贵竹    时间: 2020-7-22 20:19
标题: BASCOM-AVR 驱动数码管简洁代码
  1. ''''''''''''''''''''''  BASCOM-AVR 驱动一个数码管显示数字 0-9 下载附件查看原理图 代码 实物照片 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  2. $regfile = "m16def.dat"                                     'ATMega16 单片机
  3. $crystal = 8000000                                          '8兆赫晶振

  5. Dim I As Byte

  7. 'PORTB 8个引脚PB0-PB7连接了数码管 A B C D E F G H
  8. Config Porta = Output
  9. Config Portb = Output

  11. Porta.0 = 1                                                 '第1位数码管不亮
  12. Porta.1 = 1
  13. Porta.2 = 1
  14. Porta.3 = 0                                                 '第4个数码管亮
  15. '====================
  16. '数码管显示0-9,1秒钟切换1次
  17. Do
  18.    Wait 1
  19.    I = I + 1
  20.    If I >= 10 Then I = 0

  22.    If I = 0 Then Portb = &HC0
  23.    If I = 1 Then Portb = &HF9
  24.    If I = 2 Then Portb = &HA4
  25.    If I = 3 Then Portb = &HB0
  26.    If I = 4 Then Portb = &H99
  27.    If I = 5 Then Portb = &H92
  28.    If I = 6 Then Portb = &H82
  29.    If I = 7 Then Portb = &HF8
  30.    If I = 8 Then Portb = &H80
  31.    If I = 9 Then Portb = &H90
  32. Loop
复制代码


数码管显示0-9.png (561.46 KB, 下载次数: 175)

BASCOM-AVR驱动数码管代码+原理图+实物图片

BASCOM-AVR驱动数码管代码+原理图+实物图片

BASCOM-AVR单个数码管显示.rar

4.25 MB, 下载次数: 5, 下载积分: 黑币 -5





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