correction d un code en vb.net

Version imprimable

je vous en prie une j ai un probleme au niveau de poo en vbnet j ai une classe etagere de livre et une classes de livres et un module de sub main
j ai une boite de debogage lors d execution qui me dit :La référence d'objet n'est pas définie à une instance d'un objet.

le code c est comme suit :
classe livre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Class livre 
    Private _titre As String 
 
    Public Sub New() 
 
    End Sub 
 
    Property titre() 
        Get 
            Return _titre 
        End Get 
        Set(ByVal value) 
            _titre = value 
        End Set 
    End Property 
End Class

la classe etagere:

Code:

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
Public Class etagere 
    Private t() As livre 'un tableau des livres 
    Public nb As Integer 
    Dim j As Integer 'le nombre de livre existant dans l'etager 

    Sub New() 

    End Sub 

    Sub New(ByVal nombrlivre As Integer) 'le programmeur va choisir le nombre des livres que peut contien un etager 
        nb = nombrlivre - 1 
        ReDim t(nb) 
        t(nb) = New livre 
    End Sub 
     
    Sub ajouter_livre(ByVal titr As String) 

        If j <= nb Then 'on ajoute à condition qu on depasse pas le nombre de livre que peut supporter l'etager 
            t(j).titre = titr ' le programme se bloque ici
            j = j + 1 
        Else 
            Console.WriteLine("l'etager est pleine") 
        End If 
    End Sub 
     
End Class

et le module pour tester le programme:

Code:

1
2
3
4
5
6
7
8
Module Module1 
    Dim etager1 As New etagere(4) 'ici je precise 4 livre pour l etagere1
    Sub Main() 
 
        etager1.ajouter_livre("vb.net") 
 
    End Sub 
End Module

******le debogage s effectue au niveau de la classe etager la procedure ajouter_livre() la ligne t(j).titre = titr
je vous en prie de me faire la correction le plus vite possible pr c q je suis pressé par les examen et merci

27/04/2009, 14h48
lola06

Salut,
Pourrais-tu mettre ton code entre les balises #Code stp ? Ce serait plus lisible pour tous.
Peut etre que ton problème vient du fait que t n'est pas public, il est en private.

Code:

Private t() As livre 'un tableau des livres

J'espère que cela va t'aider.

Dans l'initialisation de ton etagere (new) tu n'assigne un livre qu'a la position 4 :

Code:

Dim etager1 As New etagere(4)
Code:

1 2 3 4 5 Sub New(ByVal nombrlivre As Integer) 'le programmeur va choisir le nombre des livres que peut contien un etager nb = nombrlivre - 1 ReDim t(nb) t(nb) = New livre End Sub
Donc quand tu tente d'appeler la méthode ajouter livre :
Code:

1 2 3 4 5 6 7 8 9 Sub ajouter_livre(ByVal titr As String) If j <= nb Then 'on ajoute à condition qu on depasse pas le nombre de livre que peut supporter l'etager t(j).titre = titr ' le programme se bloque ici j = j + 1 Else Console.WriteLine("l'etager est pleine") End If End Sub
tu bloque sur cette ligne car tu appelles une propriété sur la variable t(0) qui n'as pas encore recu d'objet. (il n'y en a qu'un en t(4))

Pour bien faire, quand tu fait ton new il faudrait que tu fasses une boucle qui remplit tout les livres... :
Code:

1 2 3 4 5 6 7 Sub New(ByVal nombrlivre As Integer) 'le programmeur va choisir le nombre des livres que peut contien un etager nb = nombrlivre - 1 ReDim t(nb) for i as integer = 0 to nb t(i) = New livre end for End Sub

27/04/2009, 23h54
vbnetnet

oui c est la solution que j ai trouvé juste directement apres l envoie de ma question et j ai compris ma faute il s agit que j ai instancié seulement l objet de dernier case de tableau de toute façon merci Sankasssss de ton intervention correcte

merci à votre intervention lola06 c est gentie
l essentiel qu on se partage nos idées merci à nouveau.
28/04/2009, 13h28
tssi555

[VB.NET/SQL Server] Problème régulier lors du lancement

Bonjour,

Pour faire des tests, je lance l'application avec F5. la majorité du temps ca marche, sauf parfois ca coince, aucune erreur de code, rien n'est bizare, l'application ne se lance pas et souligne moi en jaune à chaque fois une méthode .show d'une forme! avec un petit "trine" comme un message informatif mais pas de message, 8O. Dans le meilleurs des cas, je relance Visual Studio et ca fonctionne mais parfois il faut relancer la machine! :?

Avez - vous une idée d'où pourrait provenir le problème?

Merci