Mutli-Threading mit Numeric Up-Down

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

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Mutli-Threading mit Numeric Up-Down

    Guten Tag,
    ich schreibe grade ein Programm, es funktioniert alles hervorragend, nur möchte ich wissen wie man Multi-Threading einsetzt ich habe gerade alles in einem Timer.
    Das Programm soll checken ob die website funktionert sprich:

    VB.NET-Quellcode

    1. Try
    2. Dim wc as new Net.WebClient
    3. wc.DownloadString("google.com")
    4. Textbox1.AppendText("Valid" + SeitenLink)
    6. Catch ex as Exception
    7. wc.DownloadString("gooafwafgawgfgle.com")
    8. Textbox1.Text("Unvalid" + SeitenLink)
    9. End Try


    Das kann ich natürlich mit einem Thread machen sprich:

    VB.NET-Quellcode

    1. Public Async Sub Check
    2. dim wc as net net.webclient
    3. Await wc.DownloadStringTaskAsync(New Uri("gaepighawgnawg.com"))


    Aber genau das ist mir immernoch zu langsam ich will es mit z.B 40 Threads laufen lassen das es halt ziemlich schnell funktioniert.
    btw. es checkt ob es einen Bit.ly link gibt oder nicht.


    Kann mir da jemand helfen ? :c

    Mfg Kashed

    @Kashed Was haben die Threads mit NumericUpDown zu tun?
    Ein NumericUpDown ist ein GUI-Control, das lässt sich nur im GUI-Thread bedienen.
    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!

    Ich zeig dir mal meinen Code und was ich ungefähr machen will:

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Linq
    3. Imports System.Windows.Forms
    4. Imports System.Threading
    5. Imports System.Collections.Generic
    6. Imports System.Runtime.Remoting
    8. Public Class KBC
    9. Dim mouseOffset As Point
    11. Private Sub Me_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Panel1.MouseDown
    12. mouseOffset = New Point(-e.X, -e.Y)
    13. End Sub
    14. Private Sub Me_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Panel1.MouseMove
    15. If e.Button = MouseButtons.Left Then
    16. Dim mousePos = Control.MousePosition
    17. mousePos.Offset(mouseOffset.X, mouseOffset.Y)
    18. Location = mousePos
    19. End If
    20. End Sub
    21. Private Sub KBC_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    22. Guna.UI.Lib.GraphicsHelper.ShadowForm(Me)
    23. CheckForIllegalCrossThreadCalls = False
    24. End Sub
    26. Private Sub CloseBTN_Click(sender As Object, e As EventArgs) Handles CloseBTN.Click
    27. End
    29. End Sub
    31. Private Sub MinBTN_Click(sender As Object, e As EventArgs) Handles MinBTN.Click
    32. Me.WindowState = FormWindowState.Minimized
    33. End Sub
    35. Private Sub GenerateBTN_Click(sender As Object, e As EventArgs) Handles GenerateBTN.Click
    36. Generator.Start()
    38. End Sub
    39. Public Function RandomString(ByVal length As Integer) As String
    40. Dim sb As New System.Text.StringBuilder
    41. Dim chars() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z",
    42. "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"}
    43. Dim upperBound As Integer = UBound(chars)
    45. For x As Integer = 1 To length
    46. sb.Append(chars(Int(Rnd() * upperBound)))
    47. Next
    49. Return sb.ToString
    51. End Function
    53. Private Sub Generator_Tick(sender As Object, e As EventArgs) Handles Generator.Tick
    54. Dim w As String = "https://bit.ly/" & RandomString(1) & RandomString(1) & RandomString(1) & RandomString(1) & RandomString(1) & RandomString(1) & RandomString(1)
    55. TextBox1.AppendText(w + Environment.NewLine)
    57. Dim lineCount2 As Integer = TextBox1.Lines.Count
    58. lblGenerated.Text = lineCount2.ToString
    60. End Sub
    62. Private Sub StopGenBTN_Click(sender As Object, e As EventArgs) Handles StopGenBTN.Click
    63. Generator.Stop()
    65. End Sub
    66. Dim w() As String
    67. Public Sub Check(stateinfo As Object)
    69. w = TextBox1.Text.Split(Environment.NewLine)
    70. Dim u As New Net.WebClient
    72. TextBox1.Text = TextBox1.Text.Substring(TextBox1.Text.IndexOf(vbCr) + 1)
    74. For Each w As String In links
    75. Try
    77. u.DownloadString(w(1))
    78. TextBox3.AppendText(w(1))
    79. Catch ex As Exception
    81. TextBox2.AppendText(w(1))
    83. End Try
    85. Next
    87. Dim lineCount As Integer = TextBox2.Lines.Count
    88. lblUnvalid.Text = lineCount.ToString
    90. Dim lineCount1 As Integer = TextBox3.Lines.Count
    91. lblValid.Text = lineCount.ToString
    93. Dim lineCount2 As Integer = TextBox1.Lines.Count
    94. lblGenerated.Text = lineCount.ToString
    96. End Sub
    97. Private Sub Checker_Tick(sender As Object, e As EventArgs) Handles Checker.Tick
    99. End Sub
    100. Dim links As New List(Of String)
    101. Private Sub CheckBTN_Click(sender As Object, e As EventArgs) Handles CheckBTN.Click
    102. Checker.Start()
    104. Dim threads As Integer = ThreadCount.Value
    106. For Each w As String In links
    107. ThreadPool.QueueUserWorkItem(AddressOf Check)
    108. Next
    109. End Sub
    111. Private Sub StopCheckBTN_Click(sender As Object, e As EventArgs) Handles StopCheckBTN.Click
    113. End Sub
    115. End Class


    und das soll ungefähr rein:

    VB.NET-Quellcode

    1. For Each string In textbox1.text
    2. ThreadPool.QueueUserWorkItem(AddressOf check, (erste line von textbox1.text checken))
    3. Next

    Kashed schrieb:

    CheckForIllegalCrossThreadCalls = False
    "Hoëcker, Sie sind raus!"
    Z#27: EndOMG, was für Methoden kommen hier zum Einsatz?!?

    MSDN schrieb:

    Because End terminates your application without attending to any resources that might be open, you should try to close down cleanly before using it. For example, if your application has any forms open, you should close them before control reaches the End statement.
    You should use End sparingly, and only when you need to stop immediately. The normal ways to terminate a procedure (Return Statement and Exit Statement) not only close down the procedure cleanly but also give the calling code the opportunity to close down cleanly. A console application, for example, can simply Return from the Main procedure.

    Bevor Du weitermachst, bitte die empfohlenen VS-Einstellungen verwenden. Stichwort VB6-Namespace mit Int(), Rnd(), UBound()
    Wo kommt nun in Deinem Code ein NumericUpDown vor?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Kashed schrieb:

    Ich zeig dir mal meinen Code und was ich ungefähr machen will:
    Vielleicht beschreibst Du zunächst in ein odere zwei Textzeilen und verbal, was Du willst.
    Solch langen Code zu analysieren ohne zu wissen, was er tun soll, ist nicht unbedingt sinnvoll.
    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!

    @Kashed OK. Wo ist das Problem?
    Und:
    Jede Text-Zeile ein Thread ist oberdümmlich, weil das Starten eines Threads Performance frisst.
    Probierma Parallel.ForEach().
    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!

Facebook
Telefonspende