|
|
- '''''''''''''''''''''' BASCOM-AVR 驅(qū)動(dòng)一個(gè)數(shù)碼管顯示數(shù)字 0-9 下載附件查看原理圖 代碼 實(shí)物照片 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- $regfile = "m16def.dat" 'ATMega16 單片機(jī)
- $crystal = 8000000 '8兆赫晶振
- Dim I As Byte
- 'PORTB 8個(gè)引腳PB0-PB7連接了數(shù)碼管 A B C D E F G H
- Config Porta = Output
- Config Portb = Output
- Porta.0 = 1 '第1位數(shù)碼管不亮
- Porta.1 = 1
- Porta.2 = 1
- Porta.3 = 0 '第4個(gè)數(shù)碼管亮
- '====================
- '數(shù)碼管顯示0-9,1秒鐘切換1次
- Do
- Wait 1
- I = I + 1
- If I >= 10 Then I = 0
- If I = 0 Then Portb = &HC0
- If I = 1 Then Portb = &HF9
- If I = 2 Then Portb = &HA4
- If I = 3 Then Portb = &HB0
- If I = 4 Then Portb = &H99
- If I = 5 Then Portb = &H92
- If I = 6 Then Portb = &H82
- If I = 7 Then Portb = &HF8
- If I = 8 Then Portb = &H80
- If I = 9 Then Portb = &H90
- Loop
|
-
BASCOM-AVR驅(qū)動(dòng)數(shù)碼管代碼+原理圖+實(shí)物圖片
-
-
BASCOM-AVR單個(gè)數(shù)碼管顯示.rar
2020-7-22 20:19 上傳
點(diǎn)擊文件名下載附件
下載積分: 黑幣 -5
4.25 MB, 下載次數(shù): 5, 下載積分: 黑幣 -5
評(píng)分
-
查看全部評(píng)分
|
