pubdefines.bas

机器人程序

Attribute VB_Name = "PubDefine"
'PubDefine.bas
'公共定义，全局变量

'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

'Stone State
Public Const NONE           As Integer = 0
Public Const BLACK          As Integer = 1
Public Const WHITE          As Integer = 2

'Red Green Blue in VideoBOX
Public Const R              As Integer = 0
Public Const G              As Integer = 1
Public Const b              As Integer = 2

'width and high
Public Const W              As Integer = 4
Public Const H              As Integer = 4


'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

'图像句柄
Public Board_Image          As Long
'If the Camera has close
Public CamClosed            As Boolean
'Camera has init
Public Cam_Has_Init         As Boolean

'Camera Width
Public CamWidth             As Integer

'Camear 分辨率的常量，用于在320*240 & 640*480 间转换
Public kCam                 As Integer
'与 kCam 匹配的常量,
'  当 320*240 -> 2
'  当 640*480 -> 1
Public Const k640           As Integer = 1
Public Const k320           As Integer = 2

'* * * * * * * * * * * * * *

'有关辅助识别点,用于 "ImageProcessor.bas"
'std+point+color
Public stdPBlack            As ps
Public stdPNone             As ps
Public stdPWhite            As ps

'* * * * * * * * * * * * * *
'Struct about color infomation (RGB)
Type Col
  a As Integer
  R As Integer
  G As Integer
  b As Integer
End Type

'Position of each point
Public Type ps
  X As Integer
  Y As Integer
End Type

'19 is max,5 is min,usually is 13
Public Pos(1 To 19, 1 To 19) As ps

'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

'state of stone
'19 is max,5 is min,usually is 13
Public State(1 To 19, 1 To 19)  As Integer
'用于显示手数
Public StepNumBoard             As BOARD_ARRAY
'* * * * * * * * * * * * * *

'Used in GRVBMainFrm.frm
'white RGB
Public Const White_MAX_R    As Integer = 130
Public Const White_MAX_G    As Integer = 175
Public Const White_MAX_B    As Integer = 140
'black RGB
Public Const Black_MIN_R    As Integer = 50
Public Const Black_MIN_G    As Integer = 100
Public Const Black_MIN_B    As Integer = 75

'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

'Used in Board.bas
Public Const BSize          As Integer = 13               'board size it should be 5,13 or 19

Public Const BTop           As Integer = 0                'board top
Public Const BLeft          As Integer = 0                'board left
Public Const BWidth         As Integer = 1000             'board width
Public Const BHeight        As Integer = 1000             'board height

'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

'姓名
Public optManName           As String
Public optRobotName         As String

'让子
Public optHandicap          As Integer

'随机种子
Public optRndNumber         As Integer

'贴目
Public optKomi              As Single

'是否显示手数
Public optMoveNumShow       As Boolean


'player option
Public optBlackPlayer       As Integer
Public optWhitePlayer       As Integer
'player const
Public Const PLAYER_MAN     As Integer = 0
Public Const PLAYER_ROBOT   As Integer = 1


'now who is playing
Public nowPlayer            As Integer
'now who is playing const
Public Const MAN_PLAY       As Integer = 0
Public Const ROBOT_PLAY     As Integer = 1


'在电脑上下还是和机器人下
Public optPlayWith          As Integer
'const
Public Const PLAY_ROBOT     As Integer = 0
Public Const PLAY_COMPUTER  As Integer = 1


'if function Initialize_All has been run,the value = True
Public Have_Init_All        As Boolean
'if function InitPhantom has been run
Public Have_Init_IRTower    As Boolean


'现在的颜色
Public nowColour As Long

'是否显示Robby
Public Const RobbyCanSee As Boolean = True

'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

'Game Mode
Public optMode As Integer
'MODE_MvsR  ->  Mode Man   VS  Robot
'MODE_RvsR  ->  Mode Robot VS  Robot
Public Const MODE_FREE      As Integer = -1
Public Const MODE_MvsR      As Integer = 0
Public Const MODE_RvsR      As Integer = 1

'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

'从RCX发回的信息常量，与GoRobotNQC中的相对应
Public Const PB_FINISH      As Integer = 1
Public Const PB_PUSH        As Integer = 2
Public Const PB_FAIL        As Integer = -1

'RCX 取棋的位置,用于SendPosToRCX
Public RCXStoneNum          As Integer
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

'Other ,常用暂用的变量
Public tmpx, tmpy, tmpc     As Long
Public TIntX, TIntY, TIntC  As Integer

'for MS Agent ActiveX，动画人物 "Robby"
Public Robby                As IAgentCtlCharacter

'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

'sgf
Public SgfNode(300)         As String
Public FileName             As String

'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -