扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:佚名 来源:yesky 2007年10月15日
关键字:
三、用VB5.0 建立录音小程序
在VB5.0下新建一“标准EXE”工程,打开工程中的空白窗体Form1。在Form1上添加各种控件。
1.在Form1上添加Data控件
将Data控件添加到窗体上,Data控件属性设置如下:
(名称) Data1 Connect Access DatabaseName C:\RECORDER.mdb Recordsource recording |
以上属性设置把Data控件绑定到刚才建立的Access数据库Recorder的recording表。
2.在Form1上添加Text Box控件
在Form1上添加三个Text Box控件,并在适当位置增添相应的标签。文本框属性设置如下:
Text Box控件1 Text Box控件2 Text Box控件3
(名称) Text1 Text2 Text3 Data Field ID Day Time Datasource Data1 Data1 Data1 |
以上属性设置使三个Text Box绑定到Data控件,用于从与Data控件连接的数据库中分别显示字段ID、Day、Time。
3.在Form1上添加OLE容器控件
在Form1上添加OLE容器控件,属性设置如下:
(名称) OLE1
Data Field 录音文件 Datasource Data1 Autoactivate 2-Doubleclick |
通过属性设置把它与Data控件绑定,从Recorder数据库中显示字段“声音文件”。当OLE容器中的录音数据被更新时,被更新或新增的声音对象将自动被写回数据库。当双击OLE容器中的数据时,将自动播放声音文件。
4.在Form1上添加Command Button控件
添加两个Command Button控件到Form1上,其中一个命令按钮用于调用录音机以录制通话数据,并将录音的声音数据嵌入到OLE容器中。该按钮属性设置如下:
(名称) Command1
Caption 开始录音
双击Command1,在Private Sub Command1_Click()中输入以下代码:
Data1.DatabaseName="C:\recorder.mdb"
Data1.Recordsource="Recording"
Data1.Refresh 创建一条新记录
Data1.Recordset.AddNew 创建一个嵌入声音对象
OLE1.CreateEmbed "","SOUNDREC" 激活WIN95附件下的录音机
OLE1.DoVerb 0
End Sub
另一个按钮用于关闭程序,属性设置如下:
(名称) Command2 Caption 退出 双击Command2,在Private Sub Command2_Click()中输入以下代码: Unload Form1 End End Sub |
5.编写Form1的Activate过程
Form1的Activate过程代码,用于在Form1打开的同时打开通信软件SuperVoice2.2并激活Command1的功能。双击Form1,弹出编写代码窗口,在对象下拉列表中选择Form,在过程下拉列表中选择Activate,在Pri
vate Sub Form_Activate()中输入以下代码:
激活Command1的功能 Call Command1_Click 调用安装在d:\supervoc\program\中的通信程序SuperVoice2.2,来启动Modem的语音功能 dim tel tel=shell("d:\supervoc\program\supervoc.exe",1) appactivate tel End Sub |
四、程序运行结果
保存工程,并将其生成可执行程序“录音.EXE”,放在C:\下面。好了,大功告成。现在退出VB,试一试在WIN95下运行。
当双击“录音.EXE”时,程序自动打开通信软件SuperVoice2.2(一般购买Modem时都随机附送SuperVoice2.2),在SuperVoice2.2的系统设置中将语音输入设备设为电话听筒,及启动SuperVoice2.2时弹出仿真电话拨号盘(只需在第一次使用时设置)。设为电话听筒的好处是通话时不需要麦克风,直接使用电话机。接着出现窗体Form1,并自动启动附件下的录音机。进行通话录音时,单击仿真电话拔号盘上的免提键及录音机上的录制按钮,开始录音。录制的声音文件被嵌入OLE容器中,同时被写到与OLE容器连接的数据库Recorder.mdb中,并自动生成录音的日期时间。除了录音功能外,还可以通过点击Data控件上的箭头按钮选择记录查询,双击OLE容器(显示为喇叭图标);自动播放选择的通话录音。如果再给窗体Form1添上DBComboBox、DBGrid控件,将使其查询功能更为完善。
顺便提一下,刚写完这篇文章,我又找到一个可在Win95注册的录音软件,就是创新的SoundOLE,由于界面漂亮且没有限制录音长度(附件的录音机的录音长度只有一分钟),我将准备拿它来取代那土里上气的录音机,使得我的小程序更具专业性。
以上代码在VB5.0、Win95系统上调试通过。
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者