Internet Speedtest

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von magerquark.

    Internet Speedtest

    Hi Community,

    ich möchte ein kleines Programm programmieren, welches die Downloadgeschwindigkeit errechnet.
    Dazu verwende ich folgenden Code:

    VB.NET-Quellcode

    1. Public Class frm_main
    2. Friend WithEvents speedtest As New Net.WebClient
    3. Dim dlfirst As Boolean = True
    4. Dim dlstart As Integer
    5. Dim dlend As Integer
    6. Dim dldif As Integer
    7. Dim dlspeed As Double
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. MsgBox(Environment.TickCount())
    10. End Sub
    12. Private Sub bt_dl_start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_dl_start.Click
    13. If (IO.File.Exists("1mb.txt")) Then
    14. IO.File.Delete("1mb.txt")
    15. End If
    16. speedtest.DownloadFileAsync(New Uri("http://gamez64.net/1mb.txt"), "1mb.txt")
    17. lbl_dl_status.Text = "Verbinden..."
    18. bt_dl_start.Enabled = False
    19. End Sub
    21. Private Sub speedtest_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles speedtest.DownloadFileCompleted
    22. dlend = Environment.TickCount
    23. dldif = dlend - dlstart
    24. dlspeed = 1 / dldif
    25. MsgBox(dlspeed.ToString())
    26. End Sub
    27. Private Sub speedtest_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles speedtest.DownloadProgressChanged
    28. If (dlfirst = True) Then
    29. dlstart = Environment.TickCount()
    30. dlfirst = False
    31. End If
    32. pb_dl_status.Value = e.ProgressPercentage
    33. lbl_dl_status.Text = "Herunterladen... " & e.ProgressPercentage & "%"
    34. End Sub
    36. End Class
    Allerdings gibt die MessageBox immer 1,1***e+** aus.
    Das kann doch nicht stimmen. Ich muss also irgendwo einen Logikfehler haben... Könnt ihr mir da helfen?

    Sowas habe ich auch mal versucht und habe eine gepimpte 1 Mb-Textdatei von einem Server per http runterladen lassen. Habe auch die Zeit gemessen, kam aber immer das gleiche raus, glaube aber was anderes als bei dir... Ein bisschen improvisiert, mit einem Timer, kommt wenigstens immer ein anderes Ergebnis raus:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim zeit As Long = 0
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. zeit = 0
    6. Dim speedtest As New Net.WebClient
    7. If IO.File.Exists("1mb.txt") Then
    8. IO.File.Delete("1mb.txt")
    9. End If
    10. speedtest.DownloadFileAsync(New Uri("http://kevin89.abacado.net/Dateien/Speedtest/1mb.txt"), "1mb.txt")
    11. Timer1.Start()
    12. End Sub
    14. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    15. zeit += 1
    16. If FileLen("1mb.txt") = 1000000 Then
    17. Timer1.Stop()
    18. MsgBox("Fertig: " & zeit)
    19. End If
    20. End Sub
    21. End Class

    aber ist halt nicht so genau...

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

    Gelöst!

    VB.NET-Quellcode

    1. Public Class frm_main
    2. Friend WithEvents speedtest As New Net.WebClient
    3. Dim dlfirst As Boolean = True
    4. Dim dlstart As Integer
    5. Dim dlend As Integer
    6. Dim dldif As Integer
    7. Dim dlspeed As Double
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. MsgBox(Environment.TickCount())
    10. End Sub
    12. Private Sub bt_dl_start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_dl_start.Click
    13. If (IO.File.Exists("1mb.txt")) Then
    14. IO.File.Delete("1mb.txt")
    15. End If
    16. speedtest.DownloadFileAsync(New Uri("http://gamez64.net/1mb.txt"), "1mb.txt")
    17. lbl_dl_status.Text = "Verbinden..."
    18. bt_dl_start.Enabled = False
    19. dlstart = Environment.TickCount()
    20. End Sub
    22. Private Sub speedtest_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles speedtest.DownloadFileCompleted
    23. dlend = Environment.TickCount
    24. dldif = dlend - dlstart
    25. MsgBox("Ihr PC benötigt " & dldif.ToString() & "ms, um eine Datei mit 1MB herunterzuladen." & vbNewLine & "Die durchschnittliche Downloadgeschwindigkeit beträgt " & 1 / dldif * 1000 * 1000 & "kb/s.")
    26. End Sub
    27. Private Sub speedtest_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles speedtest.DownloadProgressChanged
    28. pb_dl_status.Value = e.ProgressPercentage
    29. lbl_dl_status.Text = "Herunterladen... " & e.ProgressPercentage & "%"
    30. End Sub
    32. End Class
    Das gibt mir 27 komma nochwas aus... Schneller ist mein Internet leider wirklich nicht xP
    Kleine Frage noch... (möchte keinen neuen Thread eröffnen...):
    Wie oben steht, steht in der MessageBox 27 komma nochwas. Da sind noch viele Kommastellen dahinter... Ich möchte aber nur 2 sehen... Wie kann ich das machen?

Facebook
Telefonspende