Ping checker?

[Jead_10]

Hallo,

vielleicht kennen von euch welche das Programm "Ping for life", ich habe mich auch versucht sowas hinzubekommen. Ich habe aber nur geschafft, dass er sich per Button klick Aktualisiert. Ich möchte aber gerne, dass er von alleine neue Anfragen schickt und es dann in einer Liste anzeigt.
Mein Prog bis jetzt:



-Ich bin noch Anfänger, versucht es also Anfängergerecht zu erklären

[Ludder231]

Mach einen Timer dazu und einfach das was du jz bei Button_Click hast da rein.

[Jead_10]

Originally Posted by Ludder231

Mach einen Timer dazu und einfach das was du jz bei Button_Click hast da rein.

Gemacht und jetzt?

[Ludder231]

Den Timer noch mit Timer1.Start() starten wenn er noch nicht auf Enabled ist.

[Jead_10]

Originally Posted by Ludder231

Den Timer noch mit Timer1.Start() starten wenn er noch nicht auf Enabled ist.

Ja hat funktioniert, nur leider wird mir der Ping im folgenden Format angezeigt:

00:00:00:1849793

[Ludder231]

Originally Posted by Jead_10

Ja hat funktioniert, nur leider wird mir der Ping im folgenden Format angezeigt:

00:00:00:1849793

Das ist doch normal. Das ist das Format der Stoppuhr.

[Jead_10]

Kann man die irgendwie umstellen?

[Ludder231]

Du musst es durch die Format Funktion die ich gepostet habe Formatieren.

PHP Code:

Dim stopWatch As New Stopwatch()
        stopWatch.Start()
        Thread.Sleep(10000)
        stopWatch.Stop()
        ' Get the elapsed time as a TimeSpan value.
        Dim ts As TimeSpan = stopWatch.Elapsed

        ' Format and display the TimeSpan value.
        Dim elapsedTime As String = String.Format("{0:00}:{1:00}:{2:00}.{3:00}", ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
        Console.WriteLine( "RunTime " + elapsedTime) 


Siehst du an dim ElpasedTime...

P:S: Vergess nicht an Ende des Pings die Stopwatch zu resetten. Mit Stopwatch1.reset()

[Jead_10]

Für was steht denn ts? Das erkennt er nämlich nicht.

[Ludder231]

Originally Posted by Jead_10

Für was steht denn ts? Das erkennt er nämlich nicht.

Dim ts As TimeSpan = stopWatch.Elapsed

[Jead_10]

Bekomm ich nicht hin.. gibts noch andere Lösungswege um das Format der Stopwatch zu ändern?

[Ludder231]

Originally Posted by Jead_10

Bekomm ich nicht hin.. gibts noch andere Lösungswege um das Format der Stopwatch zu ändern?

Versuchs mal so:

PHP Code:

Public Class Form1

    Dim sw As New Stopwatch

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        sw.Start()

        My.Computer.Network.Ping("www.google.de")


        sw.Stop()


        Label1.Text = sw.Elapsed.TotalMilliseconds

        sw.Reset()

    End Sub
End Class 


[Jead_10]

Originally Posted by Ludder231

Versuchs mal so:

PHP Code:

Public Class Form1

    Dim sw As New Stopwatch

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        sw.Start()

        My.Computer.Network.Ping("www.google.de")


        sw.Stop()


        Label1.Text = sw.Elapsed.TotalMilliseconds

        sw.Reset()

    End Sub
End Class 


Hat funktioniert, Dankeschön
Werde es nur bisschen abändern^^

[Ludder231]

Originally Posted by Jead_10

Hat funktioniert, Dankeschön
Werde es nur bisschen abändern^^

Das war der Plan... Wollte dir ja nicht alle Arbeit abnehmen