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

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

————风轻云淡

笔者说明：

1：程序中的分计时，当分>60时，仍然继续往上加，不要紧的，仍然能继续录音；

2：一旦停止录音后，需要先保存后，才能继续录音，

3：录制的文件为Wav格式，如果需要MP3格式的话，可以通过另外的软件转换；

4：笔者制作录音机的本意并非想用于长时间的录音这个用途，所以，并不想在这方面多花时间考虑；作者的原意是有别的用途的，现在公布出来与朋友们分享，也真诚的希望编程爱好者加以改进，除此之外，作者诚恳敬请程序设计的前辈和老师们指点一下：

作者的原意是：

当话筒有输入并达到一定的峰值时，便启动录音机开始录音；当没有信号时，便停止录音，而且保存这个已经被录下的音频信到预先约定的文件夹下；问题的关键是笔者现在并不知道在VB里，如何获取到话筒的信号？代码又如何写？怎样在程序界面上显示和调整？

所以：

诚恳敬请程序设计的前辈和老师们指点：

怎样才能得到话筒的音频信号，并且加上显示以及调整的办法。先谢谢了！

一：

首先在VB中添加MMControl控件和CommonDialog1控件。

二：

添加六个标签，四个按钮和一个计时器，其Caption设置为：如下图所示：

三：

开始编写各个控件的代码：

1：在“通用”部分声明变量

Dim miaojishi As Long'秒计时变量

Dim fengjishi As Long'分计时变量

2：录音按钮代码：

Private Sub Command1_Click() '录音

MMControl

1.DeviceType = "WaveAudio"'打开设备的类型MMControl

1.FileName="d:

\record.wav"'零时文件以及位置，’

【“d:

\record”可以随意确定，看你自己的爱好了】

MMControl

mand = "open"'打开

MMControl

mand = "record"'录音命令---开始录音

Label

1.Caption = "正在录音"

1.Interval = 1000

Timer

1.Enabled = True

Command

3.Enabled = False

Command

2.Enabled = True

Command

1.Enabled = False

End Sub

3：停止按钮的代码

Private Sub Command2_Click() '停止MMControl

mand = "stop"

Timer

1.Enabled = False

miaojishi = 0

fengjishi = 0

Command

3.Enabled = True

1.Caption = "录音已经停止" Command

1.Enabled = False

Command

2.Enabled = False

End Sub

4：保存按钮的代码：

Private Sub Command3_Click() '保存CommonDialog

1.Filter = "音频文件（*.wav）|*.wav|" CommonDialog

1.DialogTitle = "保存我的音频文件" CommonDialog

1.Action = 2

MMControl

1.FileName = CommonDialog

1.FileName

MMControl

mand = "save"

Command

1.Enabled = False

Command

2.Enabled = False

Label

1.Caption = "正在保存录音文件" MsgBox ("文件保存完毕") Label

1.Caption = "可以开始录音了" Command

1.Enabled = True

Command

2.Enabled = False

Command

3.Enabled = False

Label

3.Caption = 0

Label

5.Caption = 0

miaojishi = 0

fengjishi = 0

End Sub

5：退出的代码

Private Sub Command4_Click() '退出MMControl

mand = "close" '释放资源End

End Sub

6：窗体加载的代码

Private Sub Form_Load()‘初始化MMControl

1.Visible = False

Timer

1.Enabled = False

Command

3.Enabled = False

Command

2.Enabled = False

Label

1.Caption = "可以开始录音了" End Sub

6：计时器的代码

Private Sub Timer1_Timer()