bonsoir
j'ai créé un jeu de sudoku
j'utilise une "cellule" comme objet de base.
voici quelques variables de l'objetvoici quelques propriétées:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private mCandidats(1 To 9) As tyCandidatCellule ' dans chaque cellule il y a 9 candidats possible _ si le Candidats est impossible "indCand" = 0 _ si le Candidats est possible "indCand" = au Candidats de 1 à 9 Private mNbreCandidat As Integer ' nombre de Candidats possible dans la cellule donc au départ s'il n'y a pas de valeur il y a 9 candidats Private mLigne As Integer ' numéro de la ligne dans le sudoku Private mColonne As Integer Private mNuméroCarré As Integer 'chaque cellule appartient à une ligne une colonne et aussi un carré de 9 cellules Private mValeur As Integer ' valeur de la cellule soit attribué au départ soit résultat des recherches au départ si pas de valeur attribuée c'est égal à 0
mon problème est que je n'arrive pas à créer correctement la property Let ou Get pour attribuer le tableau tyCandidatCellule ().
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Property Let ligne(Lig As Integer) mLigne = Lig End Property Property Get ligne() As Integer ligne = mLigne End Property Property Let Colonne(Col As Integer) mColonne = Col End Property Property Get Colonne() As Integer Colonne = mColonne End Property Property Let NuméroCarré(numCar As Integer) mNuméroCarré = numCar End Property Property Get NuméroCarré() As Integer NuméroCarré = mNuméroCarré End Property
ce tableau est défini dans un module général
j'ai tenté ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Public Cellules(1 To 9, 1 To 9) As New cCellule 'tableau des objet cellule Public Type tyCandidatCellule IndCand As Integer 'indice du Candidats couleur As Integer cand_1 As Integer 'indice si unique dans cellule End Typej'ai toujours un message d'erreur "utilisation incorrecte de la propriété"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Property Let Candidats(ind As Integer, vale As Integer) Lig = mLigne Col = mColonne numCar = mNuméroCarré tLig = mTierLigne tCol = mTierColonne 'enregistrement du Candidats dans la cellule (uniquement à l'initialisation If mCandidats(ind).IndCand = 0 And vale > 0 Then mCandidats(ind).IndCand = vale mCandidats(ind).cand_1 = 0 mCandidats(ind).couleur = 0 End If ... end property
en espérant avoir été assez clair
Partager