view/ShogiNextMove/frmMain.vb



Public Class frmMain

    Private _kifuDataDirectoryReader As KifuDataDirectoryReader

    Private _editKifu As Board.Kifu.Kifu

    Dim closePoint As Integer = 0

    Private _isLoaded As Boolean = False

    Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Viewer.IsBoardViewRotated = False
        Viewer.Initialize()
        Initialize()
       
        EnabledControl()
        VisibleControl()
        _isLoaded = True
    End Sub

    Private Sub btnAnswer_Click(sender As System.Object, e As System.EventArgs) Handles btnAnswer.Click
        If _kifuDataDirectoryReader.hasNextKyokumen Then
            viewer.kyokumen = _kifuDataDirectoryReader.NextKyokumen()
            viewer.DrawCurrentBitmap()
        End If
    End Sub

    Private Sub btnNextQuestion_Click(sender As System.Object, e As System.EventArgs) Handles btnNextQuestion.Click
        lblDecision.Text = ""
        If _kifuDataDirectoryReader.hasNextFile() Then
            _kifuDataDirectoryReader.readNextFile()
            Viewer.kyokumen = _kifuDataDirectoryReader.CurrentKyokumen
            Viewer.DrawCurrentBitmap()
        End If
    End Sub

   
    Private Sub Viewer_Editing(sender As System.Object, e As ShogiNextMove.Control.Board.EditingEventArgs) Handles Viewer.Editing

        If InPlay() Then
            e.IsMove = True
            If Not Board.KomaMoveValidater.GetInstance.IsValidate(Viewer.kyokumen, e.MovingValue) Then
                e.Cancel = True
                Exit Sub
            End If
            If e.MovingValue.CanPromote Then
                PromoteMoveValue(e.MovingValue)
            End If
            If Not e.MovingValue.ToLocation.IsMasu Then
                e.Cancel = True
            End If


            If e.MouseRightClicked Then
                e.Cancel = True
            End If


        End If


    End Sub

    Private Sub PromoteMoveValue(movingValue As Board.Te)

        Dim masuRect As Rectangle = Me.Viewer.GetMasuRect(movingValue.ToLocation)

        Dim x As Integer = Location.X + SystemInformation.HorizontalResizeBorderThickness + masuRect.Left - Viewer.komaSize.Width \ 2 - 1
        Dim y As Integer
        If (Not Viewer.IsBoardViewRotated AndAlso movingValue.ToLocation.Row < 5) OrElse (Viewer.IsBoardViewRotated AndAlso movingValue.ToLocation.Row > 5) Then
            y = Location.Y + SystemInformation.VerticalResizeBorderThickness + SystemInformation.CaptionHeight + Me.Location.Y + masuRect.Bottom + 1
        Else
            y = Location.Y + SystemInformation.VerticalResizeBorderThickness + Me.Location.Y + masuRect.Top - (Viewer.komaSize.Height + SystemInformation.FixedFrameBorderSize.Height * 2) + 1
        End If

        Dim frm As New frmPromote(movingValue.Piece.Value, x, y)
        frm.ShowDialog()
        If frm.isPromoted Then
            movingValue.Promote = True
        End If

    End Sub

    Private Sub rbEdit_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbEdit.CheckedChanged
        VisibleControl()
        EnabledControl()
        If rbEdit.Checked Then
            rbFirstKyokumen.Checked = True
        End If
    End Sub

    Private Sub rbPlay_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbPlay.CheckedChanged
        VisibleControl()
        If rbPlay.Checked AndAlso _isLoaded Then
            Initialize()
        End If
    End Sub

    Private Sub Initialize()
        _kifuDataDirectoryReader = New KifuDataDirectoryReader
        If _kifuDataDirectoryReader.hasNextFile Then
            _kifuDataDirectoryReader.readNextFile()
            Viewer.kyokumen = _kifuDataDirectoryReader.CurrentKyokumen
            Viewer.DrawCurrentBitmap()
        Else
            Viewer.kyokumen = New Board.Kyokumen
            Viewer.DrawCurrentBitmap()
        End If
    End Sub
    Private Sub rbFirstKyokumen_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbFirstKyokumen.CheckedChanged
        VisibleControl()
        EnabledControl()
    End Sub

    Private Sub rbNextMove_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbNextMove.CheckedChanged
        If rbNextMove.Checked Then
            If Board.KyokumenUtil.IsOuGyokuInSamePlayer(Viewer.kyokumen) Then
                MessageBox.Show("王将と玉将が同じ向きです。確認して正しく編集してください。", "王将の向き違反", MessageBoxButtons.OK, MessageBoxIcon.Error)
                rbFirstKyokumen.Checked = True
                Exit Sub
            End If
            If Board.KyokumenUtil.IsNifu(Viewer.kyokumen) Then
                MessageBox.Show("ニ歩です。確認して正しく編集してください。", "二歩", MessageBoxButtons.OK, MessageBoxIcon.Error)
                rbFirstKyokumen.Checked = True
                Exit Sub
            End If
            _editKifu = New Board.Kifu.Kifu
            _editKifu.InitializeBoard(Viewer.kyokumen)
        End If
    End Sub

    Private Sub VisibleControl()
        Viewer.KomabakoVisible = Not InPlay()
        gbEditMode.Visible = rbEdit.Checked
    End Sub

    Private Sub EnabledControl()
        If rbFirstKyokumen.Checked AndAlso rbEdit.Checked Then
            FirstKyokumenToolStripMenuItem.Enabled = True
        Else
            FirstKyokumenToolStripMenuItem.Enabled = False
        End If
    End Sub

    Private Function InPlay() As Boolean
        Return rbPlay.Checked OrElse (rbEdit.Checked AndAlso rbNextMove.Checked)
    End Function

    Private Sub Viewer_Edited(sender As System.Object, e As ShogiNextMove.Control.Board.EditedEventArgs) Handles Viewer.Edited
        If rbPlay.Checked Then
            If Not _kifuDataDirectoryReader.hasMove Then
                Exit Sub
            End If

            If e.MovingValue.Equals(_kifuDataDirectoryReader.Moving) Then
                lblDecision.Text = "正解"
                closePoint += 1
                lblPoint.Text = String.Format("得点:{0}/{1}", closePoint, _kifuDataDirectoryReader.Count)
                _kifuDataDirectoryReader.NextKyokumen()
            Else
                lblDecision.Text = "不正解"
            End If
        End If

        If rbEdit.Checked AndAlso rbNextMove.Checked Then
            NextMoveAddAndSave(e.MovingValue)
        End If

    End Sub

    Private Sub NextMoveAddAndSave(NextMoveValue As Board.Te)
        Dim msg As String = String.Format("次の一手は""{0}""でよいですか？",
                                              Board.Kifu.KifKifuUtil.GetInstance.MoveToString(NextMoveValue, Nothing))
        Dim ret As DialogResult = MessageBox.Show(msg, "確認", MessageBoxButtons.OKCancel)
        If ret = Windows.Forms.DialogResult.Cancel Then
            Viewer.kyokumen = _editKifu.KyokumenList(0)
            Viewer.DrawCurrentBitmap()
            Exit Sub
        End If

        _editKifu.AddMove(NextMoveValue, 0)
        KifuSavefileDaialog.InitialDirectory = _kifuDataDirectoryReader.dirName
        KifuSavefileDaialog.Filter = "csa棋譜ファイル(*.csa)|*.csa"
        If KifuSavefileDaialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            _kifuDataDirectoryReader.Write(_editKifu, KifuSavefileDaialog.FileName)
        End If
        rbFirstKyokumen.Checked = True
    End Sub

    Private Sub HirateToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles HirateToolStripMenuItem.Click
        Viewer.kyokumen = New Board.Kyokumen(New Board.Haichi.Hirate)
        Viewer.DrawCurrentBitmap()
    End Sub

    Private Sub TsumeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TsumeToolStripMenuItem.Click
        Viewer.kyokumen = New Board.Kyokumen(New Board.Haichi.Tsume)
        Viewer.DrawCurrentBitmap()
    End Sub

 
End Class