Visual Basic: programmation d'un jeu de simulation de vie[tout en bas]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Visual Basic: programmation d'un jeu de simulation de vie[tout en bas]

mauriiiiiice

Bonjour à tous,

J'ai un projet à réaliser en visual basic. Je connais assez bien le langage de programmation (boucle, booléen...etc...) mais, mon gros problème réside dans le fait que j'ai beaucoup de mal à analyser le sujet pour le découper en une série de sous programme.

Je souhaiterais avoir un peu d'aide pour démarrer mon projet. Merci

Citation :

Le but de ce projet est de simuler un jeu de la vie. Le jeu de la vie est le plus célèbre des automates cellulaires. Il a été inventé par John Conway et popularisé dans la rubrique de Martin Gardner du magazine américain "Scientific American" d'octobre 1970.

Le jeu de la vie consiste à faire naître, vivre ou mourir des cellules. Celles-ci sont disposées sur une grille carrée. Chaque case de la grille contient une cellule. Initialement une cellule est soit "en vie" soit "morte". A chaque génération, les cellules évoluent en fonction de létat de leurs voisines, en suivant une loi dévolution.

Par exemple, une loi dévolution peut être :
Une cellule en vie meurt si elle a plus de 3 voisins morts,
Une cellule en vie survit si elle a exactement 2 voisins en vie,
Une cellule morte naît si elle a exactement 3 voisins en vie.
Les cases voisines dune case donnée sont les quatre cases adjacentes, cest-à-dire les cases ayant au moins un côté en commun.

Dautres règles dévolution sont envisageables. Lors dune exécution, toutes les cellules suivent la même règle dévolution.

Vous réaliserez une application en Visual basic qui affiche à lécran à chaque génération létat des cellules sur la grille, ainsi que des informations sur lévolution des populations de cellules en vie ou mortes. La grille sera initialisée en fonction du pourcentage de cellules en vie donné par lutilisateur au lancement de lapplication. Vous pourrez envisager de laisser lutilisateur choisir une règle dévolution parmi une liste de règles disponibles.

Message édité par mauriiiiiice le 04-02-2006 à 21:52:44

Publicité

knakes

ben tu définis un tableau avec pour chaque cellule 2 états (vie / mort)
apres tu fait analyser le tableau et ca change ...

nan ?

gurl1

Salut,
j'ai déja fait ce genre d'automate cellulaire.
Si tu as des problêmes précis, demande.
Bonne chance

mauriiiiiice

Code :

Option Explicit
Const col_max = 15
Const row_max = 15
Tableau_cellules(1 To col_max, 1 To row_max) As String
Sub affich()
Dim i As String
Dim j As String
Dim x As String
For i = 1 To col_max
For j = 1 To row_max
x = cellule_hazard() 'Fais appel à une procédure qui va choisir si la cellule est morte ou vivante
Call mort_ou_vie(i, j, x)
Next j
Next i
End Sub
Sub mort_ou_vie(a, b, i)
If i = False Then
ms.Col = a
ms.Row = b
ms.Text = "M"
Else
ms.Col = a
ms.Row = b
ms.Text = "V"
End Sub

Voila mes premier algo. J'ai un problème pour créer une procédure (ou une fonction?) qui me sort aléatoirement une valeur.
Je dois me servir de l'objet "ramdomize" mais je ne suis pas sur de moi pour la syntaxe.
Mon deuxième problème est la manière par laquelle j'aurai par exemple 40% de cellules vivantes au départ.

mauriiiiiice

Bonjour,

J'ai une autre petite question: j'ai un tableau à deux dimensions:

Code :

Dim Tableau_cellules(1 To col_max, 1 To row_max)

Comment puis je faire pour que les valeurs présentes dans chaque case soient mélangés dans le même tableau?

Merci de vos réponses !

knakes

"Comment puis je faire pour que les valeurs présentes dans chaque case soient mélangés dans le même tableau? " // Sois un peu plus clair

mauriiiiiice

Citation :

