interface_gnugoengapi.bas

机器人程序

Attribute VB_Name = "Interface_GNUGoEngAPI"
'Interface_GNUGoEngAPI.bas
'从GNUGOEngAPI.dll中导出的函数声明

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

Option Explicit

Public Declare Function GNUGO_StartNewGame Lib "GNUGoEngAPI.dll" (ByVal size As Long, ByVal seed As Long, ByVal komi As Single) As Long
'int WINAPI GNUGO_StartNewGame(int boardsize,int seed,float komi)

Public Declare Function GNUGO_GetMoveNumber Lib "GNUGoEngAPI.dll" () As Long
'int WINAPI GNUGO_GetMoveNumber();

Public Declare Function GNUGO_IsLegal Lib "GNUGoEngAPI.dll" (ByVal i As Long, ByVal j As Long, ByVal color As Long) As Long
'int WINAPI GNUGO_IsLegal(int i,int j,int color);

Public Declare Function GNUGO_GenMove Lib "GNUGoEngAPI.dll" (ByRef i As Long, ByRef j As Long, ByVal color As Long) As Long
'int WINAPI GNUGO_GenMove(int *i, int *j, int color);

Public Declare Sub GNUGO_PlayMove Lib "GNUGoEngAPI.dll" (ByVal i As Long, ByVal j As Long, ByVal color As Long)
'void WINAPI GNUGO_PlayMove(int i, int j, int color);

Public Declare Function GNUGO_GetBoard Lib "GNUGoEngAPI.dll" () As BOARD_ARRAY
'void gnugo_get_board(int b[MAX_BOARD][MAX_BOARD])
'//use a struct to send board array to Visual Basic
'BOARD_ARRAY WINAPI GNUGO_GetBoard(void)

Public Declare Function GNUGO_EstimateScore Lib "GNUGoEngAPI.dll" () As Single
'float WINAPI GNUGO_EstimateScore(void);

Public Declare Sub GNUGO_AddStone Lib "GNUGoEngAPI.dll" (ByVal i As Long, ByVal j As Long, ByVal color As Long)
'void WINAPI GNUGo_AddStone(int i,int j,int color);

Public Declare Sub GNUGO_RemoveStone Lib "GNUGoEngAPI.dll" (ByVal i As Long, ByVal j As Long)
'void WINAPI GNUGo_RemoveStone(int i,int j);
'You cannot remove a empty position.

Public Declare Function GNUGO_GetBoardSize Lib "GNUGoEngAPI.dll" () As Long
'int WINAPI GNUGo_GetBoardSize(void);

Public Declare Function GNUGO_GetKomi Lib "GNUGoEngAPI.dll" () As Long
'int WINAPI GNUGo_GetKomi(void);

'for Function GNUGO_GetBoard()
Type BOARD_ARRAY
  'board_array
  b(0 To 18, 0 To 18) As Long
End Type

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