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

[rockman132]

作者: mini

幫你改了一下
請自行奶竷郎A跑垂直


Dim XEnd, YEnd As Integer
Dim ShapeSpeedX, ShapeSpeedY As Integer 'X Y 移動值可配合方向指標做 ShapeSpeedX=-ShapeSpeedX 變化
Dim OverX, OverY As Boolean
'Dim Direction(1 To 4) As Boolean '方向指標: **請配合障礙判斷式使用**

Private Sub Form_Load()

Form1.AutoRedraw = True
Timer1.Interval = 100
XEnd = 0
YEnd = 0

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If XEnd = 0 And YEnd = 0 Then
XEnd = X
YEnd = Y
OverX = False
OverY = False

ShapeSpeedX = InputBox("請輸入移動速度", "老鼠移動速度", Shape1.Width / 2)
ShapeSpeedY = ShapeSpeedX
If XEnd < Shape1.Left Then ShapeSpeedX = -ShapeSpeedX
If YEnd < Shape1.Top Then ShapeSpeedY = -ShapeSpeedY

Form1.DrawWidth = 3
Me.PSet (XEnd, YEnd)
Me.Print " <=終點"
Form1.DrawWidth = 1

Timer1.Enabled = True
Exit Sub
End If

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

End Sub

'移動 Shape1
Private Sub Timer1_Timer()
Dim XOld, YOld As Integer '未移動前座標
Dim NewPosX, NewPosY As Integer '預測用

XOld = Shape1.Left + Shape1.Width / 2
YOld = Shape1.Top + Shape1.Height / 2

'**請加上遇到障礙時的判斷式**
If Not OverX Then
NewPosX = Shape1.Left + ShapeSpeedX '新的位址
If ShapeSpeedX > 0 Then If NewPosX >= XEnd Then OverX = True '水平移動終止條件
If Not OverX Then Shape1.Left = NewPosX '移動
If ShapeSpeedX < 0 Then If NewPosX <= XEnd Then OverX = True '水平移動終止條件

'畫出水平移動軌跡
Line (XOld, Shape1.Top + Shape1.Height / 2)-(Shape1.Left + Shape1.Width / 2, Shape1.Top + Shape1.Height / 2)
Exit Sub '**請配合障礙判斷式修改**
End If

'**請加上遇到障礙時的判斷式**
If Not OverY Then
NewPosY = Shape1.Top + ShapeSpeedY '新的位址
If ShapeSpeedY > 0 Then If NewPosY >= YEnd Then OverY = True '垂直移動終止條件
If Not OverY Then Shape1.Top = NewPosY '移動
If ShapeSpeedY < 0 Then If NewPosY <= YEnd Then OverY = True '垂直移動終止條件

'畫出垂直移動軌跡
Line (Shape1.Left + Shape1.Width / 2, YOld)-(Shape1.Left + Shape1.Width / 2, Shape1.Top + Shape1.Height / 2)
Exit Sub '**請配合障礙判斷式修改**
End If

'到達後停止
Timer1.Enabled = False

End Sub

感謝大大指點~~~但我剛執行了一下出現這樣的訊息方塊
執行階段錯誤'424':此處需要物件~~~我看不懂這句話要表達啥意思!!!
請大大解說一下喔!!!.....笑我沒關係....VB太複雜的比較需要思考