《月光宝盒》模钢琴程序设计详细说明.docVIP

《月光宝盒》模拟钢琴程序设计详细说明 程序概要 本程序利用VB程序设计语言编写，截住了VB中大量的控件来实现，里面涉及到部分API函数，主要是实现模拟钢琴的发音。此外，还注重了界面的动画效果。 程序系统的结构 系统结构由两部分组成 第一部分 ：欢迎界面 frmlogin 第二部分：主窗体 frmmain 此外,主窗体下有多种背景可供选择,以下举例说明 控件介绍 frmlogin欢迎界面中主要用到了标签还有定时器,来实现标签的移动和字体变化.并且播放”致爱丽丝”钢琴曲,用到mrciosoft multimedia control 6.0(sp3)这个控件.在此没有用通用对话框或者文件读取的方法,是因为怕外机上没有钢琴曲之类的轻音乐.但回头察看以下,容量大了. 主窗体 frmmain中,琴键用命令按钮制作而成.右下角为图片按钮.有三个定时器. 4. 功能介绍 琴键用鼠标或键盘均可实现弹奏.键盘上面的三个命令按钮,自左至右功能依次为, “改变窗体形状” “窗体最前端显示” 和“视窗体控件透明化(该过程不可逆,点击 ‘返回初始状态’按钮可基本恢复)”.窗体右侧的按钮 “音调调节”可以调节模拟钢琴的音调. “音乐欣赏”可在里面选择自己想听的歌曲. “换肤”可更改背景图片. “换色”可更改背景颜色. 恢复原是背景可点击 “返回初始化”按钮,因为时间有限 “帮助”按钮未写代码. 下面图片按钮可推出程序. 程序漏洞 “月光宝盒”主窗体不可最小化,且如果播放一首音乐,虽然可同时弹奏钢琴,但是当让音乐停止后则钢琴不可用. 除此之外当按下琴键上面第三个按钮的时候窗体透明,(并使用第一个按钮)窗体不可恢复. “月光宝盒2”中有最小化按钮但是(最好不用),没有写控件随窗体变化而变化的代码.播放一段音乐时,钢琴可用但是音乐将停止,当没有触发钢琴事件的时,音乐又起. 主要事件执行过程 钢琴事件: Private Sub Form_Load() numDevices = midiOutGetNumDevs() rc = midiOutClose(hmidi) rc = midiOutOpen(hmidi, curDevice, 0, 0, 0) channel = 0 baseNote = 60 volume = 127 Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) StopNote NoteFromKey(KeyCode) ‘初始化键盘 Private Function NoteFromKey(key As Integer) NoteFromKey = INVALID_NOTE Select Case key Case vbKeyZ NoteFromKey = 0 Case vbKeyS NoteFromKey = 1 Case vbKeyX NoteFromKey = 2 Case vbKeyD NoteFromKey = 3 Case vbKeyC NoteFromKey = 4 Case vbKeyV NoteFromKey = 5 Case vbKeyG NoteFromKey = 6 Case vbKeyB NoteFromKey = 7 Case vbKeyH NoteFromKey = 8 Case vbKeyN NoteFromKey = 9 Case vbKeyJ NoteFromKey = 10 Case vbKeyM NoteFromKey = 11 Case 188 comma NoteFromKey = 12 Case vbKeyL NoteFromKey = 13 Case 190 period NoteFromKey = 14 Case 186 semicolon NoteFromKey = 15 Case 191 forward slash NoteFromKey = 16 End Select End sub Private Sub StopNote(Index As Integer) If (Index = INVALID_NOTE) Then Exit Sub End If key(Index).Value = 0 midim