gWeekend's Blog

Sheet1

'碁盤プログラム(excel-igo)本体

'動作の流れを書き、そこにプログラムを追加していきます。

'碁盤を書く

' Cellsをクリック

'禁止手を確認

'碁石を打つ

'この4つの動作で基本の碁盤は出来上がりです。

'碁盤を書く

'ルールは、中国式(計算が簡単らしい?)

Private Sub DrowBoard()

End Sub

' Cellsをクリック

Private Sub Worksheet_SelectiononChange(ByVal Target As Range)

End Sub 

 '禁止手を確認

Private Function JUDGMENT(ByVal RX As Integer,ByVal RY As Integer) As Boolean

  JUGMENT = False

  '空きか?

  ’劫か?

  ’自殺手か?

   JUGMENT = True

End Sub

碁石を打つ

Private Sub DRAW_STONE(ByVal RX As Integer,ByVal RY As Integer)

End Sub