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

Soyez le premier à donner votre avis sur cette source.

Vue 6 322 fois - Téléchargée 799 fois

Télécharger le projet
Commenter

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 !
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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
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
elwingil Messages postés 5 Date d'inscription vendredi 3 janvier 2003 Statut Membre Dernière intervention 24 août 2007
6 oct. 2004 à 16:41
'******************************* 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
6 oct. 2004 à 16:53
'******************************* 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 :)
biishop Messages postés 26 Date d'inscription mardi 17 juin 2003 Statut Membre Dernière intervention 3 juillet 2009
6 oct. 2004 à 21:01
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 ...
Huugooo Messages postés 122 Date d'inscription mercredi 25 février 2004 Statut Membre Dernière intervention 2 juillet 2014
7 oct. 2004 à 01:27
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
S'inscrire maintenant

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.

Du même auteur (biishop)