搜索
bottom↓
回复: 5

什么软件能生成一定变化频率的声音啊?

[复制链接]

出0入0汤圆

发表于 2009-5-7 21:39:17 | 显示全部楼层 |阅读模式
具体要求事例如下:

(原文件名:未命名.JPG)

阿莫论坛20周年了!感谢大家的支持与爱护!!

一只鸟敢站在脆弱的枝条上歇脚,它依仗的不是枝条不会断,而是自己有翅膀,会飞。

出0入0汤圆

发表于 2009-5-7 23:10:36 | 显示全部楼层
说说取样率多少?位深?给你做一个

出0入0汤圆

发表于 2009-5-7 23:16:40 | 显示全部楼层
为什么要软件?用单片机直接频率生成不行吗?

出0入0汤圆

发表于 2009-5-8 17:28:28 | 显示全部楼层
这是一段30秒的音频文件,取样率为44K,16位深。
点击此处下载 ourdev_443192.rar(文件大小:543K) (原文件名:300-1000.rar)
文件由下面一小段VB程序生成。分三阶段,开始的5秒频率由300Hz递增到1000Hz,中间有20秒持1000Hz,最后5秒由1000Hz递减到300Hz。
生成的文件用WINHEX把同规格的WAV文件头合拼即可。

Private Sub Form_Load()
Dim i As Long
Dim d As Integer
Open "wave.dat" For Binary As 1

p = 0
f = 300
For i = 0 To 44100 * 5
  d = 30000 * Sin(p)
  Put 1, , d
  f = f + (1000 - 300) / (44100 * 5)
  p = p + 2 * 3.1415926536 * f / 44100
Next i

f = 1000
For i = 0 To 44100 * 20
  d = 30000 * Sin(p)
  Put 1, , d
  p = p + 2 * 3.1415926536 * f / 44100
Next i

For i = 0 To 44100 * 5
  d = 30000 * Sin(p)
  Put 1, , d
  f = f - (1000 - 300) / (44100 * 5)
  p = p + 2 * 3.1415926536 * f / 44100
Next i

Close 1
End
End Sub

出0入0汤圆

发表于 2009-5-8 17:34:11 | 显示全部楼层
用cooledit可生成,是专门的音乐编辑的程序.

出0入0汤圆

 楼主| 发表于 2009-5-11 09:46:11 | 显示全部楼层
问题已解决。
楼上说的对~

用cooledit~
回帖提示: 反政府言论将被立即封锁ID 在按“提交”前,请自问一下:我这样表达会给举报吗,会给自己惹麻烦吗? 另外:尽量不要使用Mark、顶等没有意义的回复。不得大量使用大字体和彩色字。【本论坛不允许直接上传手机拍摄图片,浪费大家下载带宽和论坛服务器空间,请压缩后(图片小于1兆)才上传。压缩方法可以在微信里面发给自己(不要勾选“原图),然后下载,就能得到压缩后的图片】。另外,手机版只能上传图片,要上传附件需要切换到电脑版(不需要使用电脑,手机上切换到电脑版就行,页面底部)。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|Archiver|amobbs.com 阿莫电子技术论坛 ( 粤ICP备2022115958号, 版权所有:东莞阿莫电子贸易商行 创办于2004年 (公安交互式论坛备案:44190002001997 ) )

GMT+8, 2024-5-13 00:16

© Since 2004 www.amobbs.com, 原www.ourdev.cn, 原www.ouravr.com

快速回复 返回顶部 返回列表