svnno****@sourc*****
svnno****@sourc*****
2014年 9月 13日 (土) 12:02:19 JST
Revision: 54
http://sourceforge.jp/projects/shoginextmove/scm/svn/commits/54
Author: bellyoshi
Date: 2014-09-13 12:02:19 +0900 (Sat, 13 Sep 2014)
Log Message:
-----------
成りのときに不正解になるバグ修正。
Modified Paths:
--------------
ShogiNextMove/Board/Te.vb
ShogiNextMove/frmMain.vb
Modified: ShogiNextMove/Board/Te.vb
===================================================================
--- ShogiNextMove/Board/Te.vb 2014-09-12 02:13:59 UTC (rev 53)
+++ ShogiNextMove/Board/Te.vb 2014-09-13 03:02:19 UTC (rev 54)
@@ -8,7 +8,18 @@
Public Property Piece() As Koma
+ Private _promote As Boolean = False
Public Property Promote() As Boolean
+ Get
+ Return _promote
+ End Get
+ Set(value As Boolean)
+ _promote = value
+ If value = True Then
+ Piece.Promate()
+ End If
+ End Set
+ End Property
Public Property NullMoveType() As NullMoveType
@@ -143,7 +154,7 @@
Me.FromLocation = fromLocation
Me.ToLocation = tolocation
Me.Piece = New Koma(komaValue)
- Me.Promote = isPromote
+ Me._promote = isPromote
Me.NullMoveType = NullMoveType.NotNullMove
End Sub
Modified: ShogiNextMove/frmMain.vb
===================================================================
--- ShogiNextMove/frmMain.vb 2014-09-12 02:13:59 UTC (rev 53)
+++ ShogiNextMove/frmMain.vb 2014-09-13 03:02:19 UTC (rev 54)
@@ -74,7 +74,7 @@
Dim frm As New frmPromote(movingValue.Piece.Value, x, y)
frm.ShowDialog()
If frm.isPromoted Then
- movingValue.Piece.Promate()
+ movingValue.Promote = True
End If
End Sub