Option Explicit
'le nbre de cases du damier, en largeur et hauteur
Public Const dimterrain = 19
'informations sur chaque agent du terrain
Public damier(1 To dimterrain, 1 To dimterrain) As Integer
Public Function ligne(ByVal indice As Integer) As Integer
'retourne la ligne correspondant à ind
ligne = ((indice - 1) Mod dimterrain) + 1
End Function
Public Function colonne(ByVal indice As Integer) As Integer
'reourne la colonne correspondant à indice
colonne = ((indice - 1) \ dimterrain) + 1
End Function
Public Function indice(ByVal lig As Integer, ByVal col As Integer) As Integer
'retourne l'indice correspondant à la position (lig, col)
indice = lig + (col - 1) * dimterrain
End Function
Partager