UC知道VB 打冰雹
来源：百度知道 编辑：UC知道 时间：2024/06/05 20:56:26
要求：用VB6.0 做打冰雹的小游戏（效果如图，现在分不够，做的好的话可以再加分）
该程序用到控件数组/TIMER定时器控件/颜色/随机值的生成。
（效果如图，底下那个当做发射器的箭头是imagebox控件，不需要绘图）
（1）游戏启动自动进入游戏状态10个不同颜色的圆球从窗口顶部向下运动。用鼠标指向一个球然后单击。击中加1分，没有减1分。被击中的球立即消失，新的球从顶部落下。
（2）要求同时显示10个球，每个球颜色和速度各不同。单击鼠标时显示一直线表示子弹轨迹。
（3）游戏分4个等级“简单”“中等”“较难”“高级”。默认为“中等”。不同等级下落的总体速度不同。游戏是可以随时选择游戏难度
（4）开始时提供“能量”5。一个球落地减1。当能量为0时显示“你失败了，别灰心，降低难度，请重来！”消息框然后游戏自动改为难度简单，能力恢复为5得分为0。球落地后立即消失，新球从顶部落下。
（5）游戏是达到25分显示“好样的，继续努力！”消息框。达到50分是显示“太棒了，再射中50个你就过关了，努力啊！”消息框。达到100分时显示“恭喜你过关了，增加难度，再继续！”。100分是自动将难度设为“较难”。150分时自动设为“高级”。
我现在有，代码，马上加上
要求把各个部分，按照这个结构修改得浅显一点
最好可以加上注释
解释下各语句或者各块的功能
另外，要求加上响亮的背景音乐和响亮的射击声
当达到不同阶段时，用不同的声音进行提示来代替消息框提示！
谢谢啦~~~
该程序用到控件数组/TIMER定时器控件/颜色/随机值的生成。
（效果如图，底下那个当做发射器的箭头是imagebox控件，不需要绘图）
（1）游戏启动自动进入游戏状态10个不同颜色的圆球从窗口顶部向下运动。用鼠标指向一个球然后单击。击中加1分，没有减1分。被击中的球立即消失，新的球从顶部落下。
（2）要求同时显示10个球，每个球颜色和速度各不同。单击鼠标时显示一直线表示子弹轨迹。
（3）游戏分4个等级“简单”“中等”“较难”“高级”。默认为“中等”。不同等级下落的总体速度不同。游戏是可以随时选择游戏难度
（4）开始时提供“能量”5。一个球落地减1。当能量为0时显示“你失败了，别灰心，降低难度，请重来！”消息框然后游戏自动改为难度简单，能力恢复为5得分为0。球落地后立即消失，新球从顶部落下。
（5）游戏是达到25分显示“好样的，继续努力！”消息框。达到50分是显示“太棒了，再射中50个你就过关了，努力啊！”消息框。达到100分时显示“恭喜你过关了，增加难度，再继续！”。100分是自动将难度设为“较难”。150分时自动设为“高级”。
我现在有，代码，马上加上
要求把各个部分，按照这个结构修改得浅显一点
最好可以加上注释
解释下各语句或者各块的功能
另外，要求加上响亮的背景音乐和响亮的射击声
当达到不同阶段时，用不同的声音进行提示来代替消息框提示！
谢谢啦~~~
我做过比你这个麻烦许多的（要计算碰撞、角度、抛物线，不一定是10个东西、鼠标按下时间……）
总体思路：
1。因为总共只有10个球，那么每个球（Shape）配备一个定时器（Timer），每100毫秒计算位置
2。用Shape的Tag属性保存速度
很麻烦！以前写过一个简单的，不过就是控件数组和单击事件的结合！楼主这个还要加上许多功能！估计更麻烦！
太过复杂…………
你都可以去发布任务了……