Utiliser les classes

Version imprimable

Bonjour,
Je souhaitais créer une classe et l'utiliser, mais je n'y arrive pas. J'ai suivi les cours de P.LASERRE, mais je n'ai pas du tout comprendre.

Dans mon projet j'ai plusieurs fichiers textes, qui contiennent des données que je met sous forme de tableau mais que je souhaite traité de maniere differentes suivants le type de fichier et un code.
Mes types de fichiers sont A, B ou C, pour un type de fichier je peux avoir plusieurs code possible en hexa (11h, 31h, 19h). Ensuite j'ai le contenu du fichier sous forme de tableau (Dump) dont je récupère certaines données en fonction du type et du code du fichier (DonneeA, DonneeB, DonneeC)

Voila comment j'étais parti:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Public Class Fichier 'Variable privée (Attribut) servant à stocké en interne le nom. Property Dump As Array Property Type As String Property Code As String Property DonneeA As string Property DonneeB As String Property DonneeC As String Public Sub Initialise (ByVal Type As String, ByVal Code As String, ByVal Dump as Array) Me.Type = Type Me.Code= Dump ......... Traitement pour renseigner les DonneeA, DonneeB, DonneeC .................. EndSub End Class
Ensuite je pensais initialiser la class ainsi:
Code:

1 2 3 4 5 Dim PremierFichier as new Fichier PremierFichier.Initialise("A", "11h", PremierFichierTableau) DonneeA = PremierFichier.DonneeA ......
mais sur le module de classe j'ai les erreurs suivantes:

Citation:

'EndSub' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection. (BC30451) - D:\SHARPEDEVELOP\DumpFile_RW\DumpFile_RW\Fichier.vb:24
Cette instruction ne peut pas apparaître dans le corps d'une méthode. Elle est interprétée comme la fin de la méthode. (BC30289) - D:\SHARPEDEVELOP\DumpFile_RW\DumpFile_RW\Fichier.vb:26

Pouvez vous me guider dans la manière dont je m'y prend pour créer une classe.
Ma méthodologie est elle bonne ? ou suis je a cote de la plaque ?

Merci

05/07/2017, 09h11
r.morel

Citation:

Envoyé par yaume91

Bonjour,
mais sur le module de classe j'ai les erreurs suivantes:

EndSub' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection. (BC30451) - D:\SHARPEDEVELOP\DumpFile_RW\DumpFile_RW\Fichier.vb:24
Cette instruction ne peut pas apparaître dans le corps d'une méthode. Elle est interprétée comme la fin de la méthode. (BC30289) - D:\SHARPEDEVELOP\DumpFile_RW\DumpFile_RW\Fichier.vb:26

Salut tu dois supprimer le "End Sub", qui n'a rien a faire ici sans le début d'une procédure car cette instruction sert a terminer une procédure.

Tu aussi un cours ici dédier au Vb.net dans lequel un chapitre aborde les classes.

Bonne lecture et bon code
05/07/2017, 09h12
Pol63

wow ...
ajoute un espace entre end et sub

sinon je pense qu'il faudrait plutot du polymorphisme ici
05/07/2017, 09h16
r.morel

Citation:

Envoyé par Pol63

wow ...
ajoute un espace entre end et sub

sinon je pense qu'il faudrait plutot du polymorphisme ici

Oups Désolé. :oops:

Merci,

Pour le polymorphisme j'ai pas tout compris et le paragraphe dans le cours me semble assez light.
Ce que je voulais savoir , suivant le cas pratique que j'ai décris, ai je pris la bonne démarche de passe par une classe de cette maniere , es ce que ma facon de faire est propre en gros ?

Du coup j'ai corrigé le "End sub" , et en effet ca marche mieux.

Par contre je rencontre le problee suivant maintenant:
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim FichierTableau(16,3) As String Dim Type As string Select Case Ident 'Récupère le type Case "TYPE" Type = splitted(1).Trim().ToString .................. End Select Dim PremierFichier as new Fichier PremierFichier.Initialise(Type, FichierTableau)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Public Class Fichier 'Variable privée (Attribut) servant à stocké en interne le nom. Property Dump As Array Property Type As String Property Code As String Property DonneeA As string Property DonneeB As String Property DonneeC As String Public Sub Initialise (ByVal Type As String, ByVal Code As String, ByVal Dump as Array) Me.Type = Type Me.Code= Dump ......... Traitement pour renseigner les DonneeA, DonneeB, DonneeC .................. End Sub End Class
Mon tableau "FichierTableau" est correctement rempli , mais dés que je suis dans la classe, j'ai l'indication suivante pour chaque ligne du tableau "Dump"

Code:

The object does not have an indexer property

Pourtant il créé bien un tableau de même dimension que "FichierTableau" ?