VB6-リバース駒を打つ

リバース Game の制作　VB6
(3) 駒を打つ

1. 駒を打つ処理

　まず、白から置き始め、以降は交互に置く。置く場所はマウスでクリックして指定する。フィールド(picField)をクリックするとpicField_Clickプロシージャが呼び出されるので、プログラムはこのプロシージャに書く。

・プログラム概要

Private Sub picField_Click(Index As Integer)
'プレイヤーが置き場所をクリック
    If ①はさめる Then
        ②はさめた駒を返す
        順番交代
        ③コマ数カウント表示
    Else
        置けないと表示
    End If
    ④ゲームオーバーの確認
End Sub

　上の概要に示したように、①はさめるかどうかを判定する処理、②はさめた駒を返す処理、③駒を数える処理、④ゲームオー場の確認をする処理が必要になる。それぞれ、プロシージャとして作成することにする。

処　理	種類	プロシージャ名	引数	返却値
①はさめる	関数	isHasamu	置き場所	True : はさめる、False : はさめない
②駒を返す	サブ	KomaKaesu	置き場所	－
③カウント	サブ	CountKoma	なし	－
④ゲームオーバー	サブ	Gameover	なし	－

　では、①～④と順番交代の処理を作成しながらpicField_Clickプロシージャも完成させていこう。

(3) 駒を打つ
Copyright © 2002 Hiroshi Masuda