Structure und Instanzen

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von o815michi.

    Structure und Instanzen

    Hallo,

    sehr oft macht mir die Fehlermeldung: "Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt." einen Strich durch meinen Code.

    Woran liegt es in meinen konkreten Beispiel.


    VB.NET-Quellcode

    1. Public Structure Grunddaten_neu
    2. Public Neu_Zeichen As String
    3. Public Ordner_Liste As ArrayList
    4. End Structure
    6. Public GDat As New Grunddaten_neu
    8. Public Sub setze_Grundwerte()
    9. Dim Ordner1 As String = "A, B, C"
    10. Dim Ordner2() As String
    12. Ordner2 = Ordner1.Split(",")
    14. GDat.Ordner_Liste.Addrange(Ordner2)
    16. End Sub


    Meiner Meinung nach, ist doch Gdat eine Instanze von Grunddaten_Neu, warum versteht das VB nicht?

    Ich habe dieses Vorgehensweise gewählt, weil ich aus Verschiedenen Klassen Werte in die Gdat-Struktur Speichern möchte, und diese dann gemeinsam Speichern möchte.
    Die Konstuktion mit Arraylist habe ich vor kurzen erst geänder, weil bei einem einfachen Stringarray es Probleme mit dem anfügen neuer "Ordner" gibt.

    Hat jemand Vorschläge für mich wie ich das Umbauen kann?

    Grüße
    o815michi

    Edit by ~blaze~:
    *VB-Tags eingefügt*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „~blaze~“ ()

    Hi
    Innerhalb deiner Struktur existiert ja eine ArrayList (Ordner_Liste). Diese benötigt ebenfalls eine Instanz, um verwendet zu werden. Strukturen lassen das übrigens im parameterlosen Konstruktor nicht zu, daher würde ich auf eine Klasse ausweichen.

    Setze den Code bitte zukünftig in VB-Tags.

    Gruß
    ~blaze~

    Hallo,

    genau das wollte ich eigentlich vermeiden. Das macht mir ja nicht weniger Arbeit sondern wesentlich mehr. Nur um so ein paar Daten ordentlich speichern zu können.

    Danke, für die schnelle Antwort. Der nächste "NullReferenceException" ist sicherlich nicht weit.

    Was ich mich allerdings frage, ist, warum man dann Arraylists überhaut in einer Structure definieren kann, wenn sie dann nicht zu benutzen gehen. (Das Studio meldet ja sogar unbenutzte Variablen als Warnungen, warum sowas nicht.)

    Grüße
    o815michi

    Wieso sollte eine Klasse mehr Arbeit machen?
    Wenn du eine Arraylist deklarierst, dann mußt du vor dem Füllen auch eine Insatnz mit new Arraylist erzeugen. Das geht in einer Klasse problemlos mit public Ordnerlist as new Arraylist. (Oder auch Shared, wenns klassengebunden sein soll).
    Diese Klasse kann sogar als Shared Sub deine Speicherroutine enthalten. Die rufst du dann mit GDat.Speichern() auf und feddich.
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    Die nicht instanziierten Variablen werden nur gemeldet, wenn sie innerhalb einer Methode keinen Wert zugewiesen bekommen. Du kannst die ArrayList natürlich schon verwenden, nur musst du ihr halt außerhalb einen Wert zuweisen:

    VB.NET-Quellcode

    1. Dim Instance As New Grunddaten_neu
    2. Instance.Ordner_Liste = new ArrayList()


    Gruß
    ~blaze~

    Hallo,

    Wieso sollte eine Klasse mehr Arbeit machen?


    Nehmen wir mal nan ein ich Vergleiche eine Structure mit sagen wir mal 100 Variablen mit einer Klasse, die 100 Eigenschaften besitzt.

    Die Variablen schreibe ich recht schnell mit der zugehörigen Definitiom in die Stucture. Der Vollständigkei halber muss ich dann auch noch ein paar Methoden definieren die die Variablen bearbeiten.

    Bei der Klasse sieht das dann etwas anders aus. Als erstet muss ich die Klasse definieren, dann die ganzen Variablen und dann auch noch obendrauf die ganzen Propertys um auf die Variablen zugreifen zu können.
    Das wars aber noch nicht, für jede Methode die mir VB bereistellt brauche ich eine "übersetzter"-Methode in der Klasse.
    Will ich schnell die Count Eigenschaft einer Auflistung auslesen, kann ich das in der Strucktur recht problemlos. Aber in der Klasse muss ich erst eine Sub "Count auslesen" definiere, sonst geht es nicht.

    Vielleicht habe ich da auch etwas Grundsätzlich falsch verstanden, aber Klassen haben für mich so einen Anklang von viel Schreibarbeit mit wenig Inhalt und viel Speicherverbrauch. (Aus einer Variable mache ich ja 2 und mehr.)


    Grüße
    o815michi

    o815michi schrieb:

    Vielleicht habe ich da auch etwas Grundsätzlich falsch verstanden
    Ja, hast du.
    Du mußt nicht für jede Variable ne Property "obendrauf setzen". Die Property stellt dir lediglich die Methoden get und set zur Verfügung, in denen du beim setzen oder lesen einer variable reagieren kannst. z.B. könntest du im Set abfangen, dass der radius eines Kreises nicht 0 sein darf. Ist das nicht nötig, kannst du deine Variable einfach Public deklarieren und dann direkt mit Instanzname.variablename darauf zugreifen. Ist deine Liste als Public deklariert, kannst du ebenfalls mit Instanzname.Listenname.Listenmethode darauf zugreifen, also genauso einfach den Count erfahren, der dir solche Sorgen macht.
    Und noch etwas: Benötigst du nur 1 Instanz mit den 100.000 Variablen, kannst du alles als Shared deklarieren. Der Zugriff erfolgt dann mit Klassenname.Variablenname ohne das du vorher eine Instanz der Klasse erzeugen mußt.
    Der Unterschied zur Structur ist eigentlich vom Schreibaufwand her gleich.
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    o815michi schrieb:

    und dann auch noch obendrauf die ganzen Propertys um auf die Variablen zugreifen zu können.

    Wechsel halt auf VB 2010. Der unterstützt die vereinfachten Properties wie sie auch C# schon lange hat.

    Public Property Foo As String

    Kein Get, kein Set, keine interne Membervariable -> macht alles der Compiler automatisch! Die Membervariable heißt dann übrigens _Foo

    Liste.Count?

    Public Property Foo As List(Of String)

    MeineKlasse.Foo.Count ...

    Geht natürlich ohne "New" in der Klasse genauso in die Hose wie bei Struct ;)

    Übrigens haben Structures auch diverse Nachteile. zb "boxing"!
    knowdotnet.com/articles/boxedstructures.html

    Vatter schrieb:

    kannst du deine Variable einfach Public deklarieren und dann direkt mit Instanzname.variablename darauf zugreifen


    Ich weis, das das möglich ist. Aber laut meinen Informationen ist das keine gute Art zu programmieren. Für was brauche ich dann eigentlich die Klasse noch. Ich könnte das dann doch auch einfach in ein Modul machen. Die Diskussion ist mir aber etwas zu philosophisch.

    picoflop schrieb:

    Wechsel halt auf VB 2010.


    Nein danke, nicht schon wieder eine neue Programmierumgebung. Meine (unfertigen VB5 ) Programme haben es noch nicht alle auf VB2008 geschafft. Die die es geschaft haben sind grün vor Kommentaren "geht nicht" weil. ...


    VB.NET-Quellcode

    1. Public Structure Grunddaten_neu
    2. Public Pfad As String 'Einstellungspfad
    3. Public Shared Ordner_Liste As ArrayList 'String
    4. End Structure
    8. Public Sub Load2()
    9. If Not File.Exists(GDat.Pfad) Then Exit Sub
    10. FileOpen(1, GDat.Pfad, OpenMode.Binary, OpenAccess.Read)
    11. FileGet(1, GDat, 1)
    12. FileClose(1)
    13. Ordner_ausgeben()
    14. End Sub
    16. Public Sub Save2()
    17. FileOpen(1, GDat.Pfad, OpenMode.Binary, OpenAccess.Write)
    18. FilePut(1, GDat, 1)
    19. FileClose(1)
    20. End Sub
    22. Private Sub setze_Grundwerte()
    23. Grunddaten_neu.Ordner_Liste = New ArrayList()
    24. Dim Ordner1 As String = "A,B,C"
    26. 'Grunddaten
    27. 'testmodus
    28. GDat.Pfad = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "eigene\sonstiges\Programme\Datsort\Einstellungen.ini"
    29. 'Einstellungen
    30. Grunddaten_neu.Ordner_Liste.AddRange(Ordner1.Split(","))
    32. end sub


    Ich setze erst die Grundwerte, dann Speichere ich, oder Lade nach Bedarf (Wenn Datei vorhanden ist Lade ich logischerweise.)
    Warum pack Fileput den Inhalt der Arraylist nicht in die Datei? Die anderen Variablen sind alle vorhanden.


    Grüße
    o815michi

    Du musst das dann so gestalten:

    VB.NET-Quellcode

    1. Public Structure Grunddaten_neu
    2. Public Pfad As String 'Einstellungspfad
    3. Public Ordner_Liste As ArrayList 'String
    4. End Structure
    6. Private Sub setze_Grundwerte()
    7. Dim Ordner1 As String = "A,B,C"
    8. Dim gnInstance As New Grunddaten_neu()
    9. gnInstance.Ordner_Liste = New ArrayList()
    11. 'Grunddaten
    12. 'testmodus
    13. GDat.Pfad = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "eigene\sonstiges\Programme\Datsort\Einstellungen.ini"
    14. 'Einstellungen
    15. gnInstance.Ordner_Liste.AddRange(Ordner1.Split(","c))
    17. end sub


    Hab' neben der Verarbeitung der Struktur noch ein paar kleine Änderungen vorgenommen. Eventuell solltest du auch bei Environment.GetFolderPath eine Verknüpfung der Pfade mit IO.Path.Combine vornehmen. Da das aber eine ganze Verkettung ist mit den Ordnern (durch das \-Zeichen) und das ggf. auf anderen Systemen zu Problemen führt, empfehle ich die Verwendung folgendes Codes: [VB.NET] Mehrere Pfadteile verknüpfen

    Du solltest statt FilePut etc. die IO.StreamWriter- und IO.StreamReader-Klassen verwenden.

    Edit: Sorry, hab zu schnell auf Absenden geklickt.

    Gruß
    ~blaze~

    Hallo,

    ich habe mir einige Gedanken über den Code gemacht, und bin zu dem Schluss gekommen, das dieses Problem nun gelöst ist.

    Meine Lösung beinhaltet keine Arraylist mehr (die angeblich viel kompfortabler Daten speichert) sondern ein ganz normales Array was in allen meinen wichtigen Belangen besser funktioniert.

    Hier die Klasse zum Erzeugen, Laden, Speichern und Grundwerte setzen
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Load_Save
    2. Public Structure Grunddaten_class
    3. Public Pfad As String 'Einstellungspfad
    4. '...
    5. Public Ordner_Liste() As String
    6. '...
    7. End Structure
    9. Public Gdat As New Grunddaten_class
    11. Public Sub Save()
    12. FileOpen(1, Pfad, OpenMode.Binary)
    13. FilePut(1, Gdat)
    14. FileClose(1)
    15. End Sub
    17. Public Sub Load()
    18. FileOpen(1, Pfad, OpenMode.Binary)
    19. FileGet(1, Gdat)
    20. FileClose(1)
    21. End Sub
    24. Private Sub Setze_Grundwerte()
    26. Dim Ordner1 As String ="A.B,C"
    27. Dim L1() As String
    29. L1 = Ordner1.Split(",")
    31. For A = 0 To L1.GetUpperBound(0)
    32. Gdat.Ordner_Liste(A) = L1(A)
    33. Next
    35. end class


    Die Klasse Einstellungen, wo die Ordnerliste gespeichert wird.
    (In die Listbox wird die Liste beim Start eingelesen und beim klicken auf Speichern so abgespeichert.
    In der Listbox kann man dann Löschen, Ändern und hinzufügen)
    LB1 = Listbox1 / LS = Load_Save instance
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public LS As New Load_Save
    3. Private Sub CB1_Click ...
    4. 'Einstellungen speichern
    6. Dim ICO, A As Integer
    7. ICO = LB1.Items.Count - 1
    8. ReDim LS.Gdat.Ordner_Liste(ICO)
    10. A = 0
    11. For Each Item As String In LB1.Items
    12. LS.Gdat.Ordner_Liste(A) = Item
    13. A += 1
    14. Next
    16. LS.Save()
    17. Me.Close()
    19. End Sub



    Der Array hat den großen Vorteil das sowohl Fileput als auch FileGet die Strucktur als ganzes behandeln und alles mit allen Elementen machen.
    Ich muss daher nicht wie es wahrscheinlich bei der Arraylist ist jedes Element einzeln ansprechen. Dadurch erspare ich mir recht viel Code.
    (Grunddaten_class enthält ja inzwischen 17 Mitglieder davon 5 Arrays.
    Ich weis, das mein Code an einigen Stellen sehr ausführlich ist. Das ist so gewollt wegen der vielen zwischenzeitlichen Änderungen.
    Wenn Deklarationen vermisst werden, möchte ich darauf hinweisen, das ich sie nur vergessen habe sie zu kopieren. Sie sind auf 10 verschiedene Klassen/Module verteilt.)

    Grüße
    o815michi

Facebook
Telefonspende