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

[mini]

幫你改了一下
請自行加一個 Shape物件
程式是先跑水平再跑垂直

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

[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太複雜的比較需要思考