bascom avr tiny45驅(qū)動(dòng)74hc595

ID:711254 · 發(fā)表于 2020-3-19 11:19

本帖最后由 wsy7563 于 2020-3-22 21:20 編輯

如題,代碼如下：
$regfile = "attiny45.dat"                                  '指定單片機(jī)型號(hào)
$crystal = 8000000                                        '指定頻率
$hwstack = 2
$swstack = 8
$framesize = 24
Config Portb = Output                                     '定義B口為輸出
Config Portb.4 = Input                                     '定義C.0口為輸入
Config Adc = Single , Prescaler = Auto , Reference = Avcc '配置AD轉(zhuǎn)換器
Enable Adc                                                 '使能AC轉(zhuǎn)換器
Dim Leddig(10) As Byte
Dim I As Word , P As Integer , V As Word , B As Word , N As Word , M As Word
Dim K As Single , G As Byte , S As Long , A As Word , C As Byte
Latch Alias Portb.1
Config Spi = Soft , Dout = Portb.3 , Ss = None , Clock = Portb.0
Restore Leddata                                           '讀LED 顯示位碼（0-9）
For P = 1 To 10
Read Leddig(p)
Next
Do
A = 0
C = 1
For C = 1 To 64                                           '取64次adc的平均值
Start Adc
I = Getadc(2)
Stop Adc
A = I + A
Next
A = A / 64
S = A * 5000
K = S / 1023
A = K
A = A / 2                                                 '設(shè)置最大量程為25V                                                 '
V = A / 1000                                              '千位
B = A / 100                                              '百位
N = A / 10                                                 '十位
M = A Mod 10
Waitms 20

Spiinit                                                    '個(gè)位
P = M
Spiout Leddig(p + 1) , 1                               '顯示個(gè)位

P = N
   If N > 9 Then
   P = P Mod 10
   End If
Spiout Leddig(p + 1) , 1
P = B
   If B > 9 Then
      P = P Mod 10
   End If
Spiout Leddig(p + 1) , 1                               '顯示小數(shù)點(diǎn)
P = V
   If V > 9 Then
   P = P Mod 10
   End If
Spiout Leddig(p + 1) , 1

Latch = 0                                                 '使能顯示
Waitus 10
Latch = 1
Loop
Leddata:                                                 'LED數(shù)字碼 (0-9)
Data &B00111111 , &B00000110 , &B01011011 , &B01001111 , &B01100110
Data &B01101101 , &B01111101 , &B00000111 , &B01111111 , &B01101111
注釋掉的恢復(fù)了，可以了

ID:711254 · 發(fā)表于 2020-3-22 21:02

Sorry，求平均的注釋掉了，取消注釋就好了

ID:711254 · 發(fā)表于 2020-3-22 21:00

taotie 發(fā)表于 2020-3-22 16:44
呵呵~~~行不通啊

把求平均計(jì)算給注釋掉了

ID:711254 · 發(fā)表于 2020-3-22 20:59

$regfile = "ATtiny45.DAT"                                  '指定單片機(jī)型號(hào)
$crystal = 8000000
$hwstack = 2
$swstack = 8
$framesize = 24                                           '指定頻率
Config Portb = Output                                     '定義B口為輸出
Config Portb.4 = Input                                     '定義C.0口為輸入
Config Adc=Single,Prescaler=Auto,Reference=Avcc '配置AD轉(zhuǎn)換器
Enable Adc                                                 '使能AC轉(zhuǎn)換器
Dim Leddig(10) As Byte
Dim I As Word , P As Integer , V As Word , B As Word , N As Word , M As Word
Dim K As Single , G As Byte , S As Long , A As Word , C As Byte
Latch Alias Portb.1
Config Spi = Soft , Dout = Portb.3 , Ss = None , Clock = Portb.0
Restore Leddata                                           '讀LED 顯示位碼（0-9）
For P = 1 To 10
Read Leddig(p)
Next
Do
A = 0
C = 1
For C = 1 To 64                                           '取64次adc的平均值
Start Adc
I = Getadc(2)
Stop Adc
A = I + A
Next
A = A / 64
S = A * 5000
K = S / 1023
A = K
A = A / 2                                                 '設(shè)置最大量程為25V                                                 '
V = A / 1000                                              '千位
B = A / 100                                              '百位
N = A / 10                                                 '十位
M = A Mod 10
Waitms 20

Spiinit                                                    '個(gè)位
P = M
Spiout Leddig(p + 1) , 1                               '顯示個(gè)位

P = N
   If N > 9 Then
   P = P Mod 10
   End If
Spiout Leddig(p + 1) , 1
P = B
   If B > 9 Then
      P = P Mod 10
   End If
Spiout Leddig(p + 1) , 1                               '顯示小數(shù)點(diǎn)
P = V
   If V > 9 Then
   P = P Mod 10
   End If
Spiout Leddig(p + 1) , 1

Latch = 0                                                 '使能顯示
Waitus 10
Latch = 1
Loop
Leddata:                                                 'LED數(shù)字碼 (0-9)
Data &B00111111 , &B00000110 , &B01011011 , &B01001111 , &B01100110
Data &B01101101 , &B01111101 , &B00000111 , &B01111111 , &B01101111

ID:342822 · 發(fā)表于 2020-3-22 16:44

呵呵~~~行不通啊

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

bascom avr tiny45驅(qū)動(dòng)74hc595

評(píng)分