俄罗斯方块VB实习报告

PAGEPAGE24课程名称：VB.NET应用开发题目：变色俄罗斯方块我的团队：***姓名：***学号：1004******1.系统设计说明。“1：变色”俄罗斯方块其最大的特点是在游戏运行过程中能变换由20*20组合起来的方块组。每种形状对应的颜色各不相同。当方块组在界面中下落时，显示的是它本身的颜色，当落到底框下面时，则自动停止或消除同一行连续的方块，同时变化成粉色。2：游戏界面清新亮丽，整个游戏共设置了5+4个功能键，其中五个BUTTON所对应的分别是：开始，恢复，停止，退出以及当前时间。停止，开始，恢复都通过Me.Timer1来控制运行，当前时间可以查看游戏运行过程中的各个准确的时间点。由四个键盘控制的WASD中，通过键盘控制能很好的实现方块的移动，变换和加速下落等过程。3：利用show()等相关函数实现方块的实际运行功能。在编写代码的过程中，我参考了一些比较好的控件的使用方法。不断的添加进俄罗斯方块中。利用数组来实现小方块的排列组合等功能。2.游戏代码PublicClassForm1Dimt$DimNowDateAsDateDimAAsInteger=20'一个小方块的长和宽Dimf()Asfangkuai'表示小方块的个数Dimx,yAsInteger'方块对于面板的坐标DimpanAsInteger=2'从开始所转到的位置，比如说，正7为1逆时针转一个则为2DimbiaozhiAsInteger=1'方块上次的位置DimnowlocationAsInteger'此时转到的位置Dimshuzu()Asfangkuai'四个小方块组合的一个大控件的数组DimshumuAsInteger=0''四个小方块组合的一个大控件的数目DimabcAsIntegerDimss(360)AsIntegerDimgeshuAsInteger=0DimbbbAsInteger=0PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadReDimshuzu(800)Forabc=0To800shuzu(abc)=NewfangkuaiNextMe.KeyPreview=TrueMe.Timer1.Enabled=TrueMe.Timer1.Interval=20tiaoxuan()Forabc=0To3shuzu(shumu)=f(abc)shumu=shumu+1NextEndSub'表示反7的控件PublicSubfanqi()ReDimf(3)DimiAsIntegerFori=0To3f(i)=Newfangkuaif(i).BackColor=Color.VioletMe.Panel1.Controls.Add(f(i))f(i).Show()Nextx=120y=0fanqixing1()EndSubSubfanqisetxy(ByValaAsInteger,ByValbAsInteger)x=ay=bEndSubSubfanqixing1()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x+A,y)f(2).Location=NewPoint(x,y+A)f(3).Location=NewPoint(x,y+2*A)EndSubSubfanqixing2()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x,y+A)f(2).Location=NewPoint(x+A,y+A)f(3).Location=NewPoint(x+2*A,y+A)EndSubSubfanqixing3()f(0).Location=NewPoint(x+A,y)f(1).Location=NewPoint(x+A,y+A)f(2).Location=NewPoint(x,y+2*A)f(3).Location=NewPoint(x+A,y+2*A)EndSubSubfanqixing4()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x+A,y)f(2).Location=NewPoint(x+2*A,y)f(3).Location=NewPoint(x+2*A,y+A)EndSubSubfanqixuanzhuan()Ifpan=1Thenfanqixing1()pan=2biaozhi=1ElseIfpan=2Thenfanqixing2()pan=3biaozhi=2ElseIfpan=3Thenfanqixing3()pan=4biaozhi=3ElseIfpan=4Thenfanqixing4()pan=1biaozhi=4ElseMsgBox("无效")EndIfEndSubFunctionfanqibiao()AsIntegerReturnbiaozhiEndFunction'表示正7的控件PublicSubzhenqi()ReDimf(3)DimiAsIntegerFori=0To3f(i)=Newfangkuaif(i).BackColor=Color.DarkOrchidMe.Panel1.Controls.Add(f(i))f(i).Show()Nextx=120y=0zhenqixing1()EndSubSubzhenqisetxy(ByValaAsInteger,ByValbAsInteger)x=ay=bEndSubSubzhenqixing1()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x+A,y)f(2).Location=NewPoint(x+A,y+A)f(3).Location=NewPoint(x+A,y+2*A)EndSubSubzhenqixing2()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x+A,y)f(2).Location=NewPoint(x+2*A,y)f(3).Location=NewPoint(x,y+A)EndSubSubzhenqixing3()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x,y+A)f(2).Location=NewPoint(x,y+2*A)f(3).Location=NewPoint(x+A,y+2*A)EndSubSubzhenqixing4()f(0).Location=NewPoint(x,y+A)f(1).Location=NewPoint(x+A,y+A)f(2).Location=NewPoint(x+2*A,y+A)f(3).Location=NewPoint(x+2*A,y)EndSubSubzhenqixuanzhuan()Ifpan=1Thenzhenqixing1()pan=2biaozhi=1ElseIfpan=2Thenzhenqixing2()pan=3biaozhi=2ElseIfpan=3Thenzhenqixing3()pan=4biaozhi=3ElseIfpan=4Thenzhenqixing4()pan=1biaozhi=4ElseMsgBox("无效")EndIfEndSubFunctionzhenqibiao()AsIntegerReturnbiaozhiEndFunction'表示像鸭子一样的控件PublicSubzhenqiang()ReDimf(3)DimiAsIntegerFori=0To3f(i)=Newfangkuaif(i).BackColor=Color.FirebrickMe.Panel1.Controls.Add(f(i))f(i).Show()Nextx=120y=0zhenqiangxing1()EndSubSubzhenqiangsetxy(ByValaAsInteger,ByValbAsInteger)x=ay=bEndSubSubzhenqiangxing1()f(0).Location=NewPoint(x+A,y)f(1).Location=NewPoint(x+2*A,y)f(2).Location=NewPoint(x,y+A)f(3).Location=NewPoint(x+A,y+A)EndSubSubzhenqiangxing2()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x,y+A)f(2).Location=NewPoint(x+A,y+A)f(3).Location=NewPoint(x+A,y+2*A)EndSubSubzhenqiangxing3()f(0).Location=NewPoint(x+A,y)f(1).Location=NewPoint(x+2*A,y)f(2).Location=NewPoint(x,y+A)f(3).Location=NewPoint(x+A,y+A)EndSubSubzhenqiangxing4()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x,y+A)f(2).Location=NewPoint(x+A,y+A)f(3).Location=NewPoint(x+A,y+2*A)EndSubSubzhenqiangxuanzhuan()Ifpan=1Thenzhenqiangxing1()pan=2biaozhi=1ElseIfpan=2Thenzhenqiangxing2()pan=3biaozhi=2ElseIfpan=3Thenzhenqiangxing3()pan=4biaozhi=3ElseIfpan=4Thenzhenqiangxing4()pan=1biaozhi=4ElseMsgBox("无效")EndIfEndSubFunctionzhenqiangbiao()AsIntegerReturnbiaozhiEndFunction'表示如同鸭子形状的反过来的控件PublicSubfanqiang()ReDimf(3)DimiAsIntegerFori=0To3f(i)=Newfangkuaif(i).BackColor=Color.HotPinkMe.Panel1.Controls.Add(f(i))f(i).Show()Nextx=120y=0fanqiangxing1()EndSubSubfanqiangsetxy(ByValaAsInteger,ByValbAsInteger)x=ay=bEndSubSubfanqiangxing1()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x+A,y)f(2).Location=NewPoint(x+A,y+A)f(3).Location=NewPoint(x+2*A,y+A)EndSubSubfanqiangxing2()f(0).Location=NewPoint(x+A,y)f(1).Location=NewPoint(x,y+A)f(2).Location=NewPoint(x+A,y+A)f(3).Location=NewPoint(x,y+2*A)EndSubSubfanqiangxing3()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x+A,y)f(2).Location=NewPoint(x+A,y+A)f(3).Location=NewPoint(x+2*A,y+A)EndSubSubfanqiangxing4()f(0).Location=NewPoint(x+A,y)f(1).Location=NewPoint(x,y+A)f(2).Location=NewPoint(x+A,y+A)f(3).Location=NewPoint(x,y+2*A)EndSubSubfanqiangxuanzhuan()Ifpan=1Thenfanqiangxing1()pan=2biaozhi=1ElseIfpan=2Thenfanqiangxing2()pan=3biaozhi=2ElseIfpan=3Thenfanqiangxing3()pan=4biaozhi=3ElseIfpan=4Thenfanqiangxing4()pan=1biaozhi=4ElseMsgBox("无效")EndIfEndSubFunctionfanqiangbiao()AsIntegerReturnbiaozhiEndFunction'表示1字形的控件PublicSubchangxing()ReDimf(3)DimiAsIntegerFori=0To3f(i)=Newfangkuaif(i).BackColor=Color.BlackMe.Panel1.Controls.Add(f(i))f(i).Show()Nextx=120y=0changxingxing1()EndSubSubchangxingsetxy(ByValaAsInteger,ByValbAsInteger)x=ay=bEndSubSubchangxingxing1()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x+A,y)f(2).Location=NewPoint(x+2*A,y)f(3).Location=NewPoint(x+3*A,y)EndSubSubchangxingxing2()f(0).Location=NewPoint(x+A,y)f(1).Location=NewPoint(x+A,y+A)f(2).Location=NewPoint(x+A,y+2*A)f(3).Location=NewPoint(x+A,y+3*A)EndSubSubchangxingxing3()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x+A,y)f(2).Location=NewPoint(x+2*A,y)f(3).Location=NewPoint(x+3*A,y)EndSubSubchangxingxing4()f(0).Location=NewPoint(x+A,y)f(1).Location=NewPoint(x+A,y+A)f(2).Location=NewPoint(x+A,y+2*A)f(3).Location=NewPoint(x+A,y+3*A)EndSubSubchangxingxuanzhuan()Ifpan=1Thenchangxingxing1()pan=2biaozhi=1ElseIfpan=2Thenchangxingxing2()pan=3biaozhi=2ElseIfpan=3Thenchangxingxing3()pan=4biaozhi=3ElseIfpan=4Thenchangxingxing4()pan=1biaozhi=4ElseMsgBox("无效")EndIfEndSubFunctionchangxingbiao()AsIntegerReturnbiaozhiEndFunction'表示如同倒T的控件PublicSubdaoti()ReDimf(3)DimiAsIntegerFori=0To3f(i)=Newfangkuaif(i).BackColor=Color.IvoryMe.Panel1.Controls.Add(f(i))f(i).Show()Nextx=120y=0daotixing1()EndSubSubdaotisetxy(ByValaAsInteger,ByValbAsInteger)x=ay=bEndSubSubdaotixing1()f(0).Location=NewPoint(x+A,y)f(1).Location=NewPoint(x,y+A)f(2).Location=NewPoint(x+A,y+A)f(3).Location=NewPoint(x+2*A,y+A)EndSubSubdaotixing2()f(0).Location=NewPoint(x+A,y)f(1).Location=NewPoint(x,y+A)f(2).Location=NewPoint(x+A,y+A)f(3).Location=NewPoint(x+A,y+2*A)EndSubSubdaotixing3()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x+A,y)f(2).Location=NewPoint(x+2*A,y)f(3).Location=NewPoint(x+A,y+A)EndSubSubdaotixing4()f(0).Location=NewPoint(x+A,y)f(1).Location=NewPoint(x+A,y+A)f(2).Location=NewPoint(x+2*A,y+A)f(3).Location=NewPoint(x+A,y+2*A)EndSubSubdaotixuanzhuan()Ifpan=1Thendaotixing1()pan=2biaozhi=1ElseIfpan=2Thendaotixing2()pan=3biaozhi=2ElseIfpan=3Thendaotixing3()pan=4biaozhi=3ElseIfpan=4Thendaotixing4()pan=1biaozhi=4ElseMsgBox("无效")EndIfEndSubFunctiondaotibiao()AsIntegerReturnbiaozhiEndFunction'表示正方形的控件PublicSubzhengfang()ReDimf(3)DimiAsIntegerFori=0To3f(i)=Newfangkuaif(i).BackColor=Color.CyanMe.Panel1.Controls.Add(f(i))f(i).Show()Nextx=120y=0zhengfangxing1()EndSubSubzhengfangsetxy(ByValaAsInteger,ByValbAsInteger)x=ay=bEndSubSubzhengfangxing1()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x+A,y)f(2).Location=NewPoint(x,y+A)f(3).Location=NewPoint(x+A,y+A)EndSubSubzhengfangxing2()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x+A,y)f(2).Location=NewPoint(x,y+A)f(3).Location=NewPoint(x+A,y+A)EndSubSubzhengfangxing3()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x+A,y)f(2).Location=NewPoint(x,y+A)f(3).Location=NewPoint(x+A,y+A)EndSubSubzhengfangxing4()f(0).Location=NewPoint(x,y)f(1).Location=NewPoint(x+A,y)f(2).Location=NewPoint(x,y+A)f(3).Location=NewPoint(x+A,y+A)EndSubSubzhengfangxuanzhuan()Ifpan=1Thenzhengfangxing1()pan=2biaozhi=1ElseIfpan=2Thenzhengfangxing2()pan=3biaozhi=2ElseIfpan=3Thenzhengfangxing3()pan=4biaozhi=3ElseIfpan=4Thenzhengfangxing4()pan=1biaozhi=4ElseMsgBox("无效")EndIfEndSubFunctionzhengfangbiao()AsIntegerReturnbiaozhiEndFunction'以下表示选择以上控件的代码，随机的Subtiaoxuan()DimnAsIntegerDimrAsRandomr=NewRandom()n=r.NextMod7+1nowlocation=nSelectCasenCase1fanqi()Case2zhenqi()Case3daoti()Case4zhenqiang()Case5fanqiang()Case6zhengfang()Case7changxing()EndSelectDebug.WriteLine(n)EndSubSubxuanzhuan()SelectCasenowlocationCase1fanqiangxuanzhuan()Case2zhenqixuanzhuan()Case3daotixuanzhuan()Case4zhenqiangxuanzhuan()Case5fanqiangxuanzhuan()Case6zhengfangxuanzhuan()Case7changxingxuanzhuan()EndSelectEndSubSubgetmax(ByRefxiaAsInteger,ByRefleftAsInteger,ByRefrightAsInteger)SelectCasenowlocationCase1SelectCasefanqibiao()Case1right=x+Axia=y+2*ACase2right=x+2*Axia=y+ACase3right=x+Axia=y+2*ACase4right=x+2*Axia=y+AEndSelectleft=xCase2SelectCasezhenqibiao()Case1right=x+Axia=y+2*ACase2right=x+2*Axia=y+ACase3right=x+Axia=y+2*ACase4right=x+2*Axia=y+AEndSelectleft=xCase3SelectCasedaotibiao()Case1right=x+2*Axia=y+Aleft=xCase2right=x+Axia=y+2*Aleft=xCase3right=x+2*Axia=y+Aleft=xCase4right=x+2*Axia=y+2*Aleft=x+AEndSelectCase4SelectCasezhenqiangbiao()Case1right=x+2*Axia=y+ACase2right=x+Axia=y+2*ACase3right=x+2*Axia=y+ACase4right=x+Axia=y+2*AEndSelectleft=xCase5SelectCasefanqiangbiao()Case1right=x+2*Axia=y+ACase2right=x+Axia=y+2*ACase3right=x+2*Axia=y+ACase4right=x+Axia=y+2*AEndSelectleft=xCase6SelectCasezhengfangbiao()Case1right=x+Axia=y+ACase2right=x+Axia=y+ACase3right=x+Axia=y+ACase4right=x+Axia=y+AEndSelectleft=xCase7SelectCasechangxingbiao()Case1right=x+3*Axia=yleft=xCase2right=x+Axia=y+3*Aleft=x+ACase3right=x+3*Axia=yleft=xCase4right=x+Axia=y+3*Aleft=x+AEndSelectEndSelectEndSubSubsetxy(ByValaAsInteger,ByValbAsInteger)SelectCasenowlocationCase1fanqisetxy(a,b)Case2zhenqisetxy(a,b)Case3daotisetxy(a,b)Case4zhenqiangsetxy(a,b)Case5fanqiangsetxy(a,b)Case6zhengfangsetxy(a,b)Case7changxingsetxy(a,b)EndSelectEndSubSubgetfuwei()SelectCasenowlocationCase1SelectCasefanqibiao()Case1fanqixing1()Case2fanqixing2()Case3fanqixing3()Case4fanqixing4()EndSelectCase2SelectCasezhenqibiao()Case1zhenqixing1()Case2zhenqixing2()Case3zhenqixing3()Case4zhenqixing4()EndSelectCase3SelectCasedaotibiao()Case1daotixing1()Case2daotixing2()Case3daotixing3()Case4daotixing4()EndSelectCase4SelectCasezhenqiangbiao()Case1zhenqiangxing1()Case2zhenqiangxing2()Case3zhenqiangxing3()Case4zhenqiangxing4()EndSelectCase5SelectCasefanqiangbiao()Case1fanqiangxing1()Case2fanqiangxing2()Case3fanqiangxing3()Case4fanqiangxing4()EndSelectCase6SelectCasezhengfangbiao()Case1zhengfangxing1()Case2zhengfangxing2()Case3zhengfangxing3()Case4zhengfangxing4()EndSelectCase7SelectCasechangxingbiao()Case1changxingxing1()Case2changxingxing2()Case3changxingxing3()Case4changxingxing4()EndSelectEndSelectEndSubSubgetfangkuai()EndSub'移动时方块不要碰撞PublicFunctionbupengzhuangleft(ByValxingAsfangkuai,ByValqiangAsfangkuai)AsBooleanDimx1,y1,x2,y2,x3,y3,m1,n1,m2,n2,m3,n3,m4,n4AsIntegerx1=xing.Location.X-5y1=xing.Location.Y+xing.Size.Height/4x2=xing.Location.X-5y2=xing.Location.Y+xing.Size.Height/2x3=xing.Location.X-5y3=xing.Location.Y+xing.Size.Heightm1=qiang.Location.Xn1=qiang.Location.Ym2=m1+qiang.Size.Widthn2=n1m3=m1n3=n1+qiang.Size.Heightm4=m2n4=n3If((x1>m1Andx1<m2Andy1>n1Andy1<n3)Or(x2>m1Andx2<m2Andy2>n1Andy2<n3)Or(x3>m1Andx3<m2Andy3>n1Andy3<n3))ThenReturnTrueEndIfEndFunctionPublicFunctionbupengzhuangright(ByValxingAsfangkuai,ByValqiangAsfangkuai)AsBooleanDimx1,y1,x2,y2,x3,y3,m1,n1,m2,n2,m3,n3,m4,n4AsIntegerx1=xing.Location.X+xing.Size.Width+5y1=xing.Location.Y+xing.Size.Height/4x2=xing.Location.X+xing.Size.Width+5y2=xing.Location.Y+xing.Size.Height/2x3=xing.Location.X+xing.Size.Width+5y3=xing.Location.Y+xing.Size.Heightm1=qiang.Location.Xn1=qiang.Location.Ym2=m1+qiang.Size.Widthn2=n1m3=m1n3=n1+qiang.Size.Heightm4=m2n4=n3If((x1>m1Andx1<m2Andy1>n1Andy1<n3)Or(x2>m1Andx2<m2Andy2>n1Andy2<n3)Or(x3>m1Andx3<m2Andy3>n1Andy3<n3))ThenReturnTrueEndIfEndFunctionPublicFunctionbupengzhuangxia(ByValxingAsfangkuai,ByValqiangAsfangkuai)AsBooleanDimx4,y4,m1,n1,m2,n2,m3,n3,m4,n4AsIntegerx4=xing.Location.X+xing.Size.Width/2y4=xing.Location.Y+xing.Size.Height+11m1=qiang.Location.Xn1=qiang.Location.Ym2=m1+qiang.Size.Widthn2=n1m3=m1n3=n1+qiang.Size.Heightm4=m2n4=n3If(x4>=m1Andx4<=m2Andy4>=n1Andy4<=n3)ThenReturnTrueEndIfEndFunctionPublicFunctionbupengzhuangxia1(ByValxingAsfangkuai,ByValqiangAsfangkuai)AsBooleanDimx4,y4,m1,n1,m2,n2,m3,n3,m4,n4AsIntegerx4=xing.Location.X+xing.Size.Width/2y4=xing.Location.Y+xing.Size.Heightm1=qiang.Location.Xn1=qiang.Location.Ym2=m1+qiang.Size.Widthn2=n1m3=m1n3=n1+qiang.Size.Heightm4=m2n4=n3If(x4>=m1Andx4<=m2Andy4>=n1Andy4<=n3)ThenReturnTrueEndIfEndFunctionFunctionbupengleft()AsBooleanDimsa,sbAsIntegerForsa=0Toshumu-1-4Forsb=0To3Ifbupengzhuangleft(f(sb),shuzu(sa))ThenReturnTrueEndIfNextNextEndFunctionFunctionbupengright()AsBooleanDimsa,sbAsIntegerForsa=0Toshumu-1-4Forsb=0To3Ifbupengzhuangright(f(sb),shuzu(sa))ThenReturnTrueEndIfNextNextEndFunctionFunctionbupengxia()AsBooleanDimsa,sbAsIntegerForsa=0Toshumu-1-4Forsb=0To3Ifbupengzhuangxia(f(sb),shuzu(sa))ThenReturnTrueEndIfNextNextEndFunctionFunctionbupengxia1()AsBooleanDimsa,sbAsIntegerForsa=0Toshumu-1-4Forsb=0To3Ifbupengzhuangxia1(f(sb),shuzu(sa))ThenReturnTrueEndIfNextNextEndFunction'使方块不出界PrivateFunctionbuchujie(ByValdiannaoAsfangkuai)AsBooleanDimx1,y1,x2,y2AsIntegerx1=diannao.Location.Xy1=diannao.Location.Yx2=x1+diannao.Size.Widthy2=y1+diannao.HeightIf(x1<0Orx2>Me.Panel1.Width)ThenElseIfy1<0ThenElseIfy2>=Me.Panel1.HeightThenReturnTrueEndIfEndFunctionFunctionbuchu()AsBooleanDimjAsIntegerForj=0To3Ifbuchujie(f(j))ThenReturnTrueEndIfNextReturnFalseEndFunctionPrivateFunctionchujie(ByValdiannaoAsfangkuai)AsBooleanDimx1,y1,x2,y2AsIntegerx1=diannao.Location.Xy1=diannao.Location.Yx2=x1+diannao.Size.Widthy2=y1+diannao.HeightIf(x1<0Orx2>Me.Panel1.WidthOry1<0Ory2>Me.Panel1.Height)ThenReturnTrueEndIfEndFunction'查找相同的一行Subxiangtong()Dimxin(14),shuAsIntegerDimsssAsInteger=0DimjishuAsInteger=0Forshu=460