人工智能之生命游戏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 = 0 End 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 If End Sub *******************************