|
|
本帖最后由 紅日888 于 2021-6-21 00:42 編輯
'這程序0是高電平
$regfile = "m16def.dat" 'ATMega16 單片機(jī)
$crystal = 8000000 '8兆赫晶振
Dim I As Long , L As Long
Dim Gw As Integer , Sw As Integer , Bw As Integer , Qw As Integer '個(gè)位十位百位千位
'PortB 端口的8個(gè)引腳連接這個(gè)8個(gè)LED，
Config Porta = Output
Config Portb = Output
'=======================================================
Dim Value(19) As Byte '數(shù)組中存的是0-9數(shù)字對(duì)應(yīng)亮燈的值
Value(10) = &HC0 '數(shù)字"0"對(duì)應(yīng)的數(shù)碼管設(shè)置值
Value(11) = &HF9 '數(shù)字"1"對(duì)應(yīng)的數(shù)碼管設(shè)置值
Value(12) = &HA4 '數(shù)字"2"對(duì)應(yīng)的數(shù)碼管設(shè)置值
Value(13) = &HB0 '數(shù)字"3"對(duì)應(yīng)的數(shù)碼管設(shè)置值
Value(14) = &H99 '數(shù)字"4"對(duì)應(yīng)的數(shù)碼管設(shè)置值
Value(15) = &H92 '數(shù)字"5"對(duì)應(yīng)的數(shù)碼管設(shè)置值
Value(16) = &H82 '數(shù)字"6"對(duì)應(yīng)的數(shù)碼管設(shè)置值
Value(17) = &HF8 '數(shù)字"7"對(duì)應(yīng)的數(shù)碼管設(shè)置值
Value(18) = &H80 '數(shù)字"8"對(duì)應(yīng)的數(shù)碼管設(shè)置值
Value(19) = &H90 '數(shù)字"9"對(duì)應(yīng)的數(shù)碼管設(shè)置值
Do
Waitms 10 '刷新延遲
L = L + 1 '計(jì)算累加
I = L \ 5 '降低數(shù)據(jù)變化頻率
I = I Mod 10000 '數(shù)值到10000后清0
Qw = I \ 1000 '計(jì)算千位
Bw = I Mod 1000 '計(jì)算百位
Bw = Bw \ 100
Sw = I Mod 100 '計(jì)算十位
Sw = Sw \ 10
Gw = I Mod 10 '計(jì)算個(gè)位
'只點(diǎn)亮個(gè)位數(shù)碼管PA3
Porta = &B0111
Portb = Value(gw + 10) '設(shè)置個(gè)位數(shù)值
Waitms 1
'只點(diǎn)亮十位數(shù)碼管PA2
Porta = &B1011
Portb = Value(sw + 10) '設(shè)置十位數(shù)值
Waitms 1
'只點(diǎn)亮百位數(shù)碼管PA1
Porta = &B1101
Portb = Value(bw + 10) '設(shè)置百位數(shù)值
Waitms 1
'只點(diǎn)亮千位數(shù)碼管PA0
Porta = &B1110
Portb = Value(qw + 10) '設(shè)置千位數(shù)值
Waitms 1
Loop
End
|
評(píng)分
-
查看全部評(píng)分
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
