欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標(biāo)題: Bascom avr數(shù)碼管數(shù)字累加 [打印本頁]

作者: 紅日888 時間: 2021-6-20 18:18
標(biāo)題: Bascom avr數(shù)碼管數(shù)字累加
本帖最后由紅日888 于 2021-6-21 00:42 編輯

'這程序0是高電平
$regfile = "m16def.dat"                                  'ATMega16 單片機
$crystal = 8000000                                        '8兆赫晶振
Dim I As Long , L As Long
Dim Gw As Integer , Sw As Integer , Bw As Integer , Qw As Integer    '個位十位百位千位
'PortB 端口的8個引腳連接這個8個LED，
Config Porta = Output
Config Portb = Output
'=======================================================
Dim Value(19) As Byte                                     '數(shù)組中存的是0-9數(shù)字對應(yīng)亮燈的值
Value(10) = &HC0                                           '數(shù)字"0"對應(yīng)的數(shù)碼管設(shè)置值
Value(11) = &HF9                                           '數(shù)字"1"對應(yīng)的數(shù)碼管設(shè)置值
Value(12) = &HA4                                           '數(shù)字"2"對應(yīng)的數(shù)碼管設(shè)置值
Value(13) = &HB0                                           '數(shù)字"3"對應(yīng)的數(shù)碼管設(shè)置值
Value(14) = &H99                                           '數(shù)字"4"對應(yīng)的數(shù)碼管設(shè)置值
Value(15) = &H92                                           '數(shù)字"5"對應(yīng)的數(shù)碼管設(shè)置值
Value(16) = &H82                                           '數(shù)字"6"對應(yīng)的數(shù)碼管設(shè)置值
Value(17) = &HF8                                           '數(shù)字"7"對應(yīng)的數(shù)碼管設(shè)置值
Value(18) = &H80                                           '數(shù)字"8"對應(yīng)的數(shù)碼管設(shè)置值
Value(19) = &H90                                           '數(shù)字"9"對應(yīng)的數(shù)碼管設(shè)置值
Do
Waitms 10                                              '刷新延遲
L = L + 1                                              '計算累加
I = L \ 5                                              '降低數(shù)據(jù)變化頻率
I = I Mod 10000                                        '數(shù)值到10000后清0
Qw = I \ 1000                                           '計算千位
Bw = I Mod 1000                                        '計算百位
Bw = Bw \ 100
Sw = I Mod 100                                        '計算十位
Sw = Sw \ 10
Gw = I Mod 10                                           '計算個位
'只點亮個位數(shù)碼管PA3
Porta = &B0111
Portb = Value(gw + 10)                                  '設(shè)置個位數(shù)值
Waitms 1
'只點亮十位數(shù)碼管PA2
Porta = &B1011
Portb = Value(sw + 10)                                  '設(shè)置十位數(shù)值
Waitms 1
'只點亮百位數(shù)碼管PA1
Porta = &B1101
Portb = Value(bw + 10)                                  '設(shè)置百位數(shù)值
Waitms 1
'只點亮千位數(shù)碼管PA0
Porta = &B1110
Portb = Value(qw + 10)                                  '設(shè)置千位數(shù)值
Waitms 1
Loop
End

作者: 紅日888 時間: 2021-6-21 22:01
我這個板子的燈的輸出都是0為點亮，1為滅，和這個不同的Porta要反過來試

作者: taotie 時間: 2021-6-22 00:00
終于搞明白了，你的板子數(shù)碼管位選是加了反相器的~~~~0就是1，1就是0

歡迎光臨 (http://www.raoushi.com/bbs/)