BASCOM-AVR 驅(qū)動(dòng)數(shù)碼管簡(jiǎn)潔代碼

ID:806933 · 發(fā)表于 2020-7-22 20:19

'''''''''''''''''''''' 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

復(fù)制代碼

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊(cè)