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 : 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 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:
et le module pour tester le programme:
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 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
******le debogage s effectue au niveau de la classe etager la procedure ajouter_livre() la ligne t(j).titre = titr
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
je vous en prie de me faire la correction le plus vite possible pr c q je suis pressé par les examen et merci
Partager