"Comment puis je faire pour que les valeurs présentes dans chaque case soient mélangés dans le même tableau? " // Sois un peu plus clair

Je vais prendre un exemple: imagines un tableau de 100 cases (10*10)
Les 40 premières cellules auront la valeur "V", les suivantes auront la valeur "M". Après que cette attribution a été faite, je voudrais faire en sorte que toutes les lettres du tableau soient mélangées de façon aléatoire.

J'ai du mal à paramétrer corectment l'objet "randomize".

Message édité par mauriiiiiice le 04-02-2006 à 12:02:37

knakes

Code :

Dim i, j, k As Integer
For k = 1 To 10
aa:
x = Fix(10 * Rnd()) + 1
y = Fix(10 * Rnd()) + 1
If Cells(x, y).Value = "M" Then GoTo aa
Cells(x, y).Formula = "M"
Next
For i = 1 To 10
For j = 1 To 10
If Not Cells(i, j).Value = "M" Then Cells(i, j).Formula = "V"
Next
Next

Bon voila l'idée.

Ca te remplit exactement 10 cellules avec "M" soit des cellules mortes
Le reste sera des cellules "V" -> vivantes
Le remplissement des "M" se fait de façon aléatoire
on est ici à 10 cellules mortes pour un total de 10x10 (100 cellules) soit 10% de cellules mortes
pour obtenir un chiffre autre, remplacer "For k = 1 To 10" par "For k = 1 To 20" pour obtenir par exemple 20% et ainsi de suite.
Voila

--
Edit : orthographe

Message édité par knakes le 04-02-2006 à 14:24:54

---------------
now : do nothing

mauriiiiiice

Merci!
Je commence à comprendre comment ça fonctionne. J'ai procéder diffèremment.

Code :

Option Explicit
Const col_max = 10
Const row_max = 10
Dim Tableau_cellules(1 To col_max, 1 To row_max)
Const ncell = (col_max * row_max)
Dim Tvi(1 To ncell) As Boolean
Const z = 20

Code :

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

Code :

Private Sub Command1_Click()
Call debut_cycle(MSFlexGrid1)
End Sub

Code :

Sub initJeu(ByVal nbV As Integer, ByRef Tvi() As Boolean)
Dim i As Integer
Dim j As Integer
Dim cell As Integer
For i = 1 To ncell
Tvi(i) = False 'attribue la valeur false par défaut
Next i
j = 1
Do While j <= nbV
'Ajoute aléatoirement des cellules en vie (true) jusqu'au nombre voulu
Randomize
cell = CInt(Int(Rnd() * ncell))
If Tvi(cell) = False Then
Tvi(cell) = True
End If
j = j + 1
Loop
End Sub

Mon problème est ci dessus:
- quel paramètre suplémentaire dois je rentrer pour que la variable "celle" ne prenne pas la valeur 0 (sinon bug) ?
- que dois faire pour évité les doublon, c'est dire que je me retrouve exactement avec 20 cellules vivantes ?

Code :

Sub debut_cycle(ms As MSFlexGrid)
Dim i As Integer
Dim j As Integer
For i = 1 To col_max
For j = 1 To row_max
Call mort_ou_vie(i, j, ms)
Next j
Next i
End Sub

Code :

Function mort_ou_vie(a As Integer, b As Integer, ms1 As MSFlexGrid)
For a = 1 To col_max
For b = 1 To row_max
If Tvie(((a - 1) * 5) + 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

Merci )

knakes

dans mon code

x = Fix(10 * Rnd()) + 1
y = Fix(10 * Rnd()) + 1

les +1 évite d'avoir des valeurs nulles

If Cells(x, y).Value = "M" Then GoTo aa

je verifie que la cellule est vide sinon il choisis 1 nouvelle cellule.

---------------
now : do nothing

Publicité

knakes

Code :

j = 1
Do While j <= nbV
'Ajoute aléatoirement des cellules en vie (true) jusqu'au nombre voulu
Randomize
cell = CInt(Int(Rnd() * ncell))
If Tvi(cell) = False Then
Tvi(cell) = True
End If
j = j + 1
Loop

