提交: 30 - doubutu (svn)

どうぶつしょうぎの完全解析をするGUI

Commit MetaInfo

• 修訂: 30 (tree)
• 時間: 2015-07-22 17:24:25
• 作者: bellyoshi

Log Message

Change Summary

• modified: doubutu.UI.Form/Board.vb
• modified: doubutu.UI.Form/frmMain.vb

差異

--- doubutu.UI.Form/Board.vb	(revision 29)
+++ doubutu.UI.Form/Board.vb	(revision 30)
@@ -188,10 +188,10 @@
         ElseIf _logs.Count > _turnCount Then
             If _logs(_turnCount) <> move Then
                 _logs(_turnCount) = move
+                For i As Integer = _logs.Count - 1 To _turnCount + 1 Step -1
+                    _logs.RemoveAt(i)
+                Next
             End If
-            For i As Integer = _logs.Count - 1 To _turnCount + 1 Step -1
-                _logs.RemoveAt(i)
-            Next
         End If
         _turnCount += 1
         Debug.Assert(_turnCount <= _logs.Count)
@@ -198,11 +198,30 @@
     End Sub
 
     ''' <summary>
+    ''' 元に戻せるか
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public Function CanUndo() As Boolean
+        Return 0 < _turnCount
+    End Function
+
+    ''' <summary>
+    ''' 初手に戻す
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public Sub UndoAll()
+        While CanUndo()
+            Undo()
+        End While
+    End Sub
+
+    ''' <summary>
     ''' 一手戻す。
     ''' </summary>
     ''' <remarks></remarks>
     Public Sub Undo()
-        If _turnCount <= 0 Then
+        If Not CanUndo() Then
             Exit Sub
         End If
         _turnCount -= 1

--- doubutu.UI.Form/frmMain.vb	(revision 29)
+++ doubutu.UI.Form/frmMain.vb	(revision 30)
@@ -40,7 +40,7 @@
     End Sub
 
     Private Sub btnUndoFirst_Click(sender As System.Object, e As System.EventArgs) Handles btnUndoFirst.Click
-        BoardViewer1.kyokumen = New Board()
+        BoardViewer1.kyokumen.UndoAll()
         BoardViewer1.DrawCurrentBitmap()
     End Sub
 
@@ -85,6 +85,8 @@
             BoardViewer1.kyokumen.DoMove(move)
             BoardViewer1.DrawCurrentBitmap()
             BackgroundWorker1.RunWorkerAsync()
+            output = String.Empty
+            TextBox1.Text = String.Empty
         End If
     End Sub
 End Class