LA VIE ! APPLICATION 3 LOIS DE JOHN H. CONWAY (1969)

Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010
- - Dernière réponse : violent_ken
Messages postés
1822
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

violent_ken
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
-
Salut.
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 !
@+
NHenry
Messages postés
14599
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
7 décembre 2019
137 -
C'est bien vu le screenshot, mais regarde le mien :)
Huugooo
Messages postés
122
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
2 juillet 2014
-
Je n'ai pas essayé mais si on change le mode d'affichage (16 bits/32 bits) ça risque pas de foirer le test sur la couleur ? Dans ce cas il faudrait plutôt passer par un tableau au lieu d'un "point". A essayer
biishop
Messages postés
26
Date d'inscription
mardi 17 juin 2003
Statut
Membre
Dernière intervention
3 juillet 2009
-
Bien vu le forecolor
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 ...
Saros
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010
-
'******************************* On affiche la vie
>>> '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 :)
elwingil
Messages postés
5
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
24 août 2007
-
'******************************* On affiche la vie
'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
Saros
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010
-
J'avais déjà vu une version TI... Celle-là est très bien...

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