請問哪裡有老鼠走迷宮的程式相關資料?

mini · 2005-11-03, 01:28 PM

到這裡下程式碼
http://d.turboupload.com/d/132474/Mouse.rar.html
解開後執行看看

To 執行階段錯誤'424':此處需要物件
整個程式只有兩個物件
Timer 與 Shape
可能是少哪一個
或直接下上面的程式碼
打開 test1.vbp 專案檔執行

要修改成障礙物迷宮
就要做些許修改及添加程式判斷式
重點在
Dim Direction(1 To 4) As Boolean '方向指標: 1~4依序為右、上、左、下
的設計
比如
Direction(1)=True 表示右邊無障礙物
此時如欲往右邊走
if ShapeSpeedX <0 then ShapeSpeedX= -ShapeSpeedX '或ShapeSpeedX= Abs(ShapeSpeedX)

2005-11-03, 01:28 PM	#1 (permalink)
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13491 精華: 0 現金: 26854 金幣資產: 3024784 金幣	到這裡下程式碼 http://d.turboupload.com/d/132474/Mouse.rar.html 解開後執行看看 To 執行階段錯誤'424':此處需要物件整個程式只有兩個物件 Timer 與 Shape 可能是少哪一個或直接下上面的程式碼打開 test1.vbp 專案檔執行要修改成障礙物迷宮就要做些許修改及添加程式判斷式重點在 Dim Direction(1 To 4) As Boolean '方向指標: 1~4依序為右、上、左、下的設計比如 Direction(1)=True 表示右邊無障礙物此時如欲往右邊走 if ShapeSpeedX <0 then ShapeSpeedX= -ShapeSpeedX '或ShapeSpeedX= Abs(ShapeSpeedX)

	送花文章: 2054, 收花文章: 8069 篇, 收花: 26923 次

Google 提供的廣告