自己编一个CD唱片播放程序

Author: 重庆 车东林 Date: 1995-11-17

        用VB编程有三步:
        A.设计界面
        B.定义属性
        C.写入代码
        读了下面的方法,你会有更明确的体会。
        1.准备工作
        启动VB专业版(ProfessionalEdition)V3.0,建立一个新的项目(Project)。检查右边的Project1窗口中是否有MCI.VBX文件。如果没有就必须用以下步骤将MCI.VBX定制控制加入到Project1窗口中去:在File菜单中选Add File...(或者按Ctrl+D),出现Add File对话框,选择:C:\WINDOWS\SYSTEM\MCI.VBX,然后按OK按钮,于是在Project1窗口中出现MCI.VBX。
        2.设计唱机窗口
        选择Form1窗体,为窗体定义属性(Properties),用鼠标选择右边的Properties窗体,在Caption(显示属性)一栏的Form1上双击,于是在上方的Form1被选定,此时你可以给你的CD播放程序取个名字,如果是中文Windows用户不妨键入“激光唱机”几个字。然后在Name(名称属性)一栏的Form1上双击,然后给定一个名称“frmMM”(此名称随意,但最好依此格式)。
        3.设计退出程序键
        将鼠标移到左边工具箱(Toolbox)中的命令钮上(一个被削去四个边凸起的长方形)双击,在Form窗体中央出现一个名为Command1的按钮,将其拖到窗体的右下角适当位置。在Properties窗口中设置此命令钮的属性:在Caption中设置为“&Exit”,这表明在此命令钮上显示“Exit”,并且在字母“E”下面画一短线,表示可以在程序运行中按“Alt+E”退出。你也可以设置为中文“退出&X”。然后在FontSize(字体大小)一栏设置文字的大小,在FontName(字型)一栏设置字体类型,分别在Fontltalic和FontBold中设置字体是否为斜体和粗体。最后在Name属性中为它取名为cmdExit。
        4.设计CD唱机的播放键
        在工具箱的最下面有一个按钮,其上画的是一个屏幕,上有一个“C:”和一个五线谱的乐符,这就是增加MCI.VBX所得到的多媒体控制按钮。双击此按钮,在“激光唱机”窗体中央出现一串类似激光唱机中的键。其Name属性自动设置为MMControl1,不用再去设置。将Visible属性设置为“True”。用拖动的方式将这些键安排在你喜欢的位置。
        5.设计代码
        1)为“退出”键设计代码。
        很简单,双击“退出”键,出现一个代码窗口,其中有以下两个语句:
        Sub cmdExit_Click()
        End Sub
        其中“Sub...End Sub”和其间的语句代表子过程。cmdExit是我们为其设置的名字,其后的“Click”为所发生的事件(用鼠标点“退出”键)。
        在两个语句的中间键入“End”,以实现我们的想法:用鼠标点(Click)一下这个键,窗口关闭,程序结束。
        2)为窗体“CD唱机”设计代码。
        双击“CD唱机”窗体中除“播放”键和“退出”键以外的空白区域,同样出现一个代码窗口,显示:
        Sub Form_Load ()
        End Sub
        在两条语句中插入以下语句:
        MMControl1.Notify=False
        MMControl1.Wait=True
        MMControl1.Shareable=False
        MMControl1.DeviceType="CDAudio"
        MMControl1.Command="Open"
        以CDPLAY.FRM和CDPLAY.MAK的名字存盘。
        6.运行程序。
        在CD-ROM中放入一张CD唱片,检查你的功放、音箱是否准备好,简单地按“F5”键运行“激光唱机”,窗体中的小点不见了,现在用鼠标点一下“播放”键,你会听到你的音箱中传出了音乐,是否这一切都是真的?有了VB,你编制Windows的应用程序就这么简单。
        7.制作.EXE文件。
        选择“File”中的“Make EXE File...”可以简单地得到一个可在Windows中执行的CD播放程序。现在你可以向你的朋友展示这个也许是世界上最小的CD唱机播放程序了。
        显然,你的CD唱机还只是一个最原始的最简单的CD唱机,你可以用VB的其它工具或者其OLE功能为你的CD唱机润色,比如:你可以设计一个卡通小娃娃,将所有的唱机操作键设计在他的口袋里,只要按一下播放键,小娃娃就会张口唱你CD唱片上的歌,。
        另外说明两点:
        (1)只有专业版的VB才有MCI.VBX文件。
        (2)如果你有声霸卡且已在Windows安装了驱动程序,可以修改程序播放WAV文件和MIDI文件,方法为:
        在“激光唱机”窗体代码中将MMControl1.DeviceType="CDAudio"里的CDAudio改为WaveAudio,而且在这条语句后加一条:
        MMControl1.File="C:\WINDOWS\SAMPLE.WAV"
        其中的SMAPLE.WAV为用于演示的WAV文件。
        将CDAudio改为Sequencer,然后在MMControl1.File中指明的MIDI文件,则可以让你的唱机播放你喜欢的音乐了。
        以上内容已在本人的兼容486DX2-66(8MRAM,S-929声音卡,SONY55ECD-ROM)中通过。
        (重庆  车东林)