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

mini · 2005-11-04, 10:08 PM

OverX = False
OverY = False
這兩個表示是否超過目的(X,Y)座標
如要改寫成障礙物迷宮
且目的地(出口) 不是在邊緣那就不是這麼用了

If XEnd < Shape1.Left Then ShapeSpeedX = -ShapeSpeedX
當XEnd目的地X座標在物件(Shape1)左邊(If XEnd < Shape1.Left) 時
Shape1是向左移動 (物件.Left 是遞減)
所以 ShapeSpeedX 必須為負 (ShapeSpeedX = -ShapeSpeedX)
當然
如要改寫成障礙物迷宮那必須改寫 (與遇到障礙時的判斷式結合)

語法:

If Button = 2 Then
  Timer1.Enabled = False
  Me.Cls
  XEnd = 0
  YEnd = 0
End If

這不就是您寫的

語法:

If Button = 2 Then
  Cls
  Xinit = 0
  Yinit = 0
End If

當按下右鍵時清除畫面與停止Timer1運作

等有空把比較完整的判斷式完成
鼠一直往前
遇障礙檢查左右
左右也不通
回走

2005-11-04, 10:08 PM	#12 (permalink)
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13527 精華: 0 現金: 26944 金幣資產: 3024874 金幣	OverX = False OverY = False 這兩個表示是否超過目的(X,Y)座標如要改寫成障礙物迷宮且目的地(出口) 不是在邊緣那就不是這麼用了 If XEnd < Shape1.Left Then ShapeSpeedX = -ShapeSpeedX 當XEnd目的地X座標在物件(Shape1)左邊(If XEnd < Shape1.Left) 時 Shape1是向左移動 (物件.Left 是遞減) 所以 ShapeSpeedX 必須為負 (ShapeSpeedX = -ShapeSpeedX) 當然如要改寫成障礙物迷宮那必須改寫 (與遇到障礙時的判斷式結合) 語法: If Button = 2 Then Timer1.Enabled = False Me.Cls XEnd = 0 YEnd = 0 End If 這不就是您寫的語法: If Button = 2 Then Cls Xinit = 0 Yinit = 0 End If 當按下右鍵時清除畫面與停止Timer1運作等有空把比較完整的判斷式完成鼠一直往前遇障礙檢查左右左右也不通回走

	送花文章: 2060, 收花文章: 8085 篇, 收花: 26941 次

Google 提供的廣告