《围棋程序的VB源代码》由会员分享，可在线阅读，更多相关《围棋程序的VB源代码（7页珍藏版）》请在装配图网上搜索。
1、 ,(0),3 AbstractThis essay introduces how to design a process to calculate the steps of the game of go on SCM. It explains how to do the calculation in the battle of two to prove who wins the game. And it briefly states the necessary processing environment of the system and the basic techniques need
2、ed. The recursive method used to judge whether the black/white pieces are still alive or not and the way to calculate how many black/white pieces can be removed are the focus of the essay. Besides, some rules of this game and some other processes to calculate the result of the game are also included
3、 here, with the hope of making some comparison between these different processes.Keywords: VHDL(Very High Speed Integrated Circuit Hardware Description Language); ASIC(Application Specific IC); PLD(Programmable Logic Device); CPLD(Complex Programmable Logic Device); FPGA(Field Programmable Gate Arra
4、y); MAX+PLUSII(Multiple Array Matrix And Programmable Logic User Systems)() I-go the recursive method 4 IIAbstract II III 01.1 01.2 0 22.1 22.1.1 22.1.2 22.1.3 22.1.4 32.2 32.2.1 32.2.2 32.3 3 43.1 43.2 53.3 53.3.1 53.3.2 53.3.3 53.3.4 63.4 6 64.1 64.2 6 65.1 65.2 6 76.1 76.4 8 97.1 97.2 97.3 10 108
5、.1 108.2 11 14 14 165 5.1 1.1 ,5.2 1.2 VB,VB,5.3 3.2 ,5.4 3.3 5.4.1 3.3.1 ,19,324361,5.4.2 3.3.2 ,5.4.3 3.3.3 ,1,23,678 8.1 6.1 8.2 6.2 Visual BasicPublic Sub DrawPoint(Obj As PictureBox, X As Integer, Y As Integer, Rudais As Integer, MyColor As Long)Dim i As IntegerFor i =1 To RudaisObj.Circle (X,
6、Y), i, MyColorNext iEnd Sub9 9.1 7.1 ,9.2 7.2 Public Const SubWidth = 400Type AllStep Col As Integer Row As Integer End TypeType QPNodeNodeState As Integer 020 0=-1=1=2=Used As Boolean Visite As Integer DieFlag As Boolean End TypePublic Sub DrawPoint(Obj As PictureBox, X As Integer, Y As Integer, Ru
7、dais As Integer, MyColor As Long)Dim i As IntegerFor i =1 To RudaisObj.Circle (X, Y), i, MyColorNext iEnd Sub9.3 7.3 Option ExplicitPrivate WStep(500) As AllStepPrivate StepCount As IntegerPrivate StartFlag As Boolean Private MyColor As Long Private WeiQi(20, 20) As QPNode 020 0=-1=1=2=Private KillP
8、artner As BooleanPrivate Sub CmdExit_Click()If StartFlag =False ThenUnload MeElseIf MsgBox(, vbQuestion + vbYesNo, Me.Caption) =vbYes ThenUnload MeEnd IfEnd IfEnd SubPrivate Sub CmdReset_Click()If StartFlag =False ThenUnload MeFrmWeiQi.Show ElseIf MsgBox(, vbQuestion + vbYesNo, Me.Caption) =vbYes ThenUnload MeFrmWeiQi.ShowEnd IfEnd IfEnd SubPrivate Sub CmdStart_Click()FrmWeiQi.CurrentX =10000FrmWeiQi.CurrentY = 4000FrmWeiQi.Print Label3.Visible = TrueStepCount = 1StartFlag =TrueCmdStart.Enabled =FalseEnd SVB6.0
围棋程序的VB源代码
