Singleton

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von StGo.

    Singleton

    Morgen zusammen,

    ich suche nach einer Lösung um ein Ojekt einer Klasse Projektweit zu verwenden. Dabei bin ich auf das Thema Singleton gestoßen. Ich frage mich nur warum ich auf die Set Methode meiner Klasse nicht zugreifen kann? Hat jemand eine Idee?

    Aufruf in der Main Dim MeinSingletonString = Singleton.Instance.GetTestString

    Singleton Klasse:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Singleton
    3. Private Shared MySingleton As Singleton
    5. Public Shared Property Instance() As Singleton
    7. Get
    9. If IsNothing(MySingleton) Then
    11. MySingleton = New Singleton
    13. End If
    15. Return MySingleton
    17. End Get
    19. Set(value As Singleton)
    21. End Set
    23. End Property
    25. Private _TestString As String
    27. Public Property GetSetTestString As String
    29. Get
    31. Return _TestString
    33. End Get
    35. Set(value As String)
    37. _TestString = value
    39. End Set
    41. End Property
    43. Private Sub TestStringFuellen() 'Beispielmethode
    45. _TestString = "Dies ist ein test zum Thema Singleton"
    47. End Sub
    49. End Class



    EDIT: Code angepasst

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „StGo“ ()

    Die ist Private (falls fu die Methode TestStringFuellen meinen solltest).
    Auch bei Singleton Klassen gilt das selbe wie bei "normalen" Klassen, dass diese mindestens Friend (im gemeinsamen Projekt) sein muss.
    Sonst halt Public.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Morgen,

    ohhh ich habe mich mit meiner Schreibweise selber überlistet. Das Private ist schon richtig. Ich will ja die Methode/Member in der Klasse Kapseln. Aber ich habe Getter und Setter als "GetTestString" bezeichnet. Man kann aber damit das member setzen und lesen.

    Ich änder das Beispiel. Dann hilft es eventuell auch anderen weiter.

    Danke

    EDIT: Habe den Code für das Verständnis geändert:

    Hier die Main:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. Dim MeinSingletonString = Singleton.Instance.GetSetTestString
    7. Singleton.Instance.GetSetTestString = "geändert"
    9. Dim MeinSingletonString2 = Singleton.Instance.GetSetTestString
    11. End Sub
    13. End Class


    Und hier die Singleton-Klasse:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Singleton
    3. Private Sub New()
    5. _TestString = "Dies ist ein test zum Thema Singleton"
    7. End Sub
    9. Private Shared MySingleton As Singleton
    11. Public Shared Property Instance() As Singleton
    13. Get
    15. If IsNothing(MySingleton) Then
    17. MySingleton = New Singleton
    19. End If
    21. Return MySingleton
    23. End Get
    25. Set(value As Singleton)
    27. End Set
    29. End Property
    31. Private _TestString As String
    33. Public Property GetSetTestString As String
    35. Get
    37. Return _TestString
    39. End Get
    41. Set(value As String)
    43. _TestString = value
    45. TestStringFuellen()
    47. End Set
    49. End Property
    51. Private Sub TestStringFuellen() 'Beispielmethode
    53. _TestString = "Jetzt ist der String " & _TestString
    55. End Sub
    57. End Class


    Ich denke das kann man verstehen. Anscheinend war ich heute Morgen noch nicht wach :)

    Hatte heute Morgen noch kein KATA (Robert C. Martin) gemacht ;)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „StGo“ ()

    Für was hast du die Methode TestStringFuellen() ?
    Wenn ich der Property GetSetTestString einen Wert zuweise (zB.: "Test1") ist eigentlich der Wert:" Jetzt ist der String Test1" gespeichert.
    _TestString wird beim Zuweisen der Property 2 mal ein Wert zugewiesen (einmal über den Setter der Property -> _TestString = value und einmal über TestStringFuellen()).

    Lass einfach die Property und entferne diese TestStringFuellen Methode.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    StGo schrieb:

    selber überlistet
    So isses.

    VB.NET-Quellcode

    1. Dim MeinSingletonString = Singleton.Instance.GetSetTestString
    3. Dim si1 = New Singleton
    4. si1.GetSetTestString = "Bla1"
    6. Dim si2 = New Singleton
    7. si2.GetSetTestString = "Bla Bla2"
    9. MessageBox.Show(si1.GetSetTestString & Environment.NewLine & si2.GetSetTestString & Environment.NewLine & MeinSingletonString)
    Mach in der Klasse Singleton das New explizit Private:

    VB.NET-Quellcode

    1. Private Sub New()
    2. _TestString = "Dies ist ein test zum Thema Singleton"
    3. End Sub

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @fichz

    Klar kann man über den Setter eine Zuweisung machen. Aber man möchte eventuell den Wert Formatieren oder sonst was damit tun ohne die Methode nach aussen zugänglich zu machen. So war der gedanke des beispiels. Falls ich deine Frage/Einwand richtig verstehe.
    Ansonsten schreib doch ein kurzes Beispiel. Mich würde schon interessieren wie du es mit Properties hälst.

    Gruß

    Ich würde es aus dem Bauchgefühl so machen:

    VB.NET-Quellcode

    1. Module Module1
    3. Sub Main()
    4. Dim c As New Test() With {.Test = "Teststring"}
    5. Console.WriteLine(c.Test)
    6. Console.WriteLine(c.TestHaltAnders)
    8. Console.ReadLine()
    9. End Sub
    11. End Module
    13. Class Test
    14. Private _Test As String
    15. Public Property Test() As String
    16. Get
    17. Return _Test
    18. End Get
    19. Set(ByVal value As String)
    20. _Test = value
    21. End Set
    22. End Property
    24. Public ReadOnly Property TestHaltAnders() As String
    25. Get
    26. Return "Modifiziert " & _Test
    27. End Get
    28. End Property
    30. End Class


    So wie du es in deinem Beispiel hast wird der String IMMER falsch verändert
    Nämlich so:
    singleton.GetSetTestString = "Test"
    daraus wird:
    -> _TestString = value (SetTeil)
    _TestString hat den Wert "Test"
    -> Im Setter wird IMMER TestStringFuellen() aufgerufen
    _TestString = "Jetzt ist der String " & _TestString
    _TestString hat den Wert "Jetzt ist der String Test"

    In deinem Fall hält die Variable _TestString NIE den gesetzten Wert sondern immer einen modifizierten.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

Facebook
Telefonspende