La vie ! application 3 lois de john h. conway (1969)

Soyez le premier à donner votre avis sur cette source.

Vue 5 832 fois - Téléchargée 737 fois

Description

Après avoir lu un article dans T'Hackademy'Manuel j'ai codé ce p'tit code en 10 min.

C l'application des 3 lois du "Jeu de la vie" de J H Conway un killer de l'idee de l'univers comme calculateur universel !

C'est dingue non ?

Une fleur , la vie !

PS: Representation graphique bien sure !

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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
14595
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
19 novembre 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 :)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.