moi je mettrais

Code :

for j = 1 to nbV
Randomize
lbla:
cell = Int(Rnd() * ncell)
If Tvi(cell) = True Then Goto lbla
If Tvi(cell) = False Then Tvi(cell) = True
next

voila

---
Edit : viré le CInt()

Message édité par knakes le 04-02-2006 à 15:30:00

---------------
now : do nothing

mauriiiiiice

Citation :

Comme tu as pu le remarquer, les true et false se faisait dans un tableau non visible à une dimension (plus facile).

Je vais essayer avec ta méthode.

Citation :

1.
for j = 1 to nbV
2.
Randomize
3.
lbla:
4.
cell = CInt(Int(Rnd() * ncell))
5.
If Tvi(cell) = True Then Goto lbla
6.
If Tvi(cell) = False Then Tvi(cell) = True
7.
next

Dans ton exemple, le "goto lbla" réinitialise le tirage aléatoire?

Message édité par mauriiiiiice le 04-02-2006 à 15:30:55

mauriiiiiice

Code :

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

Ce code me permet d'afficher dans un tableau et de façon aléatoire 100 cellules: 20 sont vivantes("V" ) et 80 sont mortes ("M" ).
Le programme fonctionne, il n'y a pas de problème.(Merci à tous ceux qui m'ont aidé)

Je souhaiterais avoir quelques renseignements concernant l'interface graphique:
- quel est le nom du truc qui me permet d'avoir des cellules carrés (les redimentionner)
- comment puisse faire pour que la cellule soit colorié en verte à la place de "V" (vivante) et rouge pour "M" (morte)?

Merci

knakes

pas mal.

moi je simplifirai

If tvi(MaVal, MaVal2) = True Then
GoTo ligne1
Else
tvi(MaVal, MaVal2) = True
End If

par

If tvi(MaVal, MaVal2) = True Then GoTo ligne1
tvi(MaVal, MaVal2) = True

comme 'Goto lign1' est sur la même ligne que 'Then', elle sera exécutée uniquement si le If est vrai. sinon, il exécute la suite du programme et donc le 'tvi(MaVal, MaVal2) = True'

Sinon pour la taille et la couleur du FlexGird va faire un tour sur vbfrance, tu aurs peut être des infos.

Et de rien

---------------
now : do nothing

mauriiiiiice

Citation :

moi je simplifirai

If tvi(MaVal, MaVal2) = True Then
GoTo ligne1
Else
tvi(MaVal, MaVal2) = True
End If

par

If tvi(MaVal, MaVal2) = True Then GoTo ligne1
tvi(MaVal, MaVal2) = True

comme 'Goto lign1' est sur la même ligne que 'Then', elle sera exécutée uniquement si le If est vrai. sinon, il exécute la suite du programme et donc le 'tvi(MaVal, MaVal2) = True'

C'est ce que j'avais mis au début mais ca faisait bugé mon programme. J'ai consulté la msdn et j'ai mis cette syntaxe et il n'y a plus aucun probleme, j'ai bien 20 cellules vivantes placé aléatoirement dans mon tableau.

Il me reste plus qu'à faire les lois de survi!

kiki29

http://www.mirwoj.opus.chelm.pl/ca/index.html

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Visual Basic: programmation d'un jeu de simulation de vie[tout en bas]

Sujets relatifs
besoin d un coup de main en programmation javascript	[Algo] Algorithme d'un Tetris (et programmation)
erreur de compilation toute bete wxWidgets, visual c++	[.NET & Visual Studio 2005] Livres.....
Programmation java sur telephone mobile ?	programmation reseaux
Programmation C sous z/OS	Visual Basic et openGL , ca s'aime ???
Langage de programmation préféré ;)
Plus de sujets relatifs à : Visual Basic: programmation d'un jeu de simulation de vie[tout en bas]

Page générée en 0.111 secondes