Visual basic: programmation d'un jeu de vie [MA QUESTION EST TOUT EN BAS]

Randomize  'oui c'est tout :), ça permet d'avoir un tirage différent à chaque lancement du programme

Function TirageBiaise(ByVal biais As Integer) As Boolean

    Dim tirage As Integer

    tirage = CInt(Int((100 * Rnd()) + 1)) ' Generate random value between 1 and 100

    if tirage<biais then

        return true

    else

        return false

    end if

End Function

Call Function TirageBiaise(ByVal 40 As Integer)

Function TirageBiaise(ByVal biais As Integer) As Boolean

    Dim tirage As Integer

    tirage = CInt(Int(((col_max*row_max) * Rnd()) + 1)) ' Generate random value between 1 and 400

    if tirage<biais then

        return true

    else

        return false

    end if

End Function

Call Function TirageBiaise(ByVal 40 As Integer)

Dim res as Boolean

res=TirageBiaise(40)

...

        tirage = CInt(Int(((col_max*row_max) * Rnd()) + 1)) ' Generate random value between 1 and 400

Option Explicit

Const n = 40

Au préalable, le nombre de case correspondant à 40% de mon tableau sera calculé:

Pourcentage_cell_vie = (((col_max * row_max) / n) / 100)

Dim res as Boolean

res=TirageBiaise(Pourcentage_cell_vie)

Function TirageBiaise(ByVal biais As Integer) As Boolean

    Dim tirage As Integer

    Dim V_ou_M As Boolean

    tirage = CInt(Int((100 * Rnd()) + 1)) ' Generate random value between 1 and 100

    If tirage <= biais Then  'Inférieur ou égal à 40%

        V_ou_M = True

 
    Else

        V_ou_M = False

    End If

    biais = V_ou_M  'Car la fonction doit renvoyer une valeur "true" ou "false"

End Function

Return biais

return V_ou_M

Function TirageBiaise(ByVal biais As Integer) As Boolean

    Dim tirage As Integer

    Dim V_ou_M As Boolean

    tirage = CInt(Int((100 * Rnd()) + 1)) ' Generate random value between 1 and 100

    If tirage <= biais Then  'Inférieur ou égal à 40%

        V_ou_M = True

 
    Else

        V_ou_M = False

    End If

 
return V_ou_M

 
    biais = V_ou_M  'Car la fonction doit renvoyer une valeur "true" ou "false"

End Function

biais = V_ou_M

Const nCell = 400

Function initPlateau(ByVal nbVivant As Integer, ByRef plateau As Array)

        Randomize()

        Dim i As Integer

        Dim cell As Integer

 
        For i = 0 To nCell - 1

            plateau(i) = False 'tu vides  ton tableau

        Next

        i = 0

 
       'tu rajoutes des cellules vivantes aléatoirement jusqu'au nombre voulu

        While i < nbVivant

            cell = CInt(Int(Rnd() * nCell ) + 1)

            If plateau(cell) = False Then

                plateau(cell) = True

                i = i + 1

            End If

        End While

    End Function

Dim tableau(nCell) As Boolean

initPlateau(200, tableau)

Const nLine = 20

    Const nRow = 20

Function initPlateau2D(ByVal nbVivant As Integer, ByRef plateau As Array)

        Randomize()

        Dim i, j As Integer

        Dim row, line As Integer

        For i = 0 To nRow - 1

            For j = 0 To nLine - 1

                plateau(i, j) = False

            Next

        Next

        i = 0

 
        While i < nbVivant

            row = CInt(Int(Rnd() * nRow) + 1)

            line = CInt(Int(Rnd() * nLine) + 1)

            If plateau(line - 1, row - 1) = False Then

                plateau(line - 1, row - 1) = True

                i = i + 1

            End If

        End While

    End Function

Dim tableau2D(nRow - 1, nLine - 1) As Boolean

initPlateau2D(10, tableau2D)

Option Explicit

Const col_max = 15

Const row_max = 15

Dim Tableau_cellules(1 To col_max, 1 To row_max)

 
 
Sub remp1(ms As MSFlexGrid)

Dim i As Integer

Dim j As Integer

 
 
For i = 1 To col_max

     For j = 1 To row_max

     Tableau_cellules(i, j) = ((i + j) * 2)

    ms.Col = i - 1

    ms.Row = j - 1

      ms.Text = Tableau_cellules(i, j)

 
     Next j

 
     Next i

 
End Sub

Private Sub Command5_Click()

Call remp1(MSFlexGrid1)

End Sub

Dim Tableau_cellules(1 To col_max, 1 To row_max)

Option Explicit

Const Longmax = 10

Dim Tableau_cellules(1 To Longmax, 1 To Longmax) As String

Dim Tvie(1 To Longmax, 1 To Longmax) As Boolean

Const nbCellV = 20

 
Private Sub Command2_Click()

    Call InitTV(Tvie())

    Call InitTabcell(MSFlexGrid1)

    Call hazard2(Tvie())

End Sub

 
 
Sub InitTabcell(ms2 As MSFlexGrid)

Dim i As Integer

Dim j As Integer

 
For i = 1 To Longmax

     For j = 1 To Longmax

        Tableau_cellules(i, j) = ""

        ms2.Col = i - 1

        ms2.Row = j - 1

        ms2.Text = Tableau_cellules(i, j)

    Next j

Next i

End Sub

 
 
Private Sub Command6_Click()

    Call initJeu(nbCellV, Tvie()) 'Fais appel à une procédure qui va choisir si la cellule est morte ou vivante

End Sub

 
 
Sub InitTV(tvi() As Boolean)

Dim i As Integer

Dim j As Integer

 
    For i = 1 To Longmax

        For j = 1 To Longmax

            tvi(i, j) = False

        Next j

    Next i

End Sub

 
 
Sub hazard2(tvi() As Boolean)

Dim MaVal As Integer

Dim MaVal2 As Integer

Dim i As Integer

 
For i = 1 To nbCellV

ligne1:

    Randomize   ' Initialise le générateur de hazard

    MaVal = CInt(Int((Longmax * Rnd()) + 1))

    MaVal2 = CInt(Int((Longmax * Rnd()) + 1))

        If tvi(MaVal, MaVal2) = True Then

        GoTo ligne1

            Else

            tvi(MaVal, MaVal2) = True

        End If

Next i

End Sub

 
 
Private Sub Command1_Click()

    Call debut_cycle(MSFlexGrid1)

End Sub

 
 
Sub debut_cycle(ms As MSFlexGrid)

Dim i As Integer

Dim j As Integer

 
For i = 1 To Longmax

     For j = 1 To Longmax

     Call mort_ou_vie(i, j, ms, Tvie())

    Next j

Next i

End Sub

 
 
Function mort_ou_vie(a As Integer, b As Integer, ms1 As MSFlexGrid, tvi() As Boolean)

For a = 1 To Longmax

     For b = 1 To Longmax

 
        If tvi(a, b) = False Then

        Tableau_cellules(a, b) = "M"

        ms1.Col = a - 1

        ms1.Row = b - 1

        ms1.Text = Tableau_cellules(a, b)

 
            Else

            Tableau_cellules(a, b) = "V"

            ms1.Col = a - 1

            ms1.Row = b - 1

            ms1.Text = Tableau_cellules(a, b)

 
        End If

    Next b

Next a

End Function