Discussion :

[paintbox]

Bonjour à tous,

je débute en VB.
Voici mon problème.

J'ai une class Personne et une sous class employe.

Je souhaite encoder quelques employes les uns à la suite des autres.
Je sais que ce serait peut-être plus facile en enregistrant directement chacun des employes dan tableau mais j'essai dans un premier temps de le faire sans écrire dans un tableau.

J'ai essayé en instanciant comme ceci mais cela ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim UnEnseignant() As enseignant = New enseignant()

Quelqu'un aurait-il une solution ou une piste?

Merci pour votre aide.

[Er3van]

[...] les uns à la suite des autres.

=> Qu'entends-tu par là ?

[...]mais cela ne fonctionne pas

=> Cela génère une erreur à la compilation? A l'exécution?
=> Qu'est-ce qui ne marche pas ?

[BenoitM]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim ListEnseignants() As Enseignant = New Enseignant(5) 'Un Array de 5 Enseignant
ListEnseignants(0)= New Enseignant
Dim unEnseignant As Enseignant = New Enseignant
ListEnseignants(1) = unEnseignant

[Er3van]

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim unEnseignant As Enseignant = New Enseignant

et

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim unEnseignant As Enseignant = New Enseignant()

Ne sont pas équivalents en VB ?

[BenoitM]

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim unEnseignant As Enseignant = New Enseignant

et

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim unEnseignant As Enseignant = New Enseignant()

Ne sont pas équivalents en VB ?

Si

[Shadam]

Tu ferais mieux d'utiliser un List(Of ) plutôt qu'un tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim listeEnseignant As New List(Of Enseignant)
Dim unEnseignant As New Enseignant()
listeEnseignant.Add(unEnseignant)

Avec une boucle sur la partie où tu ajoutes dans la liste pour les mettre à la suite des autres, ça te permet en plus que ta liste ne soit pas limiter en taille, de faire des tris dessus, etc...

[paintbox]

Bonjour à vous 2 et merci pour votre aide,

en fait, j'ai créé une méthode qui est celle-ci :

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
 
Public Sub NewEnsignant()
        Dim UnEnseignant() As enseignant = New enseignant()
        Console.WriteLine("Nom : ")
        UnEnseignant().Nom = Console.ReadLine()
        Console.WriteLine("Prenom : ")
        UnEnseignant().Prenom = Console.ReadLine()
        Console.WriteLine("Age : ")
        UnEnseignant().Age = Console.ReadLine()
        Console.WriteLine("Profession : ")
        UnEnseignant().Profession = Console.ReadLine()
        Console.WriteLine("Cours : ")
        UnEnseignant().Cours = Console.ReadLine()
 
        UnEnseignant().Identite()
 
    End Sub

Il me renvoie les messages suivants :

Erreur 1 Impossible de convertir une valeur de type 'Oo_Animaux.enseignant' en 'Tableau à 1 dimension(s) de Oo_Animaux.enseignant'.

et :

Erreur 2 Le nombre d'index est inférieur au nombre de dimensions du tableau indexé.

Est-ce que ce serait parce que j'ai 5 variables dans ma class ?

[Shadam]

Lorsque tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim UnEnseignant() As enseignant = New enseignant()

Tu essaies de mettre un enseignant en tableau ce qui n'est pas possible, à la rigueur tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim UnEnseignant As enseignant = New enseignant()

pour la deuxième erreur c'est la même chose, tu essaies d'obtenir les propriétés directement du tableau, il faudrait faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Console.WriteLine("Nom : ")
        UnEnseignant(0).Nom = Console.ReadLine()

pour obtenir le nom du premier de ta liste

[BenoitM]

Perso je ne vois surtout pas pourquoi il déclare unEnseignant en tant que tableu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Sub NewEnsignant()
        Dim UnEnseignant() As enseignant = New enseignant()

à remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim UnEnseignant As enseignant = New enseignant()
Console.WriteLine("Nom : ")
        UnEnseignant.Nom = Console.ReadLine()

ps:
Le nom des classes s'écrit avec une majuscule "Enseignant"
Le nom des variables s'écrit avec une miniscule "unEnseignant"