Ping checker?

08/24/2013 11:11 Jead_10#1
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 :)
08/24/2013 12:31 Ludder231#2
Mach einen Timer dazu und einfach das was du jz bei Button_Click hast da rein.
08/24/2013 12:53 Jead_10#3
Quote:
Originally Posted by Ludder231 View Post
Mach einen Timer dazu und einfach das was du jz bei Button_Click hast da rein.
Gemacht und jetzt?
08/24/2013 12:57 Ludder231#4
Den Timer noch mit Timer1.Start() starten wenn er noch nicht auf Enabled ist.
08/24/2013 13:00 Jead_10#5
Quote:
Originally Posted by Ludder231 View Post
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
08/24/2013 13:03 Ludder231#6
Quote:
Originally Posted by Jead_10 View Post
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. [Only registered and activated users can see links. Click Here To Register...]
08/24/2013 13:07 Jead_10#7
Kann man die irgendwie umstellen?
08/24/2013 13:11 Ludder231#8
Du musst es durch die Format Funktion die ich gepostet habe Formatieren.
[Only registered and activated users can see links. Click Here To Register...]
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()
08/24/2013 14:12 Jead_10#9
Für was steht denn ts? Das erkennt er nämlich nicht.
08/24/2013 14:43 Ludder231#10
Quote:
Originally Posted by Jead_10 View Post
Für was steht denn ts? Das erkennt er nämlich nicht.
Dim ts As TimeSpan = stopWatch.Elapsed
08/25/2013 13:07 Jead_10#11
Bekomm ich nicht hin.. gibts noch andere Lösungswege um das Format der Stopwatch zu ändern?
08/25/2013 13:56 Ludder231#12
Quote:
Originally Posted by Jead_10 View Post
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 
08/25/2013 14:48 Jead_10#13
Quote:
Originally Posted by Ludder231 View Post
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^^
08/25/2013 18:23 Ludder231#14
Quote:
Originally Posted by Jead_10 View Post
Hat funktioniert, Dankeschön :)
Werde es nur bisschen abändern^^
Das war der Plan... :) Wollte dir ja nicht alle Arbeit abnehmen :)