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

標題: Bascom avr數碼管數字累加 [打印本頁]

作者: 紅日888 時間: 2021-6-20 18:18
標題: Bascom avr數碼管數字累加
本帖最后由紅日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                                     '數組中存的是0-9數字對應亮燈的值
Value(10) = &HC0                                           '數字"0"對應的數碼管設置值
Value(11) = &HF9                                           '數字"1"對應的數碼管設置值
Value(12) = &HA4                                           '數字"2"對應的數碼管設置值
Value(13) = &HB0                                           '數字"3"對應的數碼管設置值
Value(14) = &H99                                           '數字"4"對應的數碼管設置值
Value(15) = &H92                                           '數字"5"對應的數碼管設置值
Value(16) = &H82                                           '數字"6"對應的數碼管設置值
Value(17) = &HF8                                           '數字"7"對應的數碼管設置值
Value(18) = &H80                                           '數字"8"對應的數碼管設置值
Value(19) = &H90                                           '數字"9"對應的數碼管設置值
Do
Waitms 10                                              '刷新延遲
L = L + 1                                              '計算累加
I = L \ 5                                              '降低數據變化頻率
I = I Mod 10000                                        '數值到10000后清0
Qw = I \ 1000                                           '計算千位
Bw = I Mod 1000                                        '計算百位
Bw = Bw \ 100
Sw = I Mod 100                                        '計算十位
Sw = Sw \ 10
Gw = I Mod 10                                           '計算個位
'只點亮個位數碼管PA3
Porta = &B0111
Portb = Value(gw + 10)                                  '設置個位數值
Waitms 1
'只點亮十位數碼管PA2
Porta = &B1011
Portb = Value(sw + 10)                                  '設置十位數值
Waitms 1
'只點亮百位數碼管PA1
Porta = &B1101
Portb = Value(bw + 10)                                  '設置百位數值
Waitms 1
'只點亮千位數碼管PA0
Porta = &B1110
Portb = Value(qw + 10)                                  '設置千位數值
Waitms 1
Loop
End

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

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

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