MultiThreading und Klassenzugriff

  • .NET 5–6
  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von AiKazuya.

    MultiThreading und Klassenzugriff

    Hallo zusammen,

    Ich habe ein Problem mit Multithreading und Klassen und daher eine kleines Testtool gebaut.
    Es werden 5 Threads durch klick auf einen Button erzeugt und übergebe da die Zahl (1 bis 5) zur Zuordnung.
    Beim Start jedes Threads wird eine Testklasse Instanziert und die Werte in die Properties geschrieben.

    Die klasse macht einfach nur eine Addition von Zahlen.

    Jeder Thread schreibt seine werte in (eigentlich) seine eigene .csv-Datei (siehe auch Dateianhang).
    Wenn ich diese mir anschaue, haben die einzelnen CSV-Dateien die Werte der Anderen Threads, obwohl diese nicht miteinander kommunizieren.

    Wie bekomme ich es hin, dass die Threads die Werte in der Klasse nicht an die anderen Threads weitergibt.
    oder wo liegt hier mein Denkfehler?

    Form1.vb
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public w_(10) As Threading.Thread
    3. Public dt_(10) As DataTable
    4. Dim a(10) As Class1
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    7. Dim test As New Threading.Thread(AddressOf Test_Thread)
    9. test.SetApartmentState(Threading.ApartmentState.STA)
    10. test.IsBackground = True
    11. test.Start()
    12. End Sub
    14. Sub Test_Thread()
    15. For i As Integer = 1 To 2
    16. w_(i) = New Threading.Thread(AddressOf Test_Thread2)
    17. w_(i).SetApartmentState(Threading.ApartmentState.STA)
    18. w_(i).IsBackground = True
    20. w_(i).Start(i)
    21. Next
    22. End Sub
    23. Sub Test_Thread2(worker As Integer)
    24. Dim header As String = "id1;id2;id3;id4" & vbCrLf
    25. My.Computer.FileSystem.WriteAllText(My.Application.Info.DirectoryPath & "\" & worker & ".write.csv", header, False)
    27. Dim b As New Class1
    28. Dim i_max As Integer = 100
    29. For i As Integer = 0 To i_max
    31. Select Case worker
    32. Case 1
    33. Me.Invoke(Sub() ProgressBar1.Minimum = 0)
    34. Me.Invoke(Sub() ProgressBar1.Maximum = i_max)
    35. Me.Invoke(Sub() ProgressBar1.Value = i)
    36. b.work_id2 = 1
    37. Case 2
    38. Me.Invoke(Sub() ProgressBar2.Minimum = 0)
    39. Me.Invoke(Sub() ProgressBar2.Maximum = i_max)
    40. Me.Invoke(Sub() ProgressBar2.Value = i)
    41. b.work_id2 = 2
    42. Case 3
    43. Me.Invoke(Sub() ProgressBar3.Minimum = 0)
    44. Me.Invoke(Sub() ProgressBar3.Maximum = i_max)
    45. Me.Invoke(Sub() ProgressBar3.Value = i)
    46. b.work_id2 = 3
    47. Case 4
    48. Me.Invoke(Sub() ProgressBar4.Minimum = 0)
    49. Me.Invoke(Sub() ProgressBar4.Maximum = i_max)
    50. Me.Invoke(Sub() ProgressBar4.Value = i)
    51. b.work_id2 = 4
    52. Case 5
    53. Me.Invoke(Sub() ProgressBar5.Minimum = 0)
    54. Me.Invoke(Sub() ProgressBar5.Maximum = i_max)
    55. Me.Invoke(Sub() ProgressBar5.Value = i)
    56. b.work_id2 = 5
    57. End Select
    59. b.work_id1 = i
    60. Threading.Thread.Sleep(10)
    62. b.summa()
    63. 'a(worker).summa2()
    64. Dim c As New Class1
    65. c.work_id1 = b.work_id1
    66. c.work_id2 = b.work_id2
    67. c.work_id3 = b.work_id3
    68. c.work_id4 = b.work_id4
    69. c.summa2()
    71. Dim txt As String = c.work_id1 & ";" & c.work_id2 & ";" & c.work_id3 & ";" & c.work_id4 & vbCrLf
    72. My.Computer.FileSystem.WriteAllText(My.Application.Info.DirectoryPath & "\" & worker & ".write.csv", txt, True)
    74. dt_(worker).BeginLoadData()
    76. dt_(worker).Rows.Add(New Object() {b.work_id3})
    78. dt_(worker).EndLoadData()
    80. dt_(worker).AcceptChanges()
    81. Next
    83. End Sub
    85. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    86. For i As Integer = 1 To 5
    87. dt_(i) = New DataTable
    88. dt_(i).TableName = "test"
    89. dt_(i).Columns.Add("id")
    90. a(i) = New Class1
    91. Select Case i
    92. Case 1
    93. ComboBox1.ValueMember = "id"
    94. ComboBox1.DisplayMember = "id"
    95. ComboBox1.DataSource = dt_(i)
    96. Case 2
    97. ComboBox2.ValueMember = "id"
    98. ComboBox2.DisplayMember = "id"
    99. ComboBox2.DataSource = dt_(i)
    100. Case 3
    101. ComboBox3.ValueMember = "id"
    102. ComboBox3.DisplayMember = "id"
    103. ComboBox3.DataSource = dt_(i)
    104. Case 4
    105. ComboBox4.ValueMember = "id"
    106. ComboBox4.DisplayMember = "id"
    107. ComboBox4.DataSource = dt_(i)
    108. Case 5
    109. ComboBox5.ValueMember = "id"
    110. ComboBox5.DisplayMember = "id"
    111. ComboBox5.DataSource = dt_(i)
    112. End Select
    113. Next
    114. End Sub
    115. End Class


    Class1.vb
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Class1
    2. Private Shared id1 As Integer
    3. Private Shared id2 As Integer
    4. Private Shared id3 As Integer
    5. Private Shared id4 As Integer
    7. Public Property work_id1() As Integer
    8. Get
    9. Return id1
    10. End Get
    11. Set(value As Integer)
    12. id1 = value
    13. End Set
    14. End Property
    15. Public Property work_id2() As Integer
    16. Get
    17. Return id2
    18. End Get
    19. Set(value As Integer)
    20. id2 = value
    21. End Set
    22. End Property
    23. Public Property work_id3() As Integer
    24. Get
    25. Return id3
    26. End Get
    27. Set(value As Integer)
    28. id3 = value
    29. End Set
    30. End Property
    31. Public Property work_id4() As Integer
    32. Get
    33. Return id4
    34. End Get
    35. Set(value As Integer)
    36. id4 = value
    37. End Set
    38. End Property
    40. Public Sub New()
    42. End Sub
    44. Sub summa()
    45. id3 = id1 + id2
    46. 'summa2()
    47. End Sub
    48. Sub summa2()
    49. id4 = id3 + id2
    50. End Sub
    51. End Class


    *Thema verschoben das es nichts mit WPF zu tun hat. Bitte das nächste mal darauf achten. Danke. ~NoFear23m
    Dateien

    • Thread_1.csv

      (1,21 kB, 51 mal heruntergeladen, zuletzt: )

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

    @AiKazuya Willkommen im Forum. :thumbup:
    Bevor wir hier wüst in multiplen Threads rumstochern, beschreibe mal ganz genau, was da eigentlich passieren soll.
    Gegen eine klare Aufgabenstellung kann man nämlich ordentlich testen. ;)
    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!

    Das richtige Tool ist ein Analysetool für ca 20k Router.
    Da ich nicht jeden Router einzeln abfragen möchte, habe ich die Funktionien in eine eigene Sub gepackt und daraus Threads gemacht, die dynamisch erzeugt werden, jenachdem, wie viele Threads man gleichzeitig nutzen möchte.
    in den Threads instanziere ich die Klasse für die Daten des Routers (IP, Passwort, Zertifikatsdaten, etc) und übergebe diese an die Propertys der Klasse.
    Dann wird aus dem Thread heraus die Routerereichbarkeit geprüft
    Ich starte aus dem Thread die Sub für die Abfrage der Router und anschließend verbinde ich mich per SSH (winscp), um die Daten abzufragen.
    in der Sub werden die Propertys der Klasse geändert und anschließend holt der Thread sich die Daten aus der Klasse und speichert die in eine Datenbank.
    Das funktioniert auch soweit, sofern ich nur einen einzigen Thread nutze.
    Bei 2 Threads oder mehr werden die Daten in der Klasse von den anderen Threads überschrieben und ich erhalte Daten eines ganz anderen Routes, als von dem, wo ich hin wollte.

    So verhält sich aber auch das "Testtool" oben.
    mit dem Button1 erstelle ich den Test_Thread und starte diesen.
    von dem Test_Thread werden dann 5 weitere Test_Thread2 erstellt und die Zahl (worker) der For-Schleife mit übergeben.
    In jedem Test_Thread2 wird die Class1 als "b" instanziert.
    Ich übergebe an die "b"-Class1-Propertys dann die Werte entsprechend des "worker".
    b.work_id2 = 1, b.work_id = 2, etc
    Danach beginnt eine For-Schleife und übergebe innerhalb dieser den Wert
    b.work_id1 = i
    Im Anschluss starte ich b.summa() um eine kleine Addition zu starten.

    code kann an sich weg, war nur zum testen:
    Spoiler anzeigen
    ist dies erledigt, wird die Class1 als "c" instanziert.
    Nun die Werte von b.work_id1 an c.work_id1, etc übergeben.

    Dann rufe ich b/c.summa2() auf um eine weiter Addition zu starten, anhand der Werte, welche ja in der Property bereits enthalten sind.
    (wurden ja durch die erste Addition überschrieben)

    ist die zweite Addition durchgeführt, lasse ich mir die Werte in eine CSV ausgeben und muss feststellen, dass die Thread_1.csv Werte vom 2-5 Thread enthält.

    AiKazuya schrieb:

    VB.NET-Quellcode

    1. Public w_(10) As Threading.Thread
    2. Public dt_(10) As DataTable
    3. Dim a(10) As Class1
    Mach Dir eine einzioge Klasse, die w_, dt_ und a enthält, die arbeitet dann nur in sich ohne Quer-Griff.

    AiKazuya schrieb:

    VB.NET-Quellcode

    1. Me.Invoke(Sub() ProgressBar1.Minimum = 0)
    2. Me.Invoke(Sub() ProgressBar1.Maximum = i_max)
    3. Me.Invoke(Sub() ProgressBar1.Value = i)
    Mach da ein einziges Invoke() draus, wo Du nur den Index übergibst.
    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!

    AiKazuya schrieb:

    Public Class Class1
    Private Shared id1 As Integer
    Private Shared id2 As Integer
    Private Shared id3 As Integer
    Private Shared id4 As Integer

    Musste ich gerade selber durch debuggen, bis ich das gesehen habe, aber die Class1 Objekte teile sich alle diese 4 Variablen, da die alle Shared sind.

    @Bluespide Gut :!: Ist mir gar nicht aufgefallen.
    @AiKazuya Ich hätte diese Klasse so zusammengeschoben:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Class1
    2. Public Property work_id1() As Integer
    3. Public Property work_id2() As Integer
    4. Public Property work_id3() As Integer
    5. Public Property work_id4() As Integer
    7. Public Sub New()
    9. End Sub
    11. Sub summa()
    12. work_id3 = work_id1 + work_id2
    13. 'summa2()
    14. End Sub
    15. Sub summa2()
    16. work_id4 = work_id3 + work_id2
    17. End Sub
    18. End Class

    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!

    Bluespide schrieb:


    Musste ich gerade selber durch debuggen, bis ich das gesehen habe, aber die Class1 Objekte teile sich alle diese 4 Variablen, da die alle Shared sind.


    Das war es.
    Wenn die nicht Shared sind, arbeiten die für sich selbst.
    kann so einfach sein ^^
    Danke =)



    RodFromGermany schrieb:


    Public w_(10) As Threading.Thread
    Public dt_(10) As DataTable
    Dim a(10) As Class1

    das werde ich auf jedenfall noch umschreiben, sodass alles wirklich für sich arbeitet und nichts in die Quere kommt.

    RodFromGermany schrieb:

    Mach da ein einziges Invoke() draus, wo Du nur den Index übergibst.

    Auch das werde ich noch anpassen =)

Facebook
Telefonspende