vbcch.bas

VB版的中国象棋人机对战源程序

Attribute VB_Name = "Module1"
Option Explicit

Public Const MAXDOWNPOINT = 20             ''每个棋最多的落子点数
    
Type CHESSER
        
    Chess As Byte       ''为何棋,在BestLocate则标明为何数组
    Initx As Byte       ''起初棋的位置
    Inity As Byte
    ObjX As Byte        ''经运算后的落棋点
    ObjY As Byte
    Value As Long    ''落子点的得分

End Type

Public ChessBoardType As Byte

Public Const NullIsNone = 1
Public Const NullIsCircle = 2

Type Chess

    Value As Long    ''棋子

End Type