成りのときに不正解になるバグ修正。
ShogiNextMove/Board/Te.vb (diff) ShogiNextMove/frmMain.vb (diff)| @@ -8,7 +8,18 @@ | ||
| 8 | 8 | |
| 9 | 9 | Public Property Piece() As Koma |
| 10 | 10 | |
| 11 | + Private _promote As Boolean = False | |
| 11 | 12 | Public Property Promote() As Boolean |
| 13 | + Get | |
| 14 | + Return _promote | |
| 15 | + End Get | |
| 16 | + Set(value As Boolean) | |
| 17 | + _promote = value | |
| 18 | + If value = True Then | |
| 19 | + Piece.Promate() | |
| 20 | + End If | |
| 21 | + End Set | |
| 22 | + End Property | |
| 12 | 23 | |
| 13 | 24 | Public Property NullMoveType() As NullMoveType |
| 14 | 25 |
| @@ -143,7 +154,7 @@ | ||
| 143 | 154 | Me.FromLocation = fromLocation |
| 144 | 155 | Me.ToLocation = tolocation |
| 145 | 156 | Me.Piece = New Koma(komaValue) |
| 146 | - Me.Promote = isPromote | |
| 157 | + Me._promote = isPromote | |
| 147 | 158 | Me.NullMoveType = NullMoveType.NotNullMove |
| 148 | 159 | End Sub |
| 149 | 160 |
| @@ -74,7 +74,7 @@ | ||
| 74 | 74 | Dim frm As New frmPromote(movingValue.Piece.Value, x, y) |
| 75 | 75 | frm.ShowDialog() |
| 76 | 76 | If frm.isPromoted Then |
| 77 | - movingValue.Piece.Promate() | |
| 77 | + movingValue.Promote = True | |
| 78 | 78 | End If |
| 79 | 79 | |
| 80 | 80 | End Sub |
bellyoshi