如何提高声音录制的质量？

angry 2001-06-11 10:11:00

本人设计了一个程序，在录制声音时发现一个奇怪的问题，即在WindowsNT下录制的声音质量很差，请问那位大虾能指教在下，先谢过了。

...全文

148 5 打赏收藏举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

angry 2001-06-16

打赏
举报

回复

queen000 2001-06-16

打赏
举报

回复

是不是编码有问题？？
要pcm

welkinsun 2001-06-12

打赏
举报

回复

是从外部设备录进电脑里吗???
如果是建议把监听音量关掉,还有就是降低LINE IN, 然后再用COOL EDIT,把信号放大,这样可以从一定程度上降低噪音.

DDHuang 2001-06-12

打赏
举报

回复

好象电脑录音先天不足，声音进入后经总线总受到很大干扰，不过你可以试试用好一点的对录线，可别是自制的两根线

bestone 2001-06-11

打赏
举报

回复

设高采样频率和采样位数。比如用44100mhz和16位立体声。

Excel-常用宏技巧（2）本示例设置 15 秒后运行 my_Procedure 过程，从现在开始计时。 Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure" 本示例设置 my_Procedure 在下午 5 点开始运行。 Application.OnTime TimeValue("17:00:00"), "

以下是将打印情况写入工作表的宏Sub 打印信息() Application.ScreenUpdating = False 关闭屏幕更新 Dim Y 声明变量 Y = ActiveSheet.Name 判定活动工作表名称 Sheets("打印信息").Select X = 3 从第3行开始 Do While Not (IsEmpty(Cells(X, 2).Val

自动隐藏表格中无数据的行表1 是数据源，经常改变；表2 引用表1 中某列有数据的单元格（利用动态位址已实现。）由于表1 的改变，表2 的大小随之而变。问题：如何实现表2 中没有数据的行（有公式）自动隐藏？谢谢赐教！ Sub abc() For i = 1 To 300 If Cells(i, 1).value = "" Then Rows(i).Hidden =

本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 '密码正确时执行 Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码 End If 本示例为设置密码窗口 (1) X = MsgBox("是否真的要结帐？", vbYesNo) If X = vbYe...

Name 语句示例本示例使用 Name 语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都已存在。在 Macintosh 中，默认驱动器名称是 “HD” 并且路径部分由冒号取代反斜线隔开。 Dim OldName, NewName OldName = "OLDFILE": NewName = "NEWFILE" 定义文件名。 Name OldName As NewN

8,324

社区成员

23,685

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章