用VB制作一款自己的录音机.docVIP

用VB制作一款自己的录音机 ————风轻云淡 笔者说明： 1：程序中的分计时，当分60时，仍然继续往上加，不要紧的，仍然能继续录音； 2：一旦停止录音后，需要先保存后，才能继续录音， 3：录制的文件为Wav格式，如果需要MP3格式的话，可以通过另外的软件转换； 4：笔者制作录音机的本意并非想用于长时间的录音这个用途，所以，并不想在这方面多花时间考虑；作者的原意是有别的用途的，现在公布出来与朋友们分享，也真诚的希望编程爱好者加以改进，除此之外，作者诚恳敬请程序设计的前辈和老师们指点一下： 作者的原意是：当话筒有输入并达到一定的峰值时，便启动录音机开始录音；当没有信号时，便停止录音，而且保存这个已经被录下的音频信到预先约定的文件夹下；问题的关键是笔者现在并不知道在VB里，如何获取到话筒的信号？代码又如何写？怎样在程序界面上显示和调整？ 所以：诚恳敬请程序设计的前辈和老师们指点：怎样才能得到话筒的音频信号，并且加上显示以及调整的办法。先谢谢了！ 一：首先在VB中添加MMControl控件和CommonDialog1控件。 二：添加六个标签，四个按钮和一个计时器，其Caption设置为：如下图所示： 三：开始编写各个控件的代码： 1：在“通用”部分声明变量 Dim miaojishi As Long