【原创】 DIY胆石数字收音机 RDA芯片【源代码+图】 (amobbs.com 阿莫电子技术论坛) -

zxttgg 发表于 2010-1-27 19:22:34

【原创】 DIY胆石数字收音机 RDA芯片【源代码+图】

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529797.jpg
(原文件名:1.jpg)
使用RDA调谐芯片的收音机，

功能：收听FM广播

创新点：受不了晶体管广播干巴巴的声音，利用电子管声效处理，声音变得圆滑耐听。

本收音机结合了电子管的音效圆滑处理（可以滤除电台高频噪音），又结合了晶体管的大功率特性。

因直接近CD音质、上次家人在看书，广播里正在播好听的管弦乐，爸爸问我这是什么CD？这么好听，

我说这是广播……

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529798.jpg
(原文件名:2.jpg)
外观

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529799.jpg
(原文件名:3.jpg)
收音机模块和放大其实可以拆分的，可以看到收音机内部有铁壳屏蔽，里面是收音芯片。

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529800.jpg
(原文件名:4.jpg)
中间则是供电电路高压部分，有点危险，设置了放电按键，注意看有一块被黑色胶布贴起来的就是按钮。

长时间不用时，按此键3秒即可放掉阳极供电线路里剩余的电。

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529801.jpg
(原文件名:5.5.jpg)
同上

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529802.jpg
(原文件名:5.jpg)

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529803.jpg
(原文件名:6.jpg)
收音机背面自带了一个“轻量级的”功放，采用TDA2822芯片，输出1w功率，外出使用时方便使用。

天线可拆卸，上图天线为便携式天线，在家时可接上八木天线。

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529804.jpg
(原文件名:7.jpg)
安装好的样子。

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529805.jpg
(原文件名:8.5.jpg)
通过上、下、加、减、来完成一系列操作。设有耳机孔。

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529806.jpg
(原文件名:8.jpg)
变压器设在底部，尽量远离放大电路，以防引入干扰。

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529807.jpg
(原文件名:9.jpg)
这是菜单，屏幕左面为实时监视器，可以看到信号强度、电台立体声或者单声道、频率、TUNE（前面盾牌形状的）

右面则是菜单，通过上下键选择条目，加减更改参数。

图中第一项为立体声开关，ADVsearch：自动搜台并保存到EEPROM里。

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529808.jpg
(原文件名:10.jpg)
正在搜台时的样子，动画表示。下面为已搜索到的频道、频率。

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529809.jpg
(原文件名:11.jpg)
现在正在收听101.7（动感101）

PLL1:频率调整以0.01兆赫为步进

PLL10:频率调整以0.1兆赫为步进

PLL:100:频率调整以1兆赫为步进

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529810.jpg
(原文件名:12.jpg)

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529811.jpg
(原文件名:13.jpg)

静音：MUTE、NORMAL

EEPROM:切换之前搜到并保存的电台。

以下是电路、程序在2楼：
http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529812.png
(原文件名:a.png)

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529813.png
(原文件名:b.png)

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529814.png
(原文件名:c.png)

http://cache.amobbs.com/bbs_upload782111/files_25/ourdev_529815.png
(原文件名:D.png)

zxttgg 发表于 2010-1-27 19:23:55

$regfile = "M8DEF.DAT"
'$regfile = "attiny2313.DAT"
$crystal = 1000000

Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portb.1 , Rs = Portb.0
Config Lcd = 24 * 2
Cls : Cursor Off
Config Scl = Portc.5
Config Sda = Portc.4
Config I2cdelay = 400
Config Portb.0 = Output
Config Portb.2 = Input
Config Portb.3 = Input
Config Portb.4 = Input
Config Portb.5 = Input
Config Portd.4 = Output
Portb.2 = 1
Portb.3 = 1
Portb.4 = 1
Portb.5 = 1
K_dn Alias Pinb.2
K_ok Alias Pinb.3
K_ex Alias Pinb.4
K_up Alias Pinb.5
Led Alias Portd.4
Dim Bufout(5) As Word , Bufin(5) As Byte , Sd As Byte , Dat As Byte , Pll(2) As Long , Temp As Long , Tea_auto As Bit
Dim Tea_mute As Bit , Tea_r_ready As Bit , Tea_r_limit As Bit , Tea_r_str As Bit , Tea_r_signal As Byte , E As Byte , Tea_set As Long
Dim I As Byte , Fd100 As Integer , Fd1 As Integer , Menu(9) As String * 10 , Sl As Byte , Bt As Byte , Cg As Bit , Ken As Bit
Dim Mbuf(2) As String * 10 , Upen As Bit , Loen As Bit , Tea_mono As Bit , Emem(30) As Eram Long , Mem(30) As Long , Memsl As Byte
Dim Tea_su As Bit , Tim_k As Byte , Tim_serch As Long , Sold As Long , Logot As Long , Dangqian As Eram Long , Tmper As Long
Cg = 1 : Sl = 1 : Loen = 0 : Memsl = 1

