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 ?

[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...

[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

[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"

[paintbox]

ok je comprend un peu mieux
mais dans ce cas, je dois mettre "un compteur" au niveau de mon main pour ajouter un nouvel enseignant?

j'ai fais ceci mais c'est visiblement pas bon

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Module Main
    ' Property Creation enseignant
    Public Sub NewEnsignant()
        Dim UnEnseignant As enseignant = New enseignant(i)
        Console.WriteLine("Nom : ")
        UnEnseignant(i).Nom = Console.ReadLine()
        Console.WriteLine("Prenom : ")
        UnEnseignant(i).Prenom = Console.ReadLine()
        Console.WriteLine("Age : ")
        UnEnseignant(i).Age = Console.ReadLine()
        Console.WriteLine("Profession : ")
        UnEnseignant(i).Profession = Console.ReadLine()
        Console.WriteLine("Cours : ")
        UnEnseignant(i).Cours = Console.ReadLine()
 
        UnEnseignant(i).Identite()
 
    End Sub
 
 
 
    Sub Main()
        Dim reponse As Integer
        Public i As Integer = 0
        Do
            Console.WriteLine("================================")
            Console.WriteLine("| Que souhaitez vous faire :   |")
            Console.WriteLine("| 1 - Ajouter un enseignant    |")
            Console.WriteLine("| 2 - Ajouter un  ouvrier      |")
            Console.WriteLine("| 0 - Pour sortir              |")
            Console.WriteLine("================================")
            reponse = Integer.Parse(Console.ReadLine())
 
            ' Traitement de la réponse
            Select Case reponse
                Case 1
                    NewEnsignant(i)
                Case 2
                    'NewEnsignant(i)
                Case Else
 
            End Select
 
        Loop While (reponse <> 0)
        i += 1
        Console.WriteLine("Au revoir")
    End Sub
 
End Module

Est-ce faut ?

[BenoitM]

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
20
21
22
23
24
25
26
27
28
Sub Main()
        Dim ListEnseignant  As List(Of Enseignant) = new List(Of Enseignant)() 'désolé il manquait le nom de la variable
        Dim reponse As Integer
        Do
            Console.WriteLine("================================")
            Console.WriteLine("| Que souhaitez vous faire :   |")
            Console.WriteLine("| 1 - Ajouter un enseignant    |")
            Console.WriteLine("| 2 - Ajouter un  ouvrier      |")
            Console.WriteLine("| 0 - Pour sortir              |")
            Console.WriteLine("================================")
            reponse = Integer.Parse(Console.ReadLine())
 
            ' Traitement de la réponse
            Select Case reponse
                Case 1
                    ListEnseignant.Add(CreateEnseignant())
                Case 2
                    ' pas implémenté
                Case Else
 
            End Select
 
        Loop While (reponse <> 0)
        Console.WriteLine("Au revoir")
    End Sub
 
End Module

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 Function Enseignant CreateEnsignant()
        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()
        return unEnseignant 
    End Function

[BenoitM]

si tu veux garder un array

Code :

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

Dim List(Of Enseignant) = new List(Of Enseignant)()

devient

Code :

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

Dim arrayEnseignant(10) As Enseignant

Code :

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

ListEnseignant.Add(CreateEnseignant())

devient

Code :

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

arrayEnseignant(i) = CreateEnseignant()

ne pas oublier que tu ne pourras avoir que 10 enseignants et que tu auras une exception si tu depasses se nombre donc un check a rajouter dans la boucle

[BenoitM]

Attention le i+=1 il faut le faire dans la boucle

[paintbox]

Hello BenoitM,

j'ai essayé avec une list comme tu les suggères mais il y a visiblement des soucis. Voici mon code final

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Module Main
    ' Property Creation enseignant
 
Public Function Enseignant CreateEnsignant()
        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()
        Return unEnseignant
    End Function
 
 
 
 
    Sub Main()
         Dim List(Of Enseignant) = new List(Of Enseignant)()
        Dim reponse As Integer
 
        Do
            Console.WriteLine("================================")
            Console.WriteLine("| Que souhaitez vous faire :   |")
            Console.WriteLine("| 1 - Ajouter un enseignant    |")
            Console.WriteLine("| 2 - Ajouter un  ouvrier      |")
            Console.WriteLine("| 0 - Pour sortir              |")
            Console.WriteLine("================================")
            reponse = Integer.Parse(Console.ReadLine())
 
            ' Traitement de la réponse
            Select Case reponse
                Case 1
                    ListEnseignant.Add(CreateEnseignant())
 
                Case 2
                    'NewEnsignant()
                Case Else
 
            End Select
 
        Loop While (reponse <> 0)
        Console.WriteLine("Au revoir")
    End Sub
 
End Module

et les messages d'erreur

Erreur 1 Fin d'instruction attendue.
Erreur 2 Expression attendue.
Erreur 3 'ListEnseignant' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.
Erreur 4 'CreateEnseignant' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.

[BenoitM]

Erreur 3 'ListEnseignant' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.

Code :

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

Dim List(Of Enseignant) = new List(Of Enseignant)()

tu as appellé ta list d'enseignant List et non ListEnseignant...

Code :

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

1
2
Public Function Enseignant CreateEnsignant()
()

Il faut un minimum chercher quand même

[paintbox]

j'avoue que je suis un peu déboussolé. Quand tu écris

Public Function Enseignant CreateEnseignant()

CreateEnseignant() est le nom de ma fonction qui est de type enseignant (la class) ?

Je ne saisi pas très bien ceci non plus :

Dim List(Of Enseignant) = new List(Of Enseignant)()

on déclare une liste de type enseignant ?

j'ai également du mal avec

ListEnseignant.Add(CreateEnseignant())

On ajoute à la liste enseignant la fonction CreateEnseignant ?
Cela devrait faire appel à toute la fonction ?

Merci

[BenoitM]

Code :

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

Public Function Enseignant CreateEnseignant(test As String)

Nous avons ici la déclaration d'une fonction appellé CreateEnseignant
qui un paramètre appellé test de type string
cette fonction renvois un objet de type Enseignant
la fonction est déclarer en public et donc accessible par tous
(ps elle devrait être privé)

Code :

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

Dim unEnseignant As Enseignant = new Enseignant

Nous déclarons une variable nommé unEnseignant de typpe Enseignant
Nous instancions cette variable avec un nouvel Enseignant (constructeur par défaut)

Code :

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

Dim maListEnseignant As List(Of Enseignant) = new List(Of Enseignant)()

Nous déclarons une variable nommé maListEnseignant
De type List fortement typpé (Of Enseingant) donc elle ne pourra contenir que des "Enseignant"
Ensuite nous instancions cette variable avec une liste vide (constructeur par défaut : new List(Of Enseignant)() )
Attention je n'avais pas mis le nom de la variable quand je t'ai donné le code , j'ai corrigé celui-ci

Code :

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

ListEnseignant.Add(CreateEnseignant())

Nous appellons la fonction Add de ListEnseignant qui ajoute un élément à la collection.
Cette élément est généré via la fonction CreateEnseignant()

cette ligne de code revient à faire

Code :

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

1
2
3
4
 
Dim unEnseignant As Enseignant
unEnseignant = CreateEnseignant
ListEnseignant.Add(unEnseignant)

Je comprend que tu aies du mal avec List(Of Enseignant) mais le reste est assez basic, je te conseille de lire les différents tutoriaux que tu trouveras sur ce site

[paintbox]

Merci pour tes explications, c'est déjà plus clair, mais j'ai toujours un soucis.

j'arrive finalement à ce code :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Module Main
    ' Property Creation enseignant
 
Public Function Enseignant CreateEnseignant()
        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()
        Return unEnseignant
    End Function
 
 
 
 
    Sub Main()
        Dim maListEnseignant As List(Of Enseignant) = New List(Of Enseignant)()
        Dim reponse As Integer
 
        Do
            Console.WriteLine("================================")
            Console.WriteLine("| Que souhaitez vous faire :   |")
            Console.WriteLine("| 1 - Ajouter un enseignant    |")
            Console.WriteLine("| 2 - Ajouter un  ouvrier      |")
            Console.WriteLine("| 0 - Pour sortir              |")
            Console.WriteLine("================================")
            reponse = Integer.Parse(Console.ReadLine())
 
            ' Traitement de la réponse
            Select Case reponse
                Case 1
                    maListEnseignant.Add(CreateEnseignant())
                Case 2
                    'NewEnsignant()
                Case Else
 
            End Select
 
        Loop While (reponse <> 0)
        Console.WriteLine("Au revoir")
    End Sub
 
End Module

mais j'ai les erreurs suivantes :

Erreur 1 Fin d'instruction attendue.
Erreur 2 'CreateEnseignant' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.

Je ne comprend pas la fin d'instruction attendue sur

Public Function Enseignant CreateEnseignant()

et CreateEnseignant' a quand même été déclaré ?

Ou est le problème ?

[Meiteisho]

Essaye plutot avec :

Code :

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

Public Function CreateEnseignant() as Enseignant

la syntaxe que BenoitM t'as donné semble être du C# et non du VB.net

[paintbox]

c'est effectivement mieux comme cela!

Comment puis-je récupérer la longueur de la liste pour après faire une boucle et afficher tous les enseignants rentrés?

Merci