Je fais un jeu de vie en visual basic6 et je n'arrive pas a placer mes cellules aléatoirement sur ma grille. Et j'ai un petit problème avec les shapes pour mettre de la couleur.
Voici mon code
Option Explicit
- Code: Tout sélectionner
Option Explicit
Const col = 20
Const lig = 20
Dim Tab_cell(1 To lig, 1 To col) As String
Dim Tvie(1 To lig, 1 To col) As Boolean
Dim maval As Integer
Dim maval2 As Integer
Private Sub Command2_Click()
Call InitTV(Tvie())
Call InitTabcell
Call hazard2(Tvie())
End Sub
Sub InitTab_cell( i As Integer,j As Integer)
For i = 1 To lig
For j = 1 To col
Tab_cell(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 InitTvie(tvi() As Boolean)
Dim i As Integer
Dim j As Integer
For i = 1 To lig
For j = 1 To col
tvi(i, j) = False
Next j
Next i
End Sub
Sub hazard2(Tvie() As Boolean)
Dim maval As Integer
Dim maval2 As Integer
Dim i As Integer
nbV = text1.Text
For i = 1 To nbV
Randomize
maval = CInt(Int((lig * Rnd()) + 1))
maval2 = CInt(Int((col * 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
End Sub
Sub debut_cycle(i As Integer, j As Integer)
For i = 1 To lig
For j = 1 To col
Call mort_ou_vie(i, j, Tvie())
Next j
Next i
End Sub
Function mort_ou_vie(a As Integer, b As Integer, tvi() As Boolean)
For a = 1 To lig
For b = 1 To col
If tvi(a, b) = False Then
Tableau_cellules(a, b) = "M"
Else
Tableau_cellules(a, b) = "V"
End If
Next b
Next a
End Function
Private Sub Form_Load()
Dim i As Integer
Dim j As Integer
For i = 1 To lig
For j = 1 To col
If Tvie(i, j) Then
Shape(i, j).FillColor = "rouge"
End If
nexti
nextj
Merci de m'aider