贪吃蛇-简单的vb程序代码

Vb课程设计题目贪吃蛇小游戏学生姓名张翠翠专业计算机信息管理班级086111学号08611130任课老师丁木华东华理工大学高等职业技术学院二0一0年六月一背景蛇——传说中的圣灵之物，仰头为神、俯首为魔。蛇是月亮国膜拜的神，月亮国的子民们都认为蛇是万能的主宰派来保护他们的守护者。这里有蟒蛇、布袋蛇、响尾蛇、白火蛇、眼镜蛇、魔鬼蛇、机器蛇、水蛇、小龙、橡皮蛇等等各种各样的蛇。蛇在这个岛屿就像空气一样自然的出现在各个角落，有些还成为居民的宠物，陪伴孩子长大，和年轻人一起去探险，守护着散步的老人。古老月亮国是一个与世隔绝的岛国，善良的人民世世代代生活在这片远离浮躁的世界里，过着与世无争的生活享受着他们的幸福和美满。这里有人们赖以生存的茂密的森林、荒凉的沙漠、寒冷的冰川和广阔的大海也有狂暴的火山和神秘的古代遗址。在善良的女娲神保佑下，人们的生活安宁平静。为了答谢女娲的庇佑，每年月亮国的国民都会举办一个守护蛇大赛，大家都会拿出自己最强、最炫、最快、最稀有的蛇来参加比赛，获得第一名的人将得到国王的特别嘉奖。所以国民一生都在不停的收集各种稀奇古怪的蛇，或者不断的培养更有威力的蛇。在这奇幻的大陆上，在每一片土地都布满着魔法和冒险。勇士们，快带上自己的守护蛇，去和守护蛇一起变的更加强壮、迅猛，去异界寻找那传说中的与众不同的蛇，去神秘的天界去寻找月亮岛的秘密……那将是怎么的一个神奇的经历呢？我们一起去见证那份不可思议的历程吧！贪吃蛇这款游戏，是利用VB编写的一个软件，在窗体里的任意角落出现青蛙，游戏者通过↑↓←→控制贪吃蛇，吃掉一个青蛙，蛇身长长一格，分数相应的增加，游戏界面有两个按钮，开始和难度选择键。本款游戏益智，有趣，可以锻炼游戏者的瞬间反应能力，熟悉↑↓←→。一、设计目的1.综合VisualBasic相关知识制作简单的可视化应用程序2.灵活对程序代码进行利用，修改和编写；3.熟练将VisualBasic所学知识和其它知识相结合二功能描述1、运行运行时有登陆的界面：开始游戏和难度选择，点击开始键开始游戏，点击难度选择选择难度。2、出现青蛙进入游戏后，界面会出现贪吃蛇和青蛙，电脑随机安排青蛙的位置，吃掉后，青蛙出现在其他的位置。电脑随机安排青蛙的位置。3、分数记录青蛙出现后用↑↓←→控制贪吃蛇，吃掉一个青蛙，蛇身长长一格，分数相应的增加点中加一分，没吃不加分。4、游戏评分游戏结束后，会弹出一个评分表，电脑会根据游戏者控制贪吃蛇吃掉的青蛙积分，每个十分。二、概要设计（模块流程图）程序运行界面开始运行退出运行游戏开始再开始评分将顶头的时间初始化。弹出评分窗口顶头的时间初始，三程序代码PublicbeibeiAsIntegerPublicbaobaoAsBooleanSubFrog()x=Int(26*Rnd)y=Int(20*Rnd)imgFrog.Left=360*ximgFrog.Top=360*yEndSubPrivateSubcmdOption_Click()Form2.ShowEndSubPrivateSubcmdStart_Click()Timer1.Enabled=Truelbl_gameover.Visible=Falselbl_Show.Visible=Falselbl_Num.Visible=FalsecmdStart.Enabled=FalsecmdOption.Enabled=Falsebeibei=3IfImg.UBound5ThenFori=6ToImg.UBoundUnloadImg(i)NextiEndIfImg(0).Left=6840Img(0).Top=720Fori=1To5Img(i).Left=Img(i-1).Left+360Img(i).Top=Img(i-1).TopNextiFori=0To5Img(i).Stretch=TrueImg(i).Visible=TrueNextiimgFrog.Left=4320imgFrog.Top=2880SetImg(0).Picture=LoadResPicture(al,0)EndSubPrivateSubForm_Load()SetImg(0).Picture=LoadResPicture(al,0)Fori=1To5SetImg(i).Picture=LoadResPicture(bb,0)Nextilbl_gameover.Visible=Falselbl_Show.Visible=Falselbl_Num.Visible=Falsebeibei=3Timer1.Interval=Form2.hs.ValueEndSubPrivateSubTimer1_Timer()Ifbeibei=1ThenCallChangeImg(0).Top=Img(0).Top-360ElseIfbeibei=2ThenCallChangeImg(0).Top=Img(0).Top+360ElseIfbeibei=3ThenCallChangeImg(0).Left=Img(0).Left-360ElseIfbeibei=4ThenCallChangeImg(0).Left=Img(0).Left+360EndIfIfImg(0).Left=imgFrog.LeftAndImg(0).Top=imgFrog.TopThenDoBaobao=TrueCallFrogFori=0ToImg.UBoundIfimgFrog.Left=Img(i).LeftAndimgFrog.Top=Img(i).TopThenhaha=FalseExitForEndIfNextiLoopWhilebaobao=FalseLoadImg(Img.UBound+1)SetImg(Img.UBound).Picture=LoadResPicture(bb,0)Img(Img.UBound).Stretch=TrueIfImg(Img.UBound-1).Left-Img(Img.UBound-2).Left=360ThenImg(Img.UBound).Left=Img(Img.UBound-1).Left+360Img(Img.UBound).Top=Img(Img.UBound-1).TopElseIfImg(Img.UBound-1).Left-Img(Img.UBound-2).Left=-360ThenImg(Img.UBound).Left=Img(Img.UBound-1).Left-360Img(Img.UBound).Top=Img(Img.UBound-1).TopElseIfImg(Img.UBound-1).Top-Img(Img.UBound-2).Top=360ThenImg(Img.UBound).Top=Img(Img.UBound-1).Top+360Img(Img.UBound).Left=Img(Img.UBound-1).LeftElseIfImg(Img.UBound-1).Top-Img(Img.UBound-2).Top=-360ThenImg(Img.UBound).Top=Img(Img.UBound-1).Top-360Img(Img.UBound).Left=Img(Img.UBound-1).LeftEndIfImg(Img.UBound).Visible=TrueEndIfIfImg(0).Left0OrImg(0).LeftPic_grass.Width-360OrImg(0).Top0OrImg(0).TopPic_grass.Height-360ThenTimer1.Enabled=Falselbl_gameover.Visible=Truelbl_Show.Visible=Truelbl_Num.Visible=Truelbl_Num.Caption=Img.UBound-5cmdStart.Enabled=TruecmdOption.Enabled=TrueEndIfFori=1ToImg.UBoundIfImg(0).Left=Img(i).LeftAndImg(0).Top=Img(i).TopThenTimer1.Enabled=Falselbl_gameover.Visible=Truelbl_Show.Visible=Truelbl_Num.Visible=Truelbl_Num.Caption=Img.UBound-5cmdStart.Enabled=TruecmdOption.Enabled=TrueEndIfNextiEndSubSubChange()Fori=Img.UBoundTo1Step-1Img(i).Left=Img(i-1).LeftImg(i).Top=Img(i-1).TopNextiEndSubPrivateSubPic_grass_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=38ThenSetImg(0).Picture=LoadResPicture(au,0)Beibei=1ElseIfKeyCode=40ThenSetImg(0).Picture=LoadResPicture(ad,0)Beibei=2ElseIfKeyCode=37ThenSetImg(0).Picture=LoadResPicture(al,0)Beibei=3ElseIfKeyCode=39ThenSetImg(0).Picture=LoadResPicture(ar,0)Beibei=4EndIfEndSub四运行界面五小结一存在的不足1没有暂停键2不能退出。二·心得体会课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程。通过了这一周的VB课程设计，我学到很多很多的的东西，同时不仅可以巩固了以前所学过的知识，而且学到了很多在书本上所没有学到过的知识。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。在设计的过程中遇到问题，可以说得是困难重重，这毕竟第一次自己做一个程序，难免会遇到过各种各样的问题，同时在设计的过程中发现了自己的不足之处，对以前所学过的知识理解得不够深刻，掌握得不够牢固。通过这次课程设计之后，一定把以前所学过的知识重新温故。程序设计师需要大量的时间去动手练习才能体验到她的内涵，同时还需要用心去投入，时间和感情花下去之后，的确慢慢的感受到有所收获了，而却也噶据我到了一点点的乐趣了。可能是一个良性循环的开始吧，相信以后会做的更好的。这次课程设计终于顺利完成了，在设计中遇到了很多编程问题，但是在老师和同学的帮助下终于解决。在此向老师还有给过我帮助的同学们表示忠心的感谢！七.参考文献VisualBasic程序设计教程（6.0版）