Menu

Affecter valeur à tableau défini dans une structure (VB.NET) [Résolu]

Messages postés
3
Date d'inscription
vendredi 25 janvier 2019
Dernière intervention
12 février 2019
-
Bonjour ! J'essaie de m'initier pour mon plaisie à VB.net et je me bats pour résoudre un cas apparemment banal :
Tout d'abord j'ai une expérience de 45 ans de programmation de langages divers et variés, et j'ai essayé pas mal de choses avant de poser ce qui suit (j'ai purgé ce qui ne servait pas à la compréhension du problème)
::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Module Module1

    Public Structure Plaque
        Public Valeur As UInteger
    End Structure

    Public Structure Jeu
        Public Plq() As Plaque
        Public Niv_appel As Integer
        Public Sub Initialize()
            ReDim Plq(6)
        End Sub
    End Structure

    Public Jeu_initial As Jeu

    Public Sub Main()
       Jeu_initial.Niv_appel = 6
        Jeu_initial.Plq(1).Valeur = 0
        Jeu_initial.Plq(2).Valeur = 0
        Console.ReadLine()
    End Sub
End Module

::::::::::::::::::::::::::::::::::::::::::::
Le programme connaît bien l'affectation Jeu_initial.Niv_appel = 6
Par contre, à l'exécution j'ai l'erreur sur la première ligne d'affectation : Jeu_initial.Plq(1).Valeur = 0
erreur : L'exception NullReferenceException n'a pas été gérée, La référence d'objet n'est pas définie à une instance d'un objet.
J'ai l'expérience du C où une structure contenant elle-même des structures en cascade ne pose pas de problème.
Toute aide sera bienvenue, sans m'orienter SVP vers la POO ou autre. Par conviction je veux comprendre ce problème précis. Merci d'avance !!

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 

Votre réponse

4 réponses

