initialize.bas

机器人程序

Attribute VB_Name = "Initialize"
'Initialize.bas
'大部分初始化函数

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

'初始化一切
'Something should be initalize before all.
Public Sub Initialize_All()
  If Have_Init_All = True Then Exit Sub
  Init_Opt
  
  kCam = k640
  
  Read_Pos False
  InitArrayState
   
  'Set Some Value
  CamWidth = 640
 
  Have_Init_IRTower = False
  
  Have_Init_All = True
End Sub

'初始化 array State,StepNumber.b
'Init the array of state
Public Sub InitArrayState()
  For i = 1 To BSize
    For j = 1 To BSize
      State(i, j) = NONE
      StepNumBoard.b(i - 1, j - 1) = NONE
    Next 'j
  Next 'i
End Sub

'初始化选项
'Initialize value of opt- ,默认值
Public Sub Init_Opt()
  optMode = MODE_FREE
  optManName = "无名氏"
  optRobotName = "GoRo"
  optHandicap = 0
  optRndNumber = 1986
  optKomi = 2.75
  optBlackPlayer = PLAYER_MAN
  optWhitePlayer = PLAYER_ROBOT
  optMoveNumShow = False
  
  FileName = "Untitled"
  nowColour = BLACK
End Sub

'判断摄像头 & 红外发射塔 是否连接成功
Public Function InitSucceed() As Boolean
  InitSucceed = True
  If Not GRVBMain.VideoBOX.Init = True Then
    InitSucceed = False
  End If
  
  If (GRVBMain.GRRCX.InitComm = True And GRVBMain.GRRCX.TowerAlive = True) Then
    GRVBMain.GRRCX.Brick = RCX2
    Have_Init_IRTower = True
  Else
    InitSucceed = False
  End If
End Function

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