小老鼠走迷宫.ppt

班級 奈米一乙學號 49914019姓名 陳聖倫老師 謝慶存 小老鼠走迷宮 程式介面 選擇迷宮開始老鼠出口 程式碼 PublicClassForm1DimPicBox 50 50 AsPictureBoxDimSqWidth FWidth FHeight MazeX MazeY k Totalm Totaln x y dx dy AI Steps 50 50 AsIntegerDimMap 50 50 AsIntegerDimStepTotalAsIntegerDimRandMapValAsSingleDimnewgamesAsBooleanDimtitleAsStringDimcross 50 50 AsIntegerDimInMazeAsIO StreamReaderDimImPortF InStringAsStringDimMapRow StartPx StartPy EndPx EndPy TotalStepAsInteger PrivateSubForm1 Load ByValsenderAsSystem Object ByValeAsSystem EventArgs HandlesMyBase Loadtitle 老鼠走迷宮 Me Text titleMe ShowPath Enabled FalseMe Stopmouse Enabled FalseMe Stopmouse Enabled FalseEditMaze CheckOnClick TrueToolStatus Text 閒置中 newgames TrueMazeX 50MazeY 50SqWidth 15FWidth SqWidth MazeX 3 FHeight SqWidth MazeY 4 40Me Width FWidthMe Height FHeightForiAsInteger 1To50ForjAsInteger 1To50Callinitial i j NextNextInMaze IO File OpenText MazeMap txt CallMapGen Me Text titleEndSub Subinitial ByValiAsInteger ByValjAsInteger DimmypicAsNewPictureBoxMe Controls Add mypic PicBox i j mypicEndSubPrivateSubAddEvents ByValCtrlParentAsControl DimpicAsControlForEachpicInCtrlParent ControlsIfTypeOfpicIsPictureBoxThenAddHandlerpic MouseClick AddressOfMapEditEndIfNextEndSub PrivateSubMapEdit ByValsenderAsObject ByValeAsSystem Windows Forms MouseEventArgs IfNewMap Enabled TrueThenExitSubEndIfToolStatus Text 迷宮編輯中 WithDirectCast sender PictureBox Ife Button Windows Forms MouseButtons LeftThenIf Tag 1Then BackColor Color White Tag 0Else BackColor Color Black Tag 1EndIfEndIfIfe Button Windows Forms MouseButtons RightThenIf Tag 0Or Tag 1Or Tag 3Then BackColor Color Chocolate Tag 2ElseIf Tag 2Then BackColor Color LawnGreen Tag 3EndIfEndIfEndWithEndSub Subnewgameset ByValiAsInteger ByValjAsInteger DimPx PyAsIntegerMe ShowPath Enabled TrueIfi MazeXOrj MazeYThenPx MazeX SqWidthPy MazeY SqWidth 15Map i j 1ElsePx i SqWidthPy j SqWidth 15EndIfWithPicBox i j SetBounds Px Py SqWidth SqWidth BackColor Color White Tag 0Ifi 1Orj 1Ori MazeXOrj MazeYThen BackColor Color Black Tag 1EndIfIfi StartPxAndj StartPyThen BackColor Color Chocolate Tag 2EndIfIfi EndPxAndj EndPyThen BackColor Color LawnGreen Tag 3EndIfEndWithEndSub Subretag Ifnewgames FalseThenPicBox x y BackColor Color WhiteElsePicBox StartPx StartPy BackColor Color ChocolatePicBox EndPx EndPy BackColor Color LawnGreenEndIfnewgames FalseDimi jAsIntegerFori 0ToMazeXForj 0ToMazeYSteps i j 100000Ifi 0Andj 0ThenWithPicBox i j If Tag 0Then BackColor Color WhiteSteps i j 1cross i j 0ElseIf Tag 3ThenSteps i j 0 BackColor Color LawnGreenElseIf Tag 2ThenSteps i j 100000 BackColor Color ChocolateElse BackColor Color BlackSteps i j 100000EndIfEndWithEndIfNextjNextiEndSub PrivateSubShowPath Click ByValsenderAsSystem Object ByValeAsSystem EventArgs HandlesShowPath Clickx StartPxy StartPyTotalStep 0AI 1Callretag PicBox EndPx EndPy BackColor Color LawnGreenMe Stopmouse Enabled TrueShowPath Enabled FalseSteps x y 10000Timer1 Interval 100Timer1 Enabled TrueEndSub PrivateSubTimer1 Tick ByValsenderAsSystem Object ByValeAsSystem EventArgs HandlesTimer1 TickDimMinStepAsInteger 10000Me Text title 步數 CStr TotalStep ToolStatus Text CStr x CStr y Randomize k 0IfSteps x 1 y 2Thencross x y cross x y 1EndIfIfcross x y 1ThenSteps x y Steps x y 1cross x y 0EndIf IfSteps x 1 y MinStepThenMinStep Steps x 1 y k k 1EndIfIfSteps x y 1 MinStepThenMinStep Steps x y 1 k k 1EndIfIfSteps x 1 y MinStepThenMinStep Steps x 1 y k k 1EndIfIfSteps x y 1 MinStepThenMinStep Steps x y 1 k k 1EndIfIf PicBox x 1 y Tag 0OrPicBox x 1 y Tag 3 AndSteps x 1 y MinStepAndSteps x 1 y 8Thendx 1dy 0ElseIf PicBox x y 1 Tag 0OrPicBox x y 1 Tag 3 AndSteps x y 1 MinStepAndSteps x y 1 8Thendx 0dy 1ElseIf PicBox x 1 y Tag 0OrPicBox x 1 y Tag 3 AndSteps x 1 y MinStepAndSteps x 1 y 8Thendx 1dy 0ElseIf PicBox x y 1 Tag 0OrPicBox x y 1 Tag 3 AndSteps x y 1 MinStepAndSteps x y 1 8Thendx 0dy 1Else Callfittness EndIfx x dxy y dyIfx EndPxAndy EndPyThenTotalStep TotalStep 1Me Text title 總算找到了 步數 CStr TotalStep PicBox x y BackColor Color ChocolatePicBox x dx y dy BackColor Color WhiteShowPath Enabled TrueTimer1 Enabled FalseStopmouse Enabled FalseExitSubEndIfIfPicBox x y Tag 0ThenPicBox x y BackColor Color ChocolatePicBox x dx y dy BackColor Color WhiteTotalStep TotalStep 1Elsex x dxy y dyEndIfSteps x y Steps x y 1IfSteps x y 20ThenCallretag EndSub Subfittness DimRn Sums Fitness 4 AsSingleRandomize Rn Rnd Sums Steps x 1 y Steps x y 1 Steps x 1 y Steps x y 1 Fitness 1 Sums Steps x 1 y Sums 3 Fitness 2 Sums Steps x y 1 Sums 3 Fitness 3 Sums Steps x 1 y Sums 3 Fitness 4 Sums Steps x y 1 Sums 3 ForiAsInteger 2To4Fitness i Fitness i 1 Fitness i NextIfRn Fitness 1 Thendx 1dy 0ElseIfRn Fitness 2 Thendx 0dy 1ElseIfRn Fitness 3 Thendx 1dy 0Elsedx 0dy 1EndIfEndSub PrivateSubGameOver Click ByValsenderAsSystem Object ByValeAsSystem EventArgs HandlesGameOver ClickEndEndSubPrivateSubStopmouse Click ByValsenderAsSystem Object ByValeAsSystem EventArgs HandlesStopmouse ClickPicBox x y BackColor Color WhitePicBox StartPx StartPy BackColor Color ChocolateTimer1 Enabled FalseShowPath Enabled TrueStopmouse Enabled FalseCallretag EndSubPrivateSubX25 Click ByValsenderAsSystem Object ByValeAsSystem EventArgs HandlesX25 ClickMazeX 25MazeY 25StartPx 1StartPy 2EndPx MazeXEndPy MazeY 1Me Text titleSqWidth 15FWidth SqWidth MazeX 3 FHeight SqWidth MazeY 4 40Me Width FWidthMe Height FHeightForiAsInteger 1To50ForjAsInteger 1To50Callnewgameset i j NextNextMe Refresh EndSub PrivateSubX50 Click ByValsenderAsSystem Object ByValeAsSystem EventArgs HandlesX50 ClickMe Text titleMazeX 50MazeY 50StartPx 1StartPy 2EndPx MazeXEndPy MazeY 1SqWidth 10FWidth SqWidth MazeX 3 FHeight SqWidth MazeY 4 40Me Width FWidthMe Height FHeightForiAsInteger 1ToMazeXForjAsInteger 1ToMazeYCallnewgameset i j NextNextMe Refresh EndSub PrivateSubmenual Click ByValsenderAsSystem Object ByValeAsSystem EventArgs Handlesmenual ClickMe Text titleaskx MazeX Val InputBox 迷宮橫向格數 請輸入 25 IfMazeX 50ThenMsgBox 不得大於 GoToaskxEndIfIfMazeX50ThenMsgBox 不得大於 GoToaskyEndIfIfMazeY 5ThenMsgBox 不得小於 GoToaskyEndIfIfMazeY 25ThenSqWidth 15ElseSqWidth 10EndIfStartPx 1StartPy 2EndPx MazeXEndPy MazeY 1FWidth SqWidth MazeX 3 FHeight SqWidth MazeY 4 40Me Width FWidthMe Height FHeightForiAsInteger 1To50ForjAsInteger 1To50Callnewgameset i j NextNextMe Refresh EndSub PrivateSubImportMaze Click ByValsenderAsSystem Object ByValeAsSystem EventArgs HandlesImportMaze ClickMe Text titleOnErrorResumeNextOpenFileDialog1 FileName OpenFileDialog1 Filter 迷宮輸入檔 txt txt OpenFileDialog1 ShowDialog ImPortF OpenFileDialog1 FileNameIfImPortF ThenExitSubInMaze IO File OpenText ImPortF CallMapGen InMaze Close EndSub SubMapGen DimLndataAsArrayMapRow 0DoIfInMaze EndOfStreamThenExitDoMapRow MapRow 1InString InMaze ReadLineIfInString Contains ThenLndata Split InString ElseIfInString Contains ThenLndata Split Trim InString ElseLndata InString ToCharArrayEndIfForiAsInteger 0ToUBound Lndata Map i 1 MapRow Val Lndata i NextMazeX UBound Lndata 1LoopMazeY MapRowIfMazeX 50OrMazeY 50ThenMsgBox 超過地圖大小 50 x50 的限制 ExitSubEndIfIfMazeY 25ThenSqWidth 15ElseSqWidth 10EndIfFWidth SqWidth MazeX 3 FHeight SqWidth MazeY 4 40Me Width FWidthMe Height FHeightForiAsInteger 1To50ForjAsInteger 1To50Callnewgameset i j IfMap i j 1ThenWithPicBox i j BackColor Color Black Tag 1EndWithElseIfMap i j 2ThenStartPx iStartPy jWithPicBox i j BackColor Color Chocolate Tag 2EndWithElseIfMap i j 3ThenEndPx iEndPy jWithPicBox i j BackColor Color LawnGreen Tag 3EndWithElseWithPicBox i j BackColor Color White Tag 0EndWithEndIfNextNextCallChkMap Me Refresh EndSub PrivateSubExportMaze Click ByValsenderAsSystem Object ByValeAsSystem EventArgs HandlesExportMaze ClickMe Text titleOnErrorResumeNextDimExMazeAsIO StreamWriterDimExPortF StringLnAsStringSaveFileDialog1 FileName SaveFileDialog1 Filter 迷宮輸出檔 txt txt SaveFileDialog1 ShowDialog ExPortF SaveFileDialog1 FileNameIfExPortF ThenExitSubExMaze NewIO StreamWriter ExPortF ForjAsInteger 1ToMazeYStringLn ForiAsInteger 1ToMazeXStringLn StringLn CStr PicBox i j Tag NextExMaze WriteLine StringLn TrimEnd NextExMaze Close EndSub PrivateSubEditMaze Click ByValsenderAsSystem Object ByValeAsSystem EventArgs HandlesEditMaze ClickMe Text titleNewMap Enabled NotNewMap EnabledImportMaze Enabled NotImportMaze EnabledExportMaze Enabled NotExportMaze EnabledShowPath Enabled NotShowPath EnabledCallAddEvents Me newgames TrueCallretag IfNewMap Enabled TrueThenCallChkMap ToolStatus Text 閒置中 ElseToolStatus Text 迷宮編輯中 EndIfEndSub SubChkMap Dimmazein mazeoutAsIntegerForiAsInteger 1ToMazeXForjAsInteger 1ToMazeYIfPicBox i j Tag 2ThenStartPx iStartPy jmazein mazein 1EndIfIfPicBox i j Tag 3ThenEndPx iEndPy jmazeout mazeout 1EndIfNextNextPicBox StartPx StartPy BackColor Color ChocolatePicBox EndPx EndPy BackColor Color LawnGreenIfmazein 1Ormazeout 1ThenMsgBox 有兩個以上的入口或出口 請重新編輯地圖 NewMap Enabled NotNewMap EnabledImportMaze Enabled NotImportMaze EnabledExportMaze Enabled NotExportMaze