Messages postés
14385
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
17 février 2019
214
0
Merci
Il y a quelques différences entre les structures et les classes, entre autre :
- Les structures sont transférées par valeur par défaut contre par référence pour les classes.
- Les structures ne peuvent pas avoir de constructeur par défaut (il faut qu'il soit paramétré et appelé explicitement).

Dans ton cas, il faut soit que tu appelles la méthode Initialize "manuellement" avant de pouvoir utiliser le tableau ou alors l'assigner directement avec un tableau déjà prêt.
Commenter la réponse de NHenry
Messages postés
201
Date d'inscription
jeudi 2 mai 2013
Dernière intervention
15 février 2019
18
0
Merci
Bonjour,

Il te manque quelques lignes ...

    Public Jeu_initial As Jeu = New Jeu

    Public Sub Main()

        Jeu_initial.Niv_appel = 6
        Jeu_initial.Initialize()

        Jeu_initial.Plq(1).Valeur = 0
        Jeu_initial.Plq(2).Valeur = 0

        Console.ReadLine()

    End Sub



K
danyvio
Messages postés
3
Date d'inscription
vendredi 25 janvier 2019
Dernière intervention
12 février 2019
-
Bonjour et Merci Kalissi ! J'étais prêt à casser mon PC à coups de masse :-). Je vais étudier de près cette syntaxe !
Commenter la réponse de Kalissi
Messages postés
12758
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
19 février 2019
466
0
Merci
Bonsoir

J'ai l'expérience du C où une structure contenant elle-même des structures en cascade ne pose pas de problème.
Toute aide sera bienvenue, sans m'orienter SVP vers la POO ou autre.

Comme te l'as expliqué NHenry, c'est justement un problème de pas objet, puisqu'une structure n'est pas un objet.

Il faut comprendre que VB.Net n'est pas un langage orienté objet, mais "tout" objet. La différence est importante, même si complexe à cerner au début.
Exemple, si tu tapes
dim un as string = 1.ToString()
Intellisense ne va pas te proposer une liste de méthode quand tu vas tapper le . car il anticipe que tu tapes un double. Mais ça compile et ça marche.
Un simple 1 dans ton code est déjà un objet de type Integer.
Dans un langage orienté objet ce sera une variable (pas un objet) une fois le code compilé.

Je nuance malgré tout, les types de base, (Integer, bool, double, etc... Attention pas les string) sont basé sur des structures. Ce sont donc des types Valeurs.

A noté que le binding, un des gros points forts de .Net (surtout en WPF), marche mal, voire pas, avec des structures.
Commenter la réponse de Whismeril
Messages postés
201
Date d'inscription
jeudi 2 mai 2013
Dernière intervention
15 février 2019
18
0
Merci
Bonjour,

Voici une autre façon de faire avec des objets instanciés et non des structures.
A noter qu'au lieu de redimensionner l'objet plaque, j'ai créé une liste fortement typé.

Je te recommande d'éviter d'utiliser des instructions qui se rattache à la référence
Microsoft.VisualBasic

VisualStudio // Explorateur de solution // Clic droit sur projet // Propriétés // Onglets référence
Décoche la référence à Microsoft.VisualBasic
Cela t'éviteras d'utiliser des instructions VB6 (ReDim, CInt, Len, etc ..), toutes ces instructions on leur
équivalent .NET natif.

Dernier point : Il est toujours préférable d'utiliser des IList(Of T) au lieu de List(Of T), le IList est plus
performant au moment d'exécuter des méthodes LinQ sur ces listes.

Un fichier dans le même projet avec les structures qui sont remplacé par des classes (i.e. Objets)

Public Class Objet_Plaque

#Region "--- Attributs ---"

    Private zValeur As UInt32 = 0

#End Region

#Region "--- Propriétés ---"

    Public Property Valeur As UInt32
        Get
            Return Me.zValeur
        End Get
        Set(value As UInt32)
            Me.zValeur = value
        End Set
    End Property

#End Region

End Class

Public Class Objet_Jeu

#Region "--- Attributs ---"

    Private zLsPlq As IList(Of Objet_Plaque) = Nothing
    Private zNiv_appel As Int32 = 0

#End Region

#Region "--- Propriétés ---"

    Public Property LsPlq As IList(Of Objet_Plaque)
        Get
            Dim OldPlq As IList(Of Objet_Plaque) = Me.zLsPlq
            If (OldPlq Is Nothing) Then
                Me.zLsPlq = New List(Of Objet_Plaque)
            End If
            Return Me.zLsPlq
        End Get
        Set(value As IList(Of Objet_Plaque))
            Me.zLsPlq = value
        End Set
    End Property

    Public Property Niv_appel As Int32
        Get
            Return Me.zNiv_appel
        End Get
        Set(value As Int32)
            Me.zNiv_appel = value
        End Set
    End Property

#End Region

End Class



Et le module avec le main :

Public Module DonneesTravail

#Region "--- Attributs ---"

    Private zJeu_Initial As Objet_Jeu = Nothing

#End Region

#Region "--- Propriétés ---"

    Public Property Jeu_Initial As Objet_Jeu
        Get
            Dim OldJeu As Objet_Jeu = zJeu_Initial
            If (OldJeu Is Nothing) Then
                zJeu_Initial = New Objet_Jeu
            End If
            Return zJeu_Initial
        End Get
        Set(value As Objet_Jeu)
            zJeu_Initial = value
        End Set
    End Property

#End Region

    Public Sub Main()

        Dim ObjetPlq As Objet_Plaque = Nothing

        With Jeu_Initial
            .Niv_appel = 6
            .LsPlq = New List(Of Objet_Plaque)
            ObjetPlq = New Objet_Plaque
            ObjetPlq.Valeur = 0
            .LsPlq.Add(ObjetPlq)
            ObjetPlq = New Objet_Plaque
            ObjetPlq.Valeur = 0
            .LsPlq.Add(ObjetPlq)
        End With
        Console.WriteLine(Jeu_Initial.LsPlq.Count.ToString)
        Console.ReadLine()
    End Sub

End Module



K
danyvio
Messages postés
3
Date d'inscription
vendredi 25 janvier 2019
Dernière intervention
12 février 2019
-
Merci !!!
Commenter la réponse de Kalissi