LA VIE ! APPLICATION 3 LOIS DE JOHN H. CONWAY (1969)
Saros
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010
-
6 oct. 2004 à 14:50
violent_ken Messages postés 1812 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 26 octobre 2010 - 17 déc. 2005 à 23:29
violent_ken Messages postés 1812 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 26 octobre 2010 - 17 déc. 2005 à 23:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/26620-la-vie-application-3-lois-de-john-h-conway-1969
https://codes-sources.commentcamarche.net/source/26620-la-vie-application-3-lois-de-john-h-conway-1969
17 déc. 2005 à 23:29
Moi aussi je vais faire un jeu de la vie. Alors je jettais un coup d'oeil sur ce qui s'était déjà fait... et là... BRAVO ! Code clair, résultat excellent, rien à redire !
Très bonne source !
@+
7 oct. 2004 à 09:41
7 oct. 2004 à 01:27
6 oct. 2004 à 21:01
parcontre tout effacer n est pas une bonne solution !
J ai codé une combine qui utilise 2 pictures box
l'une sur l autre .... on dessine sur celle qui est caché
puis on les swap et + de syntillement ...
6 oct. 2004 à 16:53
>>> 'Form1.gfx.Cls <<<
'** Efface le screen gfx
'** On affiche les cellules
For X = 1 To 100
For Y = 1 To 100
If vie(X, Y) = 1 Then
If Form1.gfx.Point(X * 2, Y * 2) <> &HFF& Then
Form1.gfx.ForeColor = &HFF&
Form1.gfx.PSet (X * 2, Y * 2)
End If
Else
If Form1.gfx.Point(X * 2, Y * 2) = &HFF& Then
Form1.gfx.ForeColor = &H8000000F
Form1.gfx.PSet (X * 2, Y * 2)
End If
End If
Next
Next
Il faut pas faire de Cls alors :)
6 oct. 2004 à 16:41
'Form1.gfx.Cls
'** Efface le screen gfx
'** On affiche les cellules
For X = 1 To 100
For Y = 1 To 100
If vie(X, Y) = 1 Then
If Form1.gfx.Point(X * 2, Y * 2) <> &HFF& Then
Form1.gfx.ForeColor = &HFF&
Form1.gfx.PSet (X * 2, Y * 2)
End If
Else
If Form1.gfx.Point(X * 2, Y * 2) = &HFF& Then
Form1.gfx.ForeColor = &H8000000F
Form1.gfx.PSet (X * 2, Y * 2)
End If
End If
Next
Next
6 oct. 2004 à 14:50
Form1.gfx.ForeColor = vbRed
For X = 1 To 100
For Y = 1 To 100
If vie(X, Y) = 1 Then Form1.gfx.PSet (X * 2, Y * 2)
Next
DoEvents
Next
C'est bien mieux, ça "bloque" beaucoup moins.
Je pense qu'il y aurait un moyen d'implémenter ce programme, en faisant des opération genre Or Xor And avec des images.
10/10
Saros