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

Signaler
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010
-
violent_ken
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
-
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
14655
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
23 février 2020
139
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