vb課程設(shè)計(jì)報(bào)告---用vb語(yǔ)句實(shí)現(xiàn)貪吃蛇游戲(編輯修改稿)
2025-02-13 11:42 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 End If Next End If If f = True Then For k = 1 To 20 39。判斷是否出現(xiàn)在障礙物上 For l = 1 To 20 If Maze(j + 1, i + 1, curMaze) = 1 Then f = False Exit For End If Next Next End IfIf f = True Then Exit Do End If Loop AppleX(m) = i AppleY(m) = j lblNumber(m).Left = AppleX(m) * GRID lblNumber(m).Top = AppleY(m) * GRIDEnd Sub39。畫(huà)蛇：Private Sub DrawSnake() Dim i As Integer intNum = 5 39。初始段數(shù) ReDim intDirect(5) intDirect(1) = MazeInfo(3, curMaze) shp(1).Left = GRID * (MazeInfo(2, curMaze) 1) 39。蛇頭位置 shp(1).Top = GRID * (MazeInfo(1, curMaze) 1) For i = 2 To intNum 39。加載新節(jié)點(diǎn)并確定其相對(duì)于頭部的位置 Load shp(i) shp(i).FillColor = vbYellow shp(i).Left = shp(i 1).Left shp(i).Top = shp(i 1).Top Select Case MazeInfo(3, curMaze) Case enmRight shp(i).Left = shp(i 1).Left GRID Case enmLeft shp(i).Left = shp(i 1).Left + GRID Case enmDown shp(i).Top = shp(i 1).Top GRID Case enmUp shp(i).Top = shp(i 1).Top GRID End Select shp(i).Visible = True intDirect(i) = MazeInfo(3, curMaze) 39。默認(rèn)運(yùn)動(dòng)方向 NextCall DrawEyeEnd SubPrivate Sub DrawMaze()Dim i As Integer, j As Integer For i = 1 To 20 For j = 1 To 20 If Maze(i, j, curMaze) = 1 Then ((j 1) * GRID + 2, (i 1) * GRID + 2)(j * GRID 2, i * GRID 2), lngMazeColor, BF End If Next NextEnd Sub第四章 總結(jié)及個(gè)人心得體會(huì)存在的不足： 在玩此游戲時(shí)，一不小心就可能將蛇“撞死”，本程序不能夠添加“多條命”，即不能夠允許蛇撞死3次或5次。心得體會(huì)：課程設(shè)計(jì)是培養(yǎng)學(xué)生綜合運(yùn)用所學(xué)知識(shí)，發(fā)現(xiàn)，提出，分析，和解決實(shí)際問(wèn)題，鍛煉時(shí)間能力的重要環(huán)節(jié)，是對(duì)學(xué)生實(shí)際工作能力的具體訓(xùn)練和考察過(guò)程。 通過(guò)這幾周的vb課程設(shè)計(jì)，我學(xué)到了很多很多的東西，同時(shí)不僅可以鞏固了以前學(xué)過(guò)的知識(shí)，而且學(xué)到了很多書(shū)本上所沒(méi)有學(xué)到的知識(shí)。通過(guò)這次課程設(shè)計(jì)是我懂得了理論與實(shí)踐相結(jié)合是很重要的，只有理論知識(shí)
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1