自己编一个CD唱片播放程序

重庆  车东林
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)中通过。
        (重庆  车东林)
 
 