📄 grvbmainfrm.frm
字号:
VERSION 5.00
Object = "{A91E1E76-6AE7-11D4-AD08-A8AB2E818B70}#1.0#0"; "VideoOCX.ocx"
Object = "{C6114D03-59EB-48D0-96E6-A27A8A65F021}#1.0#0"; "phantom.dll"
Object = "{F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}#2.0#0"; "AgentCtl.dll"
Begin VB.Form GRVBMain
BackColor = &H8000000B&
BorderStyle = 3 'Fixed Dialog
Caption = "GoRo 围棋机器人"
ClientHeight = 9195
ClientLeft = 1335
ClientTop = 915
ClientWidth = 10290
Icon = "GRVBMainFrm.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 9195
ScaleWidth = 10290
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton btnBoardChange
Caption = "&Board Change"
Height = 255
Left = 8520
TabIndex = 10
Top = 8280
Visible = 0 'False
Width = 1335
End
Begin VB.CommandButton ManHasPlay
Caption = "人走了(&G)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1935
Left = 6840
TabIndex = 8
Top = 5400
Width = 3255
End
Begin VB.CommandButton ReDrawBoard
Caption = "重画棋盘"
Height = 375
Left = 6840
TabIndex = 7
Top = 7680
Width = 3255
End
Begin VB.CommandButton ClrLst
Caption = "清空列表(&L)"
Height = 375
Left = 6840
TabIndex = 6
Top = 4920
Width = 3255
End
Begin VB.CommandButton End_Button
Caption = "退出"
Height = 375
Left = 6840
TabIndex = 5
Top = 8760
Width = 3255
End
Begin VB.CommandButton RobotPlayButton
Caption = "机器人走一步"
Height = 375
Left = 6840
TabIndex = 4
Top = 7800
Visible = 0 'False
Width = 3255
End
Begin VIDEOOCXLib.VideoOCX VideoBOX
Height = 2400
Left = 120
TabIndex = 0
Top = 6720
Width = 3195
_Version = 65536
_ExtentX = 5636
_ExtentY = 4233
_StockProps = 0
ScaledDisplay = -1 'True
SaveAudio = 0 'False
Driver = 0
ControlWidth = 213
ControlHeight = 160
Mode = 0
End
Begin VB.ListBox List
BeginProperty Font
Name = "Arial"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4620
ItemData = "GRVBMainFrm.frx":6852
Left = 6840
List = "GRVBMainFrm.frx":6854
TabIndex = 1
ToolTipText = "List"
Top = 120
Width = 3255
End
Begin VB.PictureBox Board
AutoRedraw = -1 'True
BackColor = &H0000C0C0&
Height = 6495
Left = 120
Picture = "GRVBMainFrm.frx":6856
ScaleHeight = 1100
ScaleLeft = -50
ScaleMode = 0 'User
ScaleTop = -50
ScaleWidth = 1100
TabIndex = 2
Top = 120
Width = 6495
End
Begin VB.CommandButton DEBUG_Btn_ImageProcess
BackColor = &H8000000D&
Caption = "&Image Proc"
Height = 255
Left = 6960
TabIndex = 9
Top = 7080
Width = 1455
End
Begin VB.Label Label2
Caption = "Label2"
Height = 495
Left = 4920
TabIndex = 3
Top = 4440
Width = 1215
End
Begin AgentObjectsCtl.Agent RobbyAgent
Left = 5400
Top = 6840
End
Begin PHANTOMLibCtl.PhantomCtrl GRRCX
Left = 6000
Top = 6840
ComPortNo = 0
LinkType = 0
Brick = 0
End
Begin VB.Image Result_Image
Height = 2415
Left = 3360
Stretch = -1 'True
Top = 6720
Width = 3255
End
Begin VB.Shape Shape1
Height = 2415
Left = 3360
Top = 6720
Width = 3255
End
Begin VB.Menu File
Caption = "游戏"
Begin VB.Menu NewGame
Caption = "开始新游戏"
Shortcut = ^N
End
Begin VB.Menu SaveFile
Caption = "保存棋谱"
Shortcut = ^S
End
Begin VB.Menu Exit
Caption = "退出"
End
End
Begin VB.Menu View
Caption = "查看"
Begin VB.Menu ShowNum
Caption = "显示手数"
Shortcut = ^H
End
End
Begin VB.Menu Tools
Caption = "工具(&T)"
Begin VB.Menu Count
Caption = "点目"
Shortcut = ^P
End
Begin VB.Menu Try
Caption = "猜下一手"
Shortcut = ^G
End
End
Begin VB.Menu Help
Caption = "帮助"
Begin VB.Menu AboutGoRo
Caption = "关于GoRo..."
End
End
End
Attribute VB_Name = "GRVBMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'GRVBMainFrm.frm
'- - - - - - - - - - - - - - - - - - - - - - - - - -
'+ GRVBMain form
'载入
Private Sub Form_Load()
InitRobby
RobbyWelcome
InitCam
InitPhantom
End Sub
'退出
Private Sub Form_Unload(Cancel As Integer)
Over
End Sub
Private Sub ManHasPlay_Click()
If (optMode = MODE_FREE) Then GRSpeak "请开始新游戏": Exit Sub
Call ManPlay(1, 2, 3)
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - -
'+ 按钮
'Robot Play 按钮
Private Sub RobotPlayButton_Click()
If (optMode = MODE_FREE) Then GRSpeak "请开始新游戏": Exit Sub
RobotPlay
End Sub
'重画棋盘
Private Sub ReDrawBoard_Click()
DrawBoard
End Sub
'结束程序
Private Sub End_Button_Click()
'Close camera if it is open
If CamClosed = True Then
VideoBOX.Stop
VideoBOX.Close
End If
Over
End Sub
'清空 ListBox
Private Sub ClrLst_Click()
List.Clear
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - -
'+ 菜单
'+ + 文件 - - - - - - - -
'- 开始新游戏
Private Sub NewGame_Click()
'AskForCalc
'AskForSave
Me.Enabled = False
NewGameFrm.Show
End Sub
'- 保存棋谱
Private Sub SaveFile_Click()
If (optMode = MODE_FREE) Then GRSpeak "请开始新游戏": Exit Sub
Me.Enabled = False
SaveFrm.Show
End Sub
'- 退出
Private Sub Exit_Click()
Over
End Sub
'+ + 查看 - - - - - - - -
'- 显示手数
Private Sub ShowNum_Click()
If (optMode = MODE_FREE) Then GRSpeak "请开始新游戏": Exit Sub
If optMoveNumShow = True Then
optMoveNumShow = False
Else
optMoveNumShow = True
End If
DrawBoard
End Sub
'+ + 工具 - - - - - - - -
'- 点目
Private Sub Count_Click()
If (optMode = MODE_FREE) Then GRSpeak "请开始新游戏": Exit Sub
CalcScore
End Sub
'- 猜下一手
Private Sub Try_Click()
If (optMode = MODE_FREE) Then GRSpeak "请开始新游戏": Exit Sub
RobotPlay
RobotPlay
End Sub
'+ + 帮助 - - - - - - - -
'- 关于
Private Sub AboutGoRo_Click()
AboutFrm.Show
GRVBMain.Enabled = False
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - -
'+ 控件
'用鼠标点击棋盘
Private Sub Board_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (optMode = MODE_FREE) Then GRSpeak "请开始新游戏": Exit Sub
If (optMode <> MODE_MvsR) Or (nowPlayer = MAN_PLAY) Then Exit Sub
TIntX = Int((X + 41.6666) * 0.012) + 1
TIntY = Int((Y + 41.6666) * 0.012) + 1
If (TIntX >= 1 And TIntX <= 13 And TIntY >= 1 And TIntY <= 13) Then
Call ManPlay(TIntX, TIntY, nowColour)
End If
End Sub
'接受到RCX传回的信息
Private Sub GRRCX_PBMessage(ByVal Number As Integer)
Receive (Number)
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - -
'debug
Private Sub DEBUG_Btn_ImageProcess_Click()
ProcessImage
DrawBoard
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - -
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -