Table des matières - Gilles Daniel

Comparaison de trois implémentations du modèle de Schelling. 393
l’observation du modèle, etc. Avant la programmation du modèle, on peut définir
des noms pour les différentes plages de cellules comme Domaine qui représente la
plage des cellules de l’automate cellulaire, et d’autres noms pour les variables
définies dans le tableau suivant, qui faciliteront l’initialisation des variables internes
du programme.
La simulation peut être pilotée depuis quelques boutons qu’on dispose sur la
feuille contenant les cellules (en utilisant la barre d’outils « boîte à outils
Contrôles »). Par un double-clic sur le bouton, on lui associe alors un sousprogramme,
écrit dans la feuille de calcul contenant les cellules, qui contient un
appel à la procédure UnPas. Les gestionnaires de l’événement « clic-souris »
associés à ces boutons peuvent s’écrire de la manière suivante :
' gestionnaire du bouton « initialisation » :
Private Sub ButtonInit_Click()
Call InitDomaine ' ce sous-programme n’est pas décrit ici
End Sub
' gestionnaire du bouton « Un pas » :
Private Sub ButtonUnPas_Click()
Dim nInsatisfaits As Integer
Dim nIter As Integer
nIter = Range("nIter")'on copie la cellule “nIter” dans nIter
Call UnPas(nInsatisfaits, nIter) ' appel au sous-prog “UnPas”
End Sub
' gestionnaire du bouton « Itérer » :
Private Sub ButtonIterer_Click()
Dim nInsatisfaits As Integer
Dim nIter As Integer
Dim MaxIter As Integer
MaxIter = Range("NbMaxIter")
nIter = Range("nIter")
Do
Call UnPas(nInsatisfaits, nIter) ' appel sous-prog “UnPas”
Loop Until (nInsatisfaits = 0) Or (nIter >= MaxIter)
End Sub
Pour écrire la procédure « UnPas », il faut d’abord passer dans l’éditeur Visual
Basic de Excel (Outils > Macro > Visual Basic Editor) puis insérer un nouveau
module de code (Insertion > Module). On peut alors écrire directement le code
Visual Basic suivant.
'déclaration des variables globales :
Dim T() As Integer ' domaine cellulaire
Dim V() As Integer ' opérateur de voisinage
Dim nV As Integer
' nbr de voisins