人工智能之生命游戏VB实现.doc

生命游戏源代码*定义生命游戏参数*Dim gridSize As Integer 格网大小Dim gridNumberCol As Long 列格网数Dim gridNumberRow As Long 行格网数Dim gridMatrix() As Byte 格网矩阵Dim gridMTemp() As Byte 格网临时矩阵Dim intervalTime As Long 演化间隔时间Dim gridFillColor As Long 格网填充颜色Dim developTimes As Long 演化次数Dim liveNumbers As Long 存活个数*初始化生命游戏参数*Private Sub initLifeConfig() gridSize = txtGridSize.Text intervalTime = txtTime.Text gridNumberCol = Int(picLife.ScaleWidth / gridSize) + 1 gridNumberRow = Int(picLife.ScaleHeight / gridSize) + 1 txtCANumber.Text = CLng(gridNumberCol * gridNumberRow / 3) Label6.Caption = 不能超过 & gridNumberCol * gridNumberRow & 个 ReDim gridMatrix(0 To gridNumberCol - 1, 0 To gridNumberRow - 1) ReDim gridMTemp(0 To gridNumberCol - 1, 0 To gridNumberRow - 1) gridFillColor = vbGreen picLife.FillStyle = 0 picLife.FillColor = gridFillColor picLife.BackColor = vbWhite timerLife.Enabled = False timerLife.Interval = intervalTime developTimes = 0 liveNumbers = 0End Sub*输出某个元胞的状态*Private Sub printgridcolor(ByVal i As Long, ByVal j As Long, ByVal k As Long) If k = 1 Then picLife.Line (i * gridSize, j * gridSize)-(i + 1) * gridSize - 1, (j + 1) * gridSize - 1), gridFillColor, B ElseIf k = 0 Then picLife.FillColor = vbWhite picLife.Line (i * gridSize, j * gridSize)-(i + 1) * gridSize - 1, (j + 1) * gridSize - 1), vbWhite, B picLife.FillColor = gridFillColor End IfEnd Sub*输出元胞状态*Private Sub exportLifeStatus() picLife.Cls For i = 0 To gridNumberCol - 1 For j = 0 To gridNumberRow - 1 If gridMatrix(i, j) = 1 Then Call printgridcolor(i, j, 1) Next j Next iEnd Sub*元胞演化（需要完成的部分！）*Private Sub lifeDelevoping() Dim neighborLiveNumber As Byte 记录邻域存活的元胞数 Dim row As Integer, col As Integer 记录元胞所在的行和列 neighborLiveNumber = 0 初始化邻域存活的元胞数 需要用到的变量： gridNumberCol As Long 列格网数 gridNumberRow As Long 行格网数 gridMatrix() As Byte 格网矩阵，当前的CA格局，大小：gridNumberCol * gridNumberRow，下标从0开始 gridMTemp() As Byte 格网临时矩阵，下一回合的CA格局，大小：gridNumberCol * gridNumberRow，下标从0开始 以上两个二维数组的下标，先Col后Row 元胞状态说明：死亡的元胞为0，存活的元胞为1 -开始生命元胞的演化- For row = 0 To gridNumberRow - 1 For col = 0 To gridNumberCol - 1 -判断邻域存活的元胞数- Dim i As Integer, j As Integer Your code For i = row - 1 To row + 1 For j = col - 1 To col + 1 If (j = 0 And i = 0) And (j gridNumberCol And i 3 Or neighborLiveNumber 2 Then gridMTemp(col, row) = 0 Else gridMTemp(col, row) = 1 End If End If neighborLiveNumber = 0 Next col Next row -生命元胞演化结束- -返回元胞的状态，并显示在格网上- For i = 0 To gridNumberCol - 1 For j = 0 To gridNumberRow - 1 gridMatrix(i, j) = gridMTemp(i, j) Next j Next i Call exportLifeStatus -End Sub*初始化窗体外观*Private Sub initFormVisible() If frmLife.WindowState = 1 Then Exit Sub framConfig.Top = 0 framConfig.Left = 10 framConfig.Width = frmLife.ScaleWidth - 20 picLife.Top = framConfig.Top + framConfig.Height + 10 picLife.Left = framConfig.Left picLife.Width = framConfig.Width picLife.Height = frmLife.ScaleHeight - picLife.Top - 10 framConfig2.Left = (framConfig.Width - framConfig2.Width) / 2End Sub*Private Sub cmdBegin_Click() timerLife.Enabled = TrueEnd SubPrivate Sub cmdEnd_Click() timerLife.Enabled = False For i = 0 To gridNumberCol - 1 For j = 0 To gridNumberRow - 1 If gridMatrix(i, j) = 1 Then liveNumbers = liveNumbers + 1 End If Next j Next i lblLiveNumbers.Caption = liveNumbers liveNumbers = 0End SubPrivate Sub cmdExit_Click() EndEnd SubPrivate Sub cmdRandomCA_Click() -随机生成一定数目存活的元胞- Dim liveNumber As Long Dim liveNumberTotal As Long liveNumber = 0 liveNumberTotal = txtCANumber.Text timerLife.Enabled = False picLife.Cls For i = 0 To gridNumberCol - 1 For j = 0 To gridNumberRow - 1 gridMatrix(i, j) = 0 Next j Next i Do While liveNumber = liveNumberTotal i = Int(gridNumberCol * Rnd) j = Int(gridNumberRow * Rnd) If gridMatrix(i, j) = 0 Then liveNumber = liveNumber + 1 gridMatrix(i, j) = 1 Call printgridcolor(i, j, 1) End If Loop End SubPrivate Sub cmdReset_Click() developTimes = 0 Call initLifeConfigEnd SubPrivate Sub Form_Load() Call initFormVisible Call initLifeConfigEnd SubPrivate Sub Form_Resize() -resize时，重置窗体参数- Call initFormVisible Call initLifeConfigEnd SubPrivate Sub picLife_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) -鼠标按下给定元胞初始状态- i = Int(X / gridSize) j = Int(Y / gridSize) If gridMatrix(i, j) = 0 Then gridMatrix(i, j) = 1 Call printgridcolor(i, j, 1) Else gridMatrix(i, j) = 0 Call printgridcolor(i, j, 0) End IfEnd SubPrivate Sub timerLife_Timer() developTimes = developTimes + 1 lblTimes.Caption = t= & developTimes & 次 Call lifeDelevoping If developTimes = 1 Or developTimes = 10 Or developTimes = 20 Or developTimes = 50 Or developTimes = 100 Or developTimes = 200 Or developTimes = 500 Or developTimes = 1000 Then timerLife.Enabled = False For i = 0 To gridNumberCol - 1 For j = 0 To gridNumberRow - 1 If gridMatrix(i, j) = 1 Then liveNumbers = liveNumbers + 1 Next j Next i lbl