Discussion :

[charrynsasi]

Aidez moi s'il vous plait, j'ai fait 2 jours entrain de chercher les erreurs logiques et de compilations au niveau de la procédure ci dessous.

La procédure permet seulement de faire entrer des valeurs dans une structure sommet lorsque l'utilisateur clique sur le bouton OK.

Voici ma logique. J'ai crée une structure nommée sommet, en voici sa définition

Code :

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

1
2
3
4
5
6
7
8
Structure Sommet
        Dim nom As String
        Dim nbrePred As Integer
        Dim valEtiq As Integer
        Dim etiq As Integer
        Dim tabPred() As String
        Dim tabPond() As Integer  
End Structure

J'ai crée ensuite un tableau de cette structure

Code :

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

Dim tabSommet() As Sommet

J'ai déclaré une variable qui va lire la longueur de ce tableau de structure sommet

Code :

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

Dim nbreSommet as integer

J'ai déclarée deux variables pour parcourir le tableau de structure et les deux tableaux tabPred et tabPond

Code :

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

1
2
Dim compteur as integer
Dim i as integer

Les voici mes codes

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
Private Sub Button1_Click(...) Handles Button1.Click
        Dim i As Integer
        Dim compteur as integer
        Dim tabSommet() As Sommet
        Dim nbreSommet as integer
 
        If nbreSommet = 0 Then
            nbreSommet = TextBox1.Text
            ReDim tabSommet(nbreSommet - 1)
            compteur = 0
        End If
 
        tabSommet(compteur).nom = TextBox2.Text
        tabSommet(compteur).nbrePred = TextBox3.Text
        tabSommet(compteur).valEtiq = 0
        tabSommet(compteur).etiq = compteur + 1
 
        For i = 0 To TextBox3.Text - 1
            tabSommet(compteur) = New Sommet
            tabSommet(compteur).tabPred(i) = InputBox("Introduire les Predecesseurs")        
    	    tabSommet(compteur).tabPond(i) = InputBox("Introduire les ponderations")
	Next i 
 
	compteur = compteur + 1
	TextBox2.Text = vbNullString
        TextBox3.Text = vbNullString   
        TextBox2.Focus()
        compteur = compteur + 1       
End sub

Mais lorsque je l'execute, ce message apparait: "La référence d'objet n'est pas définie à une instance d'un objet."

Comment faire ?

Merci d'avance pour votre aide.

[Redouane]

Bonjour,

Je pense que c'est à cause des tableaux tabPred et tabPond de tabSommet, ils ont comme valeur "Nothing".

Code :

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

1
2
tabSommet(compteur).tabPred(i) = InputBox("Introduire les Predecesseurs") 
tabSommet(compteur).tabPond(i) = InputBox("Introduire les ponderations")

Il faut peut être les assigner des valeurs avant de les utiliser, tu lui donne un index alors que le tableau est null reference.

[Invité]

Salut

Redouane a raison concernant les instanciations de tableaux. Également, côté logique il y a un problème, ta variable "compteur" va toujours être 0 à l'entrée de la sub puisqu'elle est déclarée localement. Et tu peux aussi optimiser le début comme suis:

Code :

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

1
2
3
4
5
6
7
8
9
Dim tabSommet() As Sommet
        Dim nbreSommet as integer
 
        If nbreSommet = 0 Then
            nbreSommet = TextBox1.Text
            ReDim tabSommet(nbreSommet - 1)
            compteur = 0
        End If

par celà:

Code :

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

1
2
3
        Dim nbreSommet as integer = TextBox1.Text
        Dim tabSommet(nbreSommet - 1)

Par défaut, un integer est toujours à 0, donc inutile de le vérifier.

[charrynsasi]

Bonjours

Je vais inspecter mes codes pour voir vos remarques

Merci de votre bonne foi

[charrynsasi]

Bonjours

Mais alors comment et à quel endroit assigner des valeurs à ces tableaux tabPred et tabPond de tabsommet

Merci

[Pol63]

ton code manque de logique et tu manques de connaissances => http://plasserre.developpez.com/cours/vb-net/