BASCOM-AVR 4個數碼管同時顯示數字0-9 代碼+實物圖片+測試視頻

ID:806933 · 發表于 2020-7-22 20:27

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
$regfile = "m16def.dat" 'ATMega16 單片機
$crystal = 8000000 '8兆赫晶振
Dim I As Byte
'PORTB 8個引腳PB0-PB7連接了數碼管 A B C D E F G H
Config Porta = Output
Config Portb = Output
Porta.0 = 0 '第1位數碼管亮
Porta.1 = 0
Porta.2 = 0
Porta.3 = 0 '第4個數碼管亮
'====================
'數碼管顯示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
End

復制代碼

ID:342822 · 發表于 2020-7-23 11:15

Bascom avr 節省腦細胞的軟件

ID:342822 · 發表于 2020-7-23 11:37

如果與Proteus 8 仿真軟件結合將更加順手~~

ID:808608 · 發表于 2020-7-27 19:36

如果與Proteus 8 仿真軟件結合將更加順手~

ID:696930 · 發表于 2020-11-28 14:15

與ARDUINO類似，模塊化，更簡潔好用。

ID:342822 · 發表于 2020-11-28 15:41

100個也可以同時顯示

ID:883296 · 發表于 2021-2-6 22:09

各位大師好，BASCOM-AVR2.0.8.1軟件通過什么渠道能夠買到？

ID:941018 · 發表于 2021-6-20 18:14

'我也來了
$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

ID:342822 · 發表于 2021-6-20 20:26

紅日888 發表于 2021-6-20 18:14
'我也來了
$regfile = "m16def.dat" 'ATMega16 單片機
$crystal = ...

用仿真跑一邊你會發現一些問題

ID:941018 · 發表于 2021-6-20 20:31

我這是用實體機跑出來的

ID:941018 · 發表于 2021-6-20 20:40

taotie 發表于 2021-6-20 20:26
用仿真跑一邊你會發現一些問題

我還沒用過仿真，手里有一個現成的板子

ID:342822 · 發表于 2021-6-20 22:10

共陽極：

位選為高電平（即1）選中數碼管，

各段選為低電平（即0接地時）選中各數碼段。
0xc0，//0
0xf9，//1
0xa4，//2
0xb0，//3
0x99，//4
0x92，//5
0x82，//6
0xf8，//7
0x80，//8
0x90，//9
那么實現累加應該是;
Do
Waitms 15                                              '刷新延遲
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 = &B0001
Portb = Value(gw + 10)                                  '設置個位數值
Waitms 5
'只點亮十位數碼管PA2
Porta = &B0010
Portb = Value(sw + 10)                                  '設置十位數值
Waitms 5
'只點亮百位數碼管PA1
Porta = &B0100
Portb = Value(bw + 10)                                  '設置百位數值
Waitms 5
'只點亮千位數碼管PA0
Porta = &B1000
Portb = Value(qw + 10)                                  '設置千位數值
Waitms 15
Loop

ID:342822 · 發表于 2021-6-20 22:15

ID:941018 · 發表于 2021-6-20 23:56

taotie 發表于 2021-6-20 22:15

我手里的這個是0點亮，是不是就差這里

ID:941018 · 發表于 2021-6-21 00:06

我又試了一下，我手里的這個板子和你的正好相反

ID:941018 · 發表于 2021-6-21 00:07

本帖最后由紅日888 于 2021-6-21 00:41 編輯

我手里的板子就是樓主給我的

ID:342822 · 發表于 2021-6-21 09:53

紅日888 發表于 2021-6-21 00:06
我又試了一下，我手里的這個板子和你的正好相反

那說明你的板上數碼管是共陽極的，位選硬是高電平時點亮相應位段碼。位選應從低位向高位逐次點亮。即：
0001 0010 0100 1000.
調節延時使數碼管穩定顯示。

ID:941018 · 發表于 2021-6-21 21:59

我這個是0才是點亮，所有的燈的輸出都是0是亮1是滅，我也覺得這樣很別扭

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

BASCOM-AVR 4個數碼管同時顯示數字0-9 代碼+實物圖片+測試視頻