標(biāo)題: BASCOM-AVR 驅(qū)動數(shù)碼管簡潔代碼 [打印本頁]
作者: 富貴竹    時間: 2020-7-22 20:19
標(biāo)題: BASCOM-AVR 驅(qū)動數(shù)碼管簡潔代碼
  1. ''''''''''''''''''''''  BASCOM-AVR 驅(qū)動一個數(shù)碼管顯示數(shù)字 0-9 下載附件查看原理圖 代碼 實物照片 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  2. $regfile = "m16def.dat"                                     'ATMega16 單片機(jī)
  3. $crystal = 8000000                                          '8兆赫晶振

  5. Dim I As Byte

  7. 'PORTB 8個引腳PB0-PB7連接了數(shù)碼管 A B C D E F G H
  8. Config Porta = Output
  9. Config Portb = Output

  11. Porta.0 = 1                                                 '第1位數(shù)碼管不亮
  12. Porta.1 = 1
  13. Porta.2 = 1
  14. Porta.3 = 0                                                 '第4個數(shù)碼管亮
  15. '====================
  16. '數(shù)碼管顯示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
復(fù)制代碼


數(shù)碼管顯示0-9.png (561.46 KB, 下載次數(shù): 175)

BASCOM-AVR驅(qū)動數(shù)碼管代碼+原理圖+實物圖片

BASCOM-AVR驅(qū)動數(shù)碼管代碼+原理圖+實物圖片

BASCOM-AVR單個數(shù)碼管顯示.rar

4.25 MB, 下載次數(shù): 5, 下載積分: 黑幣 -5





歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1