程式 - 高智慧 老鼠走迷宮Ver1.0

[mini]

Dim strMapFile As String
A：這是把地圖的檔案名稱用字串定義嗎???
Q：對呀，因為按重置後不能再用 Dir(App.Path + "\" + "MAP*.txt") 這個方式得到 地圖的檔案名稱，所以要把目前的 地圖檔名 用這個字串變數記錄起來

Private Sub ExitCommand_Click()
End
End Sub
Q：這個物件事直接執行還是說由按鈕來控制
A：按鈕，這是 [離開] 按鈕的 Click(點擊) 事件，
End 是保留字 (以下是 MSDN中文版的解釋)

End 陳述式可以強制程式碼終止，無須經過 Unload、QueryUnload，或 Terminate 事件，或任何其它的 Visual Basic 程式碼。Unload、QueryUnload，表單與物件類別模組的 Terminate 事件都不會執行。由物件類別模組所建立的物件會被破壞、以 Open 陳述式開啟的檔案會被關閉，程式所佔用的記憶體空間也會被釋放。

End 陳述式是一種強制程式停止執行的方式。一般要結束 Visual Basic 程式前，都必須先載出所有表單，確定沒有其它程式引用到其中的物件，且沒有執行中的程式碼，才能結束。


Call MeCaptionIs
A：mecaption是代表什麼意思呢???
Q：搜尋 MeCaptionIs 副程式可看到
'顯示版本

Private Sub MeCaptionIs()
    'App.Major + App.Minor + App.Revision '主、次、修訂
    Me.Caption = "老鼠走迷宮 Ver" + CStr(App.Major) + "." + CStr(App.Minor)
    If App.Revision <> 0 Then Me.Caption = Me.Caption + "." + CStr(App.Revision)
End Sub

也就是在程式標題列顯示 "老鼠走迷宮 Ver" + 主.次.修訂


Maze_Initial 是地圖處理副程式
Initial 是數據處理副程式
'初始 的意思
Private Sub Initial()
...


Dir(App.Path + "\" + "MAP*.txt") 是
在應用程式下 用 "MAP*.txt" 為搜尋條件 (就像是DOS打 dir map*.txt)，會傳回第一個符合條件的字串，都沒有的話會回傳 "" 空字串
MapPicture 是 PictureBox 物件，表示將地圖數據畫在這上面


經驗談:
欲解析他人的程式 請善用 搜尋
如副程式內容過於零亂 那建議不要深究 (除非想了解那段副程式使用到的技巧)
欲學好 MS 出版的 VC++、VB、... 可以用 emule 下一套 MSDN中文版 來用用
比如對 End 點兩下按 F1 鍵，就會出現該解釋及用法
如查無此字，就表示他是一個 windows api 或 自制副程式

新版 v1.0.3
http://d.turboupload.com/d/178219/Mouse.rar.html

Ver 1.0.4
.針對 迷宮初始 之運算 做效能提升
http://d.turboupload.com/d/178354/MazeModule.bas.html
(請取代原 MazeModule.bas ※需重新編譯)

這個創作其實有個弱點
就是 當能走的方向都已走過(旗標皆為1)時 用 "亂數決定方向" 之方法
會使 老鼠產生猶豫不定的現象
這點有待解決...
不過老鼠是一定能走到終點(不會陷入永久迴圈)，因此相較其他 老鼠走迷宮 之構思
還算是比較好的方法