图片记忆游戏课程设计

《图片记忆游戏课程设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、图片记忆游戏课程设计一、题目：图片记忆游戏二、目的与要求：1．目的：培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件进行设计。2．基本要求：游戏开始，首先在窗体上生成若干个相同背景的图片框，单击后显示出其隐藏的图片，当同时显示的两个图片相同时，从窗体上将其删除，直至所有图片均消失，游戏结束。详细要求如下：n编写控制游戏的菜单n游戏开始根据不同等级在窗体上添加图片，具有相同背景并排列整齐；n通过鼠标单击图片框显示图片，显示出隐藏图片；n两个相同的图片消失；n游戏完成入门级和初级。u游戏能够连续执行。现提供8

2、张图片，要求编写程序中必须使用。3．创新要求：«游戏完成中级和高级；«充分考虑游戏中的各种情况，使错误数降低为零；«增加时间控制，在规定时间内完成游戏；根据游戏时间给出分数；«设置晋级游戏，低级完成后自动进入下一级。三、设计方法和基本原理：1．问题描述：图片记忆游戏，首先根据游戏等级在窗体上添加图片框，等级不同图片个数不同。其次，每个图片框分配一个图片，但图片并不显示，以相同图片作为背景。鼠标单击图片框，在一定时间内显示图片，当两个图片内容相同时，图片消失；当所有图片消失游戏结束。2．问题的解决方案：根据问题描述，可以将问题

3、解决分为步：（1）首先在窗体上添加一个Picture控件，然后在此控件内添加Image控件数组,根据游戏等级添加不同数目。添加控件数组的方法参见第8章例题。（2）给每个Image控件分配图片。图片内容必须是随机产生，并且成对出现。（3）鼠标单击图片时利用LoadPicture方法将分配的图片显示出来，并显示一段时间，然后重新显示初始背景，时间可通过Timer控制。为了实行同内容的图片消失，保证同时显示两张图片，可以用两个Timer分别控制两个图片显示时间。（4）当两个图片显示时，比较两者图片内容是否相同，相同则利用LoadP

4、icture方法将图片内容去掉，即图片消失。四、主要技术问题的描述：此程序要解决的问题有以下几个：1）添加控件数组时，首先添加一个Image控件，将Index设置为0，然后利用Load方法添加到窗体上，同时设定好各个元素的位置即可。此部分可编写为过程，不同等级均可调用。2）现已经提供素材，共有8张图片，文件名分别为1.jpg~8.jpg。不同级别图片使用个数不同，如初级共8张图片框，可使用1~8图片中的随机4个即可，每个图片2次。方法为：第一步定义一个数祖numer(4),分别得到1~8的随机数，numer(1)=Int(R

5、nd*7)+1Donumer(2)=Int(Rnd*7)+1LoopWhilenumer(1)=numer(2)Donumer(3)=Int(Rnd*7)+1LoopWhilenumer(1)=numer(3)Ornumer(2)=numer(3)Donumer(4)=Int(Rnd*7)+1LoopWhilenumer(1)=numer(4)Ornumer(2)=numer(4)Ornumer(3)=numer(4)。第二步，定义数组nn(8,2)，数组第一列代表八个Image控件数组元素，第二列存放从数组numer(4)

6、得到的随机数，nn(i,2)=numer(Int(Rnd*4)+1)，并以此作为分配图片的文件名，Image1(Index).Picture=LoadPicture(App.Path&""&nn(Index,2)&".jpg")；此时注意，numer(4)每个元素分配给数组nn只能两次，因此还需定义一个数组n(4)来存放numer(4)每个元素使用的次数，两次以后就不能在使用了，到两次后可以将其值清零。中级和高级生成的图片控件较多，每个图片可以显示多次，要保证图片显示的次数为偶数次。3）单击图片，可得到其在数组中相应的in

7、dex值，通过下面语句Image1(Index).Picture=LoadPicture(App.Path&""&nn(Index,2)&".jpg")将图片显示出来。定义一个逻辑型数组WhichVisible(),表示图片是否显示，若显示赋值为True。PrivateSubImage1_Click(IndexAsInteger)StaticckAsIntegerck=ck+1IfckMod2<>0Thena=IndexWhichVisible(a)=TrueElseb=IndexWhichVisible(b)=TrueE

8、ndIfEndSuba,b分别记录连续单击图片在数组中的位置。4）比较两者图片内容是否相同Ifa<>bThenIfWhichVisible(a)=TrueAndWhichVisible(b)=TrueThenIfnn(a,2)=nn(b,2)ThenImage1(a).Picture=Lo