List(of String) Pingen

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

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

    List(of String) Pingen

    Hallo liebe Community,
    Ich habe mal wieder einen trotalen Brainfail...

    Ich habe in einer Datenbank 3 Spalten:
    ID ---- Link ---- Aktiv


    Diese sind mit der ID einem link (bspw google.de/scripts/) und True oder False versehen
    Die Aktive = True gesetzten Links und IDs lasse ich mir ausgeben und speichere diese in einer List(of String)
    Nun habe ich folgenden Code:

    VB.NET-Quellcode

    1. Me.Invoke(Sub() lblStatus.Text = "Server werden ermittelt")
    2. functions.get_server()
    4. Dim pingms As New List(Of Integer)
    5. Dim reply As PingReply
    6. For Each server In functions.serverlist
    7. Dim s1 As String
    8. s1 = Replace(server, "http://", "")
    9. s1 = Replace(s1, "/patchserver/", "")
    10. Me.Invoke(Sub() lblNews.Text = "")
    11. Try
    12. reply = ping.Send(s1, 5000)
    13. If Not reply.Status = IPStatus.TimedOut Then
    14. pingms.Add(reply.RoundtripTime)
    15. Me.Invoke(Sub() lblNews.Text = lblNews.Text & reply.RoundtripTime & " : " & s1 & vbNewLine)
    16. ' MsgBox(reply.RoundtripTime)
    17. Else
    18. pingms.Add(200000)
    19. End If
    20. Catch ex As Exception
    21. MsgBox(ex.Message)
    22. End Try
    24. Next
    27. Dim aktserver As Integer = 0
    28. Dim i As Integer = 0
    29. Do Until i = pingms.Count - 1
    30. If i + 1 = pingms.Count Then
    32. Else
    33. If pingms(i) < pingms(i + 1) Then
    34. aktserver = i
    35. End If
    36. i += 1
    37. End If
    39. Loop
    40. Me.Invoke(Sub() lblStatus.Text = "Server wurden ermittelt")
    41. MsgBox(functions.patchserverlist(aktserver))


    Die Sache ist nun folgende: Ich möchte jeden Server in dieser List(of String) einmal anpingen und die Millisekunden speichern. Nachdem alle Gepingt wurden, will ich alle MS miteinander vergleichen und herausfinden, welcher Server die "schnellste" antwort gegeben hat.
    Diesen will ich dann als aktiven Server verwenden.

    Mein Problem:
    Ich habe 3 Server eingetragen wovon einer zum Test auf False steht also nicht aktiv.
    Die anderen beiden werden Brav gezogen und gepingt. Nun wird allerdings in das label lblNews immer nur der 1. server rein geschrieben und das Programm zeigt mir ab und an die MSGbox am ende nicht an.

    Ich weiß messagebox.show(blabla)
    :)
    Danke
    Viele Frauen kamen, viele sind gegangen, eine ist geblieben 12.5.12 <3 ich liebe dich Schatz :love: :love:

    mach dir ein typisiertes Dataset, mit einer typisierten Datatable, die derlei Server-Datensätze enthält.
    Ping alle Datensätze durch, und trage die PingTime ein.
    Rufe den Datensatz mit der niedrigsten PingTime ab.

    btw: In einer Datenbank sind keine Spalten. Da sind Tabellen drinne. Ebenso wie übrigens im typiserten Dataset, und diese Parallele ist kein Zufall.

    Brainfuck xD
    Natürlich hat ne Datenbank keine Spalten sondern Tabellen in denen sich diese Spalten befinden X( du weißt aber was ich meine xD

    Zu deinem Vorschlag:
    Ich arbeite nicht gerne mit Dataset und vorallem bin ich ein Dickkopf und ich will das mit diesen schleifen lösen nur habe ich das Gefühl, dass er einfach einen Teil meiner Schleife überspringt :O
    Kann mir denn einer sagen ob ich da nen denkfehler habe gerade hier?:

    VB.NET-Quellcode

    1. Do Until i = pingms.Count - 1
    2. If i + 1 = pingms.Count Then
    4. Else
    5. If pingms(i) < pingms(i + 1) Then
    6. aktserver = i
    7. End If
    8. i += 1
    9. End If
    11. Loop
    Viele Frauen kamen, viele sind gegangen, eine ist geblieben 12.5.12 <3 ich liebe dich Schatz :love: :love:

    Um zusammengehörige Werte zusammenzufassen sind Datensätze erfunden worden, aber mit denen arbeitest du ja nicht gerne, du Dickkopf! ;)

    Ansonsten musst du halt den Index der schnellsten Zeit suchen, und dann annehmen, dass derselbe Index folglich auch den schnellsten Server indiziert.

    Ist nicht ganz was man i.a. unter "objektorientierter Programmierung" versteht, aber wenns unbedingt so muss...

Facebook
Telefonspende