VB课程设07072007走出迷宫

1、走出迷宫设计报告学院材料学院班级材料074学号072007姓名李璐成绩、设计思路1 要达到的目的 能够打开已有的迷宫文件并进行游戏。 游戏者使用光标键移动目标 可对游戏者进行时间计时 移动目标只能在通道中移动 可以自定义使用移动键2矢键问题的解决(1)程序分为设计和游戏两种状态。可以自己设置迷宫路线图，设计时同时指定入口和出口(入口用S表示，出口用F表示，通道用#表示，墙用空 格表示，全用半角字符)。被移动目标可以使用提供的图片，或者自行安排其他控件。(4)支持显示的背景设置，可以设置成任意色彩或者图案。可以设置迷宫的大小。程序流程图三、部分程序矢键源代码及注释I初始化设置.up = 0dow

2、 n = 0Ieft5 = 0right = 0ScaleMode = vbPixelsAutoRedraw = TruePicpIayer.Visible = FalseSQUARE_WID = 20SQUARE_HGT = 20 bcolor = &HFF0000n自定义使用光标键m = PlayerM n = PlayerNIf up 0 And down v 0 And Ieft5 0 And right 0 ThenSelect Case KeyCodeCase Ieft5n = PlayerN 1Case rightn = PlayerN + 1Case downm = Playe

3、rM + 1Case upm = PlayerM - 1Case ElseExit SubEnd SelectElseSelect Case KeyCodeCase vbKeyLeftn = PlayerN 1Case vbKeyRightn = PlayerN + 1Case vbKeyDownm = PlayerM + 1Case vbKeyllpm = PlayerM - 1Case ElseExit SubEnd SelectEnd IfIf LegalMove(m, n) Then PositionPlayer m, n 川擦除小人的上一个位置.If PlayerM 0 Thena

4、= (PlayerN 1) * SQUARE_WID + (SQUARE_WID PicpIayer.Width) / 2 b = (PlayerM 1) * SQUARE_HGT + (SQUARE_HGT PicpIayer.Height) / 2 Line (a- 1, b- 1 )-Step(Picplayer.Width, PicpIayer.Height), vbWhite, BF End Ifw画出现在位置的小人.a = (n 1) * SQUARE_WID + (SQUARE_WID PicpIayer.Width) / 2 b = (m 1) * SQUARE_HGT + (

5、SQUARE_HGT - PicpIayer.Height) / 2 PaintPicture Pieplayer .Picture, a, bv检查是否到达终点.If m = MFinish And n = NFinish ThenIf MsgBox(H 您用时 H & _ Int仃imer StartTime) & “ 秒.”& _vbCrLf & 11 再玩一次vbYesNo, _Congratulations”)= vbYes _The nForm_LoadElseUnload MeEnd IfEnd If四从文件中读取数据建立一个二维数组fnum = FreeFile 得到空文件号O

6、pen SelectFile For Input As #fnum 打开文件并指定缓冲区的文件号Input #fnum, NumRows, NumCols 读入数组的行(Num Rows )和列(NumCols )值ReDim LelMove(1 To NumRows, 1 To NumCols)定义动态数组的大小ch = Mid(row, c, 1) row为读入的每行内容LelMove(r, c) = (ch #)，判断 ch ”#成立则为 True,否则为 False ScaleMode = vbPixels。窗口的属性四、设计方案的完善及目前存在的问题1 设计方案要完善的地方1 增加迷

7、宫路线的复杂程度。2自行设置移动键并可以随时调用。2.目前存在的问题1 尚未达到：在设计模式能够通过鼠标直接绘制的方式设计迷宫，并能将所设计的布局保存到文本 文件中，即设计时用鼠标左键开辟通道，CTRL+鼠标左键设置迷宫入口，CTRL+鼠标右键设置迷宫出口。2未完成对三维路线图的设置五、本次设计的收获及心得体会选择这样一个题目，很多地方无从下手，很多知识课本上涉及的不是很多，经过多方查找资料，程序员指南和控 件参考手册都成了必备的参考工具，把各部分需要用的程序相尖代码罗列出来，然后进行整和，这道题对我来将挑 战性是非常大的，但通过这次实习，我发现VB作为一种语言工具，能够设计出各种各样的程序，完成不同的功能，是 很有用的，以后决心努力学习VB，学好VB。六、对该题目和VB设计的意见和建议1 对该题目的意见和建议可以运用控件知识，自行设置移动键；可以尝试设置三维路线图。2对本次设计的意见和建议很想自己设计一套程序，这次设计给了我这次机会，为此，我在此次设计中积极准备、努力创新，虽然到最后创新部分没有做完，但是当我看到自己亲手设计的程序运行的时候，心里有一种收获感和成就感，因此我认 为这次设计很好，既加强了课程的复习和学习，同时也增强了自己的动手能力，因此