救助vb高手

显示全部楼层 · 2008-6-13 13:47:06

二、挖宝游戏（难度：较难，起评分很高）
要求：在八个按钮中随机设置一个宝藏，当用户点击中该按钮时，将该按钮设置一个有宝藏的图片，否则设置无宝藏的图片。
挖到宝藏后，使用msgbox提示用户，并播放一段音乐。
点击“开始”键时，重新埋宝藏。
当用户开始点按钮挖宝时，右上角有时钟开始计时，直到用户挖到宝藏为止。
相关技术：
1、随机数的产生：教材第55页，产生1-8的随机数；
2、在按钮上添加图片：command1.style=1; command1.picture=loadpicture(…)；
3、msgbox提示用户：msgbox “找到宝藏了！”；
4、计时：timer控件的使用，时间设置为1000毫秒，可参照教材第15页计时器应用；
4、播放音乐（需要在“工程” – “引用”中添加：Windows Media Player）：

Dim wmp As New WindowsMediaPlayer

wmp.URL = App.Path & "\ak.wav"

Set wmp = Nothing
三、媒体播放器（难度：难，起评分高）
要求：
主菜单：文件、播放、OS版本
“文件”有两个子菜单“打开”和“退出”；
“播放”有两个子菜单“播放”和“停止”；
菜单“OS版本”可显示当前使用的操作系统版本，代码可参照教材71页；
相关技术：
1、需要使用两个添加的控件：Microsoft Common Dialog Control 6.0和Windows Media Player
2、菜单 “播放”可参照：WMP1.Controls.play
3、菜单 “停止”可参照：WMP1.Controls.stop
4、菜单“打开”可参照教材167页和168页的使用Microsoft Common Dialog Control打开文件的代码，如其中读取文件地址：Oldfilename = Cmndialog1.Filename
5、取出文件地址后，直接将其设置给WMP1.URL属性即可播放。
四、射击游戏（难度：较难，起评分很高）
要求：
点“开始”后，在背景图上随机出现一个小图片，每隔一秒隐藏或显示；
如果用户在小图出现时能点击中该图，“击中次数”+1；
不论用户是否点中小图，“射击次数”均+1，而且有声音提示，既类似于挖宝游戏中的播放音乐；
当用户点击“停止”后，小图不再自动出现，既定时器停止，并计算命中率。
相关技术：
1、图片随机出现的参考代码：
Image4.Left = Int(Rnd * Picture4.Width)
Image4.Top = Int(Rnd * Picture4.Height)
加分项目：增加一个功能，可改变定时器的时间，既图片出现的时间可变快或变慢。

千问 · 2008-6-13 13:47:06

想让别人帮你写程序？没有谁有那么闲的功夫的