Tmper = Dangqian
If Dangqian > 8800 Then
Tea_set = Dangqian
Else
Tea_set = 8900
End If

Waitms 200
Gosub Tea_init

Tea_mute = 1
Gosub Tea_tone
Gosub Logo
Cls
Tea_mute = 0
Gosub Tea_tone
Gosub Updmenu

Dim Sbt As Byte , Sba As Byte
Sbt = 5 : Sba = 5

Do
If Sbt <> 0 Then Gosub Update
Gosub Key

If Sbt <> 0 Then Sbt = Sbt - 1

Loop

End

Key:
If Ken = 0 Then
If K_up = 0 Then
Ken = 1 : Sl = Sl - 1 : Gosub Cmenu
Sbt = Sba
End If

If K_dn = 0 Then
Ken = 1 : Sl = Sl + 1 : Gosub Cmenu
Sbt = Sba
End If

If K_ok = 0 Then
Ken = 1
Sbt = Sba
Gosub Kopt_b
Gosub Kopt_ab
End If

If K_ex = 0 Then
Ken = 1
Sbt = Sba
Gosub Kopt_a
Gosub Kopt_ab
End If

If Sl > 8 Then Sl = 8
If Sl < 1 Then Sl = 1
End If
If K_up = 1 And K_dn = 1 And K_ok = 1 And K_ex = 1 Then
Ken = 0 : Tim_k = 0
End If
If Sl = 2 Or Sl = 3 Or Sl = 4 Then
Ken = 0
If Tim_k < 6 Then Waitms 200
Waitms 1
End If

'Locate 2 , 16 : Lcd Sl
Return

Updmenu:
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\
If Tea_mute = 0 Then
Menu(1) = "Normal"
Else
Menu(1) = "Mute"
End If

If Tea_mono = 0 Then
Menu(7) = "Stereo"
Else
Menu(7) = "Mono"
End If

Menu(2) = "PLL1:- +"
Menu(3) = "PLL10: - +"
Menu(4) = "PLL100:- +"
Menu(5) = "AutoSearch"
Menu(8) = "ADVSearch"

'\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Return

Cmenu:
Locate 1 , 14 : Lcd "       "
Locate 2 , 14 : Lcd "       "
Cg = 1 : Gosub Updmenu : Gosub Update
Return

Update:
Gosub Tea_r
If Upen = 0 Then
Deflcdchar 0 , 31 , 10 , 4 , 4 , 4 , 4 , 4 , 4          'ant
Deflcdchar 1 , 32 , 32 , 1 , 1 , 5 , 5 , 21 , 21          ' SIG
Deflcdchar 3 , 6 , 6 , 6 , 6 , 6 , 6 , 6 , 6             ' |
Deflcdchar 4 , 31 , 17 , 31 , 21 , 21 , 17 , 10 , 4       ' UTUNE
Deflcdchar 5 , 31 , 31 , 17 , 27 , 27 , 31 , 14 , 4       ' TUNE
Deflcdchar 6 , 3 , 7 , 29 , 25 , 29 , 7 , 3 , 32          'SP
Upen = 1 : Loen = 0
End If
Locate 1 , 1 : Lcd Chr(0);                               'ANT
If Tea_r_signal > 4 Then Lcd Chr(1)
If Tea_r_signal <= 4 Then Lcd " "
Locate 2 , 1
If Tea_r_str = 1 Then Lcd Chr(5)
If Tea_r_str = 0 Then Lcd Chr(4)
Locate 1 , 9
If Tea_r_str = 1 Then Lcd "STE"
If Tea_r_str = 0 Then Lcd "MON"
Locate 1 , 4
If Tea_mute = 1 Then Lcd Chr(6) ; "x"
If Tea_mute = 0 Then Lcd Chr(6) ; ")"
Gosub Fj
Locate 2 , 2 : Lcd "=" ; Fd100 ; "." ; Fd1 ; " "
Locate 2 , 9 : Lcd "MHZ"
Locate 1 , 12 : Lcd "|"
Locate 2 , 12 : Lcd "|"
If Cg = 1 Then
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\单次
If Sl = 1 Or Sl = 2 Then
Mbuf(1) = Menu(1)
Mbuf(2) = Menu(2)
End If
If Sl = 3 Or Sl = 4 Then
Mbuf(1) = Menu(3)
Mbuf(2) = Menu(4)
End If
If Sl = 5 Or Sl = 6 Then
Mbuf(1) = Menu(5)
Mbuf(2) = Menu(6)
End If
If Sl = 7 Or Sl = 8 Then
Mbuf(1) = Menu(7)
Mbuf(2) = Menu(8)
End If
If Sl = 9 Then
Mbuf(1) = Menu(9)
Mbuf(2) = ""
End If
Locate 1 , 14 : Lcd Mbuf(1)
Locate 2 , 14 : Lcd Mbuf(2)
If Sl = 5 Or Sl = 6 Then
Mbuf(1) = Menu(5)
Locate 2 , 14 : Lcd "EEPROM:" ; Memsl
End If
If Sl = 1 Or Sl = 3 Or Sl = 5 Or Sl = 7 Then
Locate 1 , 13 : Lcd "<" : Locate 1 , 24 : Lcd ">"
Else
Locate 1 , 13 : Lcd " " : Locate 1 , 24 : Lcd " "
End If
If Sl = 2 Or Sl = 4 Or Sl = 6 Or Sl = 8 Then
Locate 2 , 13 : Lcd "<" : Locate 2 , 24 : Lcd ">"
Else
Locate 2 , 13 : Lcd " " : Locate 2 , 24 : Lcd " "
End If
Cg = 0
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
End If

Return

Fj:
Fd100 = Pll(1) / 100
Fd1 = Fd100 * 100
Fd1 = Pll(1) - Fd1
Return

Loading:
'Cls
If Loen = 0 Then
Deflcdchar 0 , 31 , 25 , 19 , 19 , 7 , 7 , 14 , 31       ' replace ? with number (0-7)
Deflcdchar 1 , 31 , 28 , 25 , 25 , 19 , 19 , 7 , 31       ' replace ? with number (0-7)
Deflcdchar 2 , 31 , 14 , 28 , 28 , 25 , 25 , 19 , 31    ' replace ? with number (0-7)
Deflcdchar 3 , 31 , 7 , 14 , 14 , 28 , 28 , 25 , 31       ' replace ? with number (0-7)
Deflcdchar 4 , 31 , 3 , 7 , 7 , 14 , 14 , 28 , 31       ' replace ? with number (0-7)
Loen = 1 : Upen = 0
End If
Locate 1 , 5 : Lcd Chr(i) ; Chr(i) ; Chr(i) ; Chr(i) ; Chr(i) ; Chr(i) ; Chr(i) ; Chr(i) ; Chr(i) ; Chr(i) ; Chr(i) ; Chr(i) ; Chr(i) ; Chr(i) ; Chr(i) ;
I = I + 1
If I = 5 Then I = 0
Waitms 200
Return

Kopt_ab:
If Memsl > 30 Then Memsl = 30
If Memsl < 1 Then Memsl = 1
Tim_k = Tim_k + 1
Gosub Tea_tone : Gosub Cmenu : Tea_auto = 0
If Sl = 8 Then
Gosub Schmd
End If

Return

Kopt_a:
If Sl = 1 Then Tea_mute = 1
If Sl = 7 Then Tea_mono = 1
If Sl = 2 Then
Tea_set = Tea_set + 1
End If
If Sl = 3 Then
Tea_set = Tea_set + 10
End If
If Sl = 4 Then
Tea_set = Tea_set + 100
End If
If Sl = 5 Then
Tea_su = 1 : Tea_auto = 1 : Tea_set = Tea_set + 90
If Tea_set < 10900 Then Gosub Tea_tone
Tea_su = 1 : Tea_auto = 0
End If

If Sl = 6 Then
Memsl = Memsl + 1
Tea_set = Emem(memsl)
If Tea_set < 8800 Then
Memsl = Memsl - 1
Tea_set = Emem(memsl)
End If
Gosub Tea_tone
End If
Return

Kopt_b:
If Sl = 1 Then Tea_mute = 0
If Sl = 7 Then Tea_mono = 0
If Sl = 2 Then
Tea_set = Tea_set - 1
End If
If Sl = 3 Then
Tea_set = Tea_set - 10
End If
If Sl = 4 Then
Tea_set = Tea_set - 100
End If
If Sl = 5 Then
Tea_su = 0 : Tea_auto = 1 : Tea_set = Tea_set - 90
If Tea_set > 800 Then Gosub Tea_tone
Tea_su = 0 : Tea_auto = 0
End If

If Sl = 6 Then
Memsl = Memsl - 1
Tea_set = Emem(memsl)
If Tea_set > 8800 Then Gosub Tea_tone
End If
Return

Schmd:

Tea_set = 8900 : Cls
Tim_serch = 0 : Memsl = 0 : Loen = 0
Tea_su = 1 : Tea_auto = 1 : Gosub Tea_tone : Waitms 10 : Gosub Tea_r : Gosub Fj
Do

Do
Gosub Loading
Gosub Tea_r
Gosub Fj
Tim_serch = Tim_serch + 1
If Tim_serch = 5 Then
Tim_serch = 0 : Exit Do                                  '
End If
If Sold = Fd100 Or Tea_r_ready = 1 Then Exit Do

Loop
Waitms 100
If Sold <> Fd100 Then Memsl = Memsl + 1
Emem(memsl) = Pll(1)
Tea_set = Tea_set + 100
Tea_su = 1 : Tea_auto = 1
Gosub Fj : Sold = Fd100
Gosub Tea_tone
Waitms 100
Locate 2 , 1 : Lcd ; "Searching for:" ; Memsl ; " " ; Fd100 ; "." ; Fd1 ;
If Pll(1) > 10800 Or Memsl > 29 Then Exit Do
Loop

Tea_su = 1 : Tea_auto = 0 : Memsl = 1
Pll(1) = Emem(1) : Gosub Tea_tone
Cls : Gosub Cmenu
Return

'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Tea_tone:
Pll(1) = Tea_set
Pll(2) = Pll(1) * 10
Pll(2) = Pll(2) - 225
Pll(2) = Pll(2) * 4000
Pll(2) = Pll(2) / 32768
Bufout(1) = Pll(2) / 256
If Tea_mute = 1 Then Bufout(1) = Bufout(1) + 128
If Tea_auto = 1 Then Bufout(1) = Bufout(1) + 64
Bufout(3) = &B00100000
If Tea_su = 1 Then Bufout(3) = Bufout(3) + 128
If Tea_mono = 1 Then Bufout(3) = Bufout(3) + 8
Temp = Bufout(1) * 256
Bufout(2) = Pll(2) - Temp
Gosub Tea_w
Dangqian = Tea_set
Return

Tea_init:
Cls
Tea_mute = 1
Bufout(3) = &B10100000
Bufout(4) = &B10010110
Bufout(5) = &B00000000
Gosub Tea_tone
Return

Tea_w:
Led = 1
I2cinit : I2cstart
I2cwbyte &B11000000
For Sd = 1 To 5
Dat = Bufout(sd)
Waitus 100
I2cwbyte Dat
Next Sd
I2cstop : Waitus 100
Led = 0
Return

Tea_r:
Tea_r_str = 0 : Tea_r_ready = 0 : Tea_r_signal = 0
I2cinit : I2cstart
I2cwbyte &B11000001
For Sd = 1 To 4
Waitus 100
I2crbyte Bufin(sd) , Ack
Next Sd
I2crbyte Bufin(5) , Nack
I2cstop : Waitus 100
Pll(1) = Bufin(1) / 128
If Pll(1) = 1 Then
Bufin(1) = Bufin(1) - 128
Tea_r_ready = 1
End If
Pll(2) = Bufin(1) * 256
Pll(2) = Pll(2) + Bufin(2)
Pll(2) = Pll(2) * 32768
Pll(2) = Pll(2) / 4000
Pll(2) = Pll(2) + 225
Pll(1) = Pll(2) / 10
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Pll(2) = Bufin(3) / 128
If Pll(2) = 1 Then Tea_r_str = 1
Pll(2) = Bufin(4) / 128
If Pll(2) = 1 Then Tea_r_signal = Tea_r_signal + 8
Pll(2) = Bufin(4) / 64
If Pll(2) = 1 Then Tea_r_signal = Tea_r_signal + 4
Pll(2) = Bufin(4) / 32
If Pll(2) = 1 Then Tea_r_signal = Tea_r_signal + 2
Pll(2) = Bufin(4) / 16
If Pll(2) = 1 Then Tea_r_signal = Tea_r_signal + 1
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Return

Logo:
Locate 2 , 6
Do
Gosub Loading
If Logot = 35 Then Exit Do
If Logot = 10 Then
Locate 2 , 7 : Lcd "SDoux Radio."
End If
Logot = Logot + 1
Loop
Return

zxttgg 发表于 2010-1-27 19:25:15

编译器版本为 1.11.9.1 BASCOM-AVR

do

看帖回帖得永生
看帖回帖得永生
看帖回帖得永生
看帖回帖得永生
看帖回帖得永生
看帖回帖得永生
看帖回帖得永生
看帖回帖得永生
看帖回帖得永生
看帖回帖得永生
看帖回帖得永生
看帖回帖得永生
看帖回帖得永生
看帖回帖得永生

loop

sunzhaod 发表于 2010-1-27 19:27:12

加个裤子

qq779089973 发表于 2010-1-27 19:28:31

回帖是一种美德

kenva 发表于 2010-1-27 19:39:30

mark

ch2003_23 发表于 2010-1-27 19:45:13

强悍

amd2400 发表于 2010-1-27 19:51:56

做的不错哦

scadu 发表于 2010-1-27 19:57:53

小伙不错！就焊接工艺比较差。

BYWQDQ 发表于 2010-1-27 20:06:35

挺不错的,动手能力很强.

yl3721 发表于 2010-1-27 20:10:32

能做成套件就更好了

kdtcf 发表于 2010-1-27 20:10:53

真的很漂亮，尤其字母写得靓，图画得更靓

verysmart 发表于 2010-1-27 20:15:17

哇，日本小子又防毒啦！！
对了周song,你怎么不加我的qq呢？

benladn911 发表于 2010-1-27 20:50:23

哈哈，很不错哈~

jun427 发表于 2010-1-27 20:57:46

就这样放着用，太有个性了

zxttgg 发表于 2010-1-27 21:23:44

回复【14楼】jun427
就这样放着用，太有个性了
-----------------------------------------------------------------------

有个性吧，哈哈哈哈

lryylryy 发表于 2010-1-27 21:30:24

大家都很看好你哦~

icevel 发表于 2010-1-27 21:31:38

嘿又有新作来支持~~~

yangsen 发表于 2010-1-27 21:34:38

佩服啊，现在电子管不好搞吧？用MOS管做功放能不能做lz的效果

zxttgg 发表于 2010-1-27 21:37:46

回复【18楼】yangsen
佩服啊，现在电子管不好搞吧？用MOS管做功放能不能做lz的效果
-----------------------------------------------------------------------

我也是搞它搞到头大啊！我被电了不下十次了，啊啊啊啊啊啊啊啊啊啊啊！！！

TDA2030也有胆的味道哦（一般人我不告诉他.嘎嘎嘎）

wmsky 发表于 2010-1-27 22:49:07

顶你了

lwy86 发表于 2010-1-27 23:01:49

顶！

MoMo_avr 发表于 2010-1-27 23:10:09

牛叉，还是发烧友啊。

411412 发表于 2010-1-27 23:15:02

很漂亮，顶你！

999999 发表于 2010-1-27 23:22:15

看来得酷了,酷前留印

yunqian09 发表于 2010-1-27 23:55:49

牛人，什么语言写得程序啊？

cat_li 发表于 2010-1-27 23:55:49

相当的库，顶你

yunhuisong 发表于 2010-1-28 00:01:36

酷

www8818 发表于 2010-1-28 01:22:22

动手能力超强,DIY精神永存!!!

xingcn 发表于 2010-1-28 02:56:18

佩服佩服，牛人就是这样逼出来的。

bowei181 发表于 2010-1-28 08:27:16

太棒了！顶！

jijuxie321 发表于 2010-1-28 08:58:56

楼主空闲时间好多啊。。。。

chengyabcd 发表于 2010-1-28 09:41:24

LM1875的胆味更重些。

lee345 发表于 2010-1-28 14:46:15

不错不错，佩服佩服！

XQGG 发表于 2010-1-28 15:08:39

不是一般的牛

aleyn 发表于 2010-1-28 17:14:06

有点喜欢这个日本小牛仔。。。

huntermax110 发表于 2010-1-28 17:34:49

动手能力确实狠强！

litteworm 发表于 2010-1-28 18:08:48

好强大啊
组合完毕的样子有点像变形金刚·····

用了2822 ？ 2030？呵呵····
胆机是很舒服暖暖的声音
不过高压···
怕了

by886 发表于 2010-1-28 19:34:14

哇哈哈，看到电子管了，我有几箱存货，大小功率的都有，不过没有合适的高压电源变压器和输出变压器，唉~~~都不知道是不是放到漏气了，~~~呵呵

xuejianhua1986 发表于 2010-1-28 20:30:01

路过

gxlujd 发表于 2010-1-28 20:33:40

真不错，赞一个！

beer 发表于 2010-1-28 20:43:10

真棒，顶一个。。做记号。

zxttgg 发表于 2010-1-29 21:13:23

点击此处下载 ourdev_530597.rar(文件大小:6K) (原文件名:RDO SYS.rar)

编译好的固件，HEX格式，m8内部晶振1M

zxttgg 发表于 2010-1-29 21:33:47

回复【40楼】gxlujd 彩虹
-----------------------------------------------------------------------

哈哈，彩虹也大驾光临了？

高兴的。

gzhuli 发表于 2010-1-29 21:40:44

阿莫还不来给裤子？

AVR_DIY 发表于 2010-1-29 21:46:09

太牛了

yunlong 发表于 2010-1-31 17:56:01

顶

54anson 发表于 2010-1-31 19:55:16

看帖回帖得永生...

xiaole01 发表于 2010-1-31 21:47:30

顶你的肺，

这东西好玩，我喜欢！！！！

logics 发表于 2010-1-31 23:04:12

楼主，这个用的是什么收音模块，能上传datasheet不？
做的很不错啊！顶起！

polar 发表于 2010-2-1 01:07:08

楼主动手能力很强啊~

nbhans 发表于 2010-2-1 09:53:31

激棍!

fsclub 发表于 2010-2-1 11:02:22

电压高，电线乱。容易触电。应该好好理一下线。高压的用绝缘东东密闭起来。

a69161 发表于 2010-2-11 17:03:47

留爪子

5irmb 发表于 2010-2-13 17:24:02

用电子管也不给衣服穿？
不怕死？

zxttgg 发表于 2010-2-13 19:17:51

用电脑LIN-IN录了一段下来，呵呵，

是在电子管后面录的，电子管前面加了一个MAX9723,用于提升BASS.
相关链接：http://hi.baidu.com/zxttgg/blog/item/64e2ae1999eefb7fdbb4bdd4.html

录音(60秒)：后面有段广告有点喜感。
点击此处下载 ourdev_533811.rar(文件大小:464K) (原文件名:FM.rar)

zxttgg 发表于 2010-2-13 19:19:28

http://cache.amobbs.com/bbs_upload782111/files_26/ourdev_533812.jpg
(原文件名:db00592406465d26c99559ce.jpg)

max9723....

zxttgg 发表于 2010-2-13 20:43:37

回复【25楼】yunqian09
牛人，什么语言写得程序啊？
-----------------------------------------------------------------------

BASCOM-AVR

look1259 发表于 2010-2-18 11:57:46

我卡卡卡的太牛了无敌了牛人中的战斗牛

rockgoogle 发表于 2010-2-18 19:00:21

请问楼主能否收到RDS？

rockgoogle 发表于 2010-2-19 22:56:05

楼主，用其他的FM模块可以吗？

zorro668 发表于 2010-2-25 00:23:18

回复【25楼】yunqian09
-----------------------------------------------------------------------

basic语言

zhangaiminab 发表于 2010-2-26 12:53:00

mark

Forever 发表于 2010-2-26 14:09:30

顶一个

roberzhao 发表于 2010-2-26 14:23:25

阿莫快给一条裤子穿，别让来自日本的精品冻清！

csformat 发表于 2010-4-2 11:20:35

不得不说2句

这个RDA

ms是中国的品牌，但是中文DS和英文的DS根本就对不上号

不说别的一个寄存器配置都翻译不对

简直无语的说相当了

zxttgg 发表于 2010-4-2 14:06:24

回复【65楼】csformat
不得不说2句
这个RDA
ms是中国的品牌，但是中文DS和英文的DS根本就对不上号
不说别的一个寄存器配置都翻译不对
简直无语的说相当了

-----------------------------------------------------------------------

语无伦次？

smartzou 发表于 2010-4-2 15:07:24

也许只是太口语化了吧..

yanxinboy 发表于 2010-4-2 15:18:55

标本样, 请问您的MAX9723怎么焊接的.谢谢.

Nuker 发表于 2010-4-2 15:39:37

RDA是上海瑞迪科微电子，中国十佳半导体企业。

zxttgg 发表于 2010-4-2 21:15:16

用铜丝引出来后把脚的长度剪成四边形，然后“绑定”

damoplus 发表于 2010-4-2 21:59:32

有声有色，好！

njchenmin 发表于 2010-4-3 08:00:29

电子管现在难找啊，这个只有发烧友用的到。

caoxin90626 发表于 2010-10-8 23:35:20

漂亮

mowin 发表于 2010-10-8 23:43:03

回复【72楼】njchenmin
电子管现在难找啊，这个只有发烧友用的到。
-----------------------------------------------------------------------

这个不难啊

cfanzfr 发表于 2010-10-9 13:06:07

我还以为是用电子管做高放和中放呢。

wzr200408 发表于 2010-10-9 18:36:06

我好像看到KIS-3R33S模块

zxttgg 发表于 2010-10-10 02:22:33

回复【76楼】wzr200408
我好像看到kis-3r33s模块
-----------------------------------------------------------------------

回答错误

nbc327 发表于 2011-3-27 21:54:30

不错么！

wwq123030627 发表于 2011-8-16 16:21:58

2822的出来的声音还不错的

pkjapan 发表于 2011-9-2 22:42:17

RDS 功能是否实现？

c68678 发表于 2011-12-8 22:20:48

这家伙钱不少，时间多，今天晚上看了几个有关音频的帖子，都有他的作品

pinocchio 发表于 2011-12-9 08:55:58

mark

4087 发表于 2011-12-9 11:55:04

2030 可不是A类啊！其实1521配电子管更好点。
用电子管，不如用场管，如3DJ6F,2SK170，按你现在的使用。

omlarn 发表于 2013-1-11 18:14:39

好东西留个记号！

jz701209李 发表于 2013-4-11 16:53:57

学习一下....

jacktau 发表于 2013-4-11 18:55:03

照片好清楚呀，感谢共享~~~~~~~~

dujuan8693 发表于 2013-4-11 19:03:03

{:lol:}

liumoz 发表于 2013-4-11 19:07:29

Mark~ {:funk:}

hamipeter 发表于 2013-4-12 09:53:24

顶起来～！

Joyje 发表于 2013-4-18 10:04:22

diy 牛x，请问楼主用的什么mcu

xjbworld 发表于 2013-4-18 11:21:00

孤独的技术

mkliop 发表于 2013-4-18 11:34:57

我捡到个TEA6811和TEA6825收音头，还二次变频的，灵敏度不低很短一根线就能收好多台，不过现在的收音机里都是治疗JJ的广播有啥好听的？

nsj21n 发表于 2013-4-18 22:10:06

用的什么编译器写的？

xing-china 发表于 2014-5-18 03:53:24

太牛逼了

Borden 发表于 2014-5-18 04:21:19

洞洞板用得很出神入化～～

页: [1]

amobbs.com 阿莫电子技术论坛's Archiver

【原创】 DIY胆石数字收音机 RDA芯片 【源代码+图】

【原创】 DIY胆石数字收音机 RDA芯片【源代码+图】