[过节无大牛菜鸟来闲逛]发个BASCOM的过采样实例程序，供各位批评指正！

keanu131 · 发表于 2012-10-2 09:58

M128的10bit ADC过采样到14bit，实测数据非常稳，推荐各位使用！

$regfile = "m128def.dat"
$crystal = 8000000
$baud = 9600
'$sim
Config Adc = Single , Prescaler = Auto , Reference = Internal
On Adc Adc_isr
Enable Adc
Enable Interrupts
Dim W As Word , V As Long , Y As Single , I As Word , S As String * 5
I = 0
V = 0
Cursor Off Noblink
Cls
Lcd " ADC: /16384"
Lowerline
Lcd " VOL:"
Do
Start Adc
Idle
Stop Adc
If I = 256 Then
Shift V , Right , 4
Y = V / 16384
Y = Y * 2.56
Locate 1 , 7
S = Str(v)
S = Format(s , " ")
Lcd S
Locate 2 , 7
Lcd Y
I = 0
V = 0
End If
Loop
End
Adc_isr:
W = Getadc(0)
V = V + W
I = I + 1
Return

复制代码

浩祺心 · 发表于 2012-10-2 11:06

实践出真知啊。顶楼主。

benli · 发表于 2012-10-2 11:39

再过采样也没啥用，自欺欺人的事情，换高位的AD才是王道。

jimmy_xt · 发表于 2012-10-2 15:34

本帖最后由 jimmy_xt 于 2012-10-2 16:49 编辑

看不出如何提高分辨率的……

---------------------------------------------------------
来源是AVR121，atmel官方的应用参考。
中文版：http://wenku.baidu.com/view/be2a46ddad51f01dc281f154.html

阳光999 · 发表于 2012-10-2 15:43

Y = V / 16384
Y = Y * 2.56

这个可以换成 Y = V / 6400

keanu131 · 发表于 2012-10-2 16:14

这个可以换成 Y = V / 6400
阳光999 发表于 2012-10-2 15:43 https://www.yleee.com.cn/images/common/back.gif

干活的是这几句

Shift V , Right , 4
Y = V / 16384
Y = Y * 2.56

复制代码

在ADC满足过采样条件下进行以上处理可以增加有效数字的位数，具体请看百度文库上的一篇文章。
写成除以6400可以减少程序行数，但明显会减弱可读性。照这个写个13bit的，应该就非常好改，这也是我比较喜欢bascom的原因之一。

阳光999 · 发表于 2012-10-2 17:17

回复 6# keanu131

可读性是另外一回事，除以一个大数再乘上一个数带来的误差也要考虑

gw168sh · 发表于 2012-10-2 23:27

过采样是否可以这样理解
10bit 1024份 2.5v基准十比一分压，量程0-25V，2500/1024= 每份2.44mv

通过调整分压，改为量程0-12.5v，满幅还是2.5v输入
即 1250/1024= 每份1.22mv
这样精度提高一倍，是否这样就叫过采样？

gw168sh · 发表于 2012-10-3 00:10

刚百度一下，过采样没这么简单哈。要叠加白噪声进去，四种白噪声怎么加进去呢，而且要求精度很高
用PWM，DA？

keanu131 · 发表于 2012-10-3 13:16

过采样是否可以这样理解
10bit 1024份 2.5v基准十比一分压，量程0-25V，2500/1024= 每份2.44mv

通过调 ...
gw168sh 发表于 2012-10-2 23:27 https://www.yleee.com.cn/images/common/back.gif

前提里面最重要一项是原始ADC采样有大于1lsb的抖动，则可通过多次采样平均消除随机噪声，提高信号的分辨率。基准一直是2.56没有变化。

		自动登录	找回密码
密码			请使用微信账号登录和注册会员

[其他综合] [过节无大牛菜鸟来闲逛]发个BASCOM的过采样实例程序，供各位批评指正！

评分

浏览过的版块

[其他综合] [过节无大牛 菜鸟来闲逛]发个BASCOM的过采样实例程序，供各位批评指正！

评分

浏览过的版块

[其他综合] [过节无大牛菜鸟来闲逛]发个BASCOM的过采样实例程序，供各位批评指正！