Schleife über gesamte Sub

  • VB.NET
  • .NET (FX) 4.0

Es gibt 49 Antworten in diesem Thema. Der letzte Beitrag () ist von markoh2603.

    Packe deinen Code bitte in die VB-Tags, er ist schon so chaotisch genug.

    markoh2603 schrieb:

    VB.NET-Quellcode

    1. For i = 0 To host_arraylist.Count

    Du musst bis host_arraylist.Count-1 gehen, weil du mit 0 anfängst.

    markoh2603 schrieb:

    Dim ping_result(host_arraylist.Count)

    Und auch alle deine Arrays müssen bis host_arraylist.Count-1 gehen, weil im VB der höchste Index angegeben wird.

    Danke Rod und white,

    der Fehler ist jetzt weg und ich habs auch verstanden, warum der Fehler kam. Noch ne kurze Frage, bin ich schon wieder aufm Holzweg oder beweg ich mich den richtigen Weg entlang. Ich weiß, viele Wege führen nach Rom, nur der Holzweg eben nicht ;)

    P.S. Das mit den VB-Tags werd ich das nächste mal machen.

    Die Änderung von Rod habe ich ebenfalls schon eingebaut. Die Labels müssten im Private Sub statusbox_Load erzeugt werden. Den Namen vom Label wollte ich nur ändern, falls ich diesen mal brauche für irgendwas, da sollte ich ihn doch einfacher Ansprechen können, oder nicht?

    Stimmt, brauch ich wirklich nicht.

    So habe jetzt die Labels und dachte, fertig, juhu 1. Schritt erledigt. ABER. Scheinbar bin ich doch wieder aufm Holzweg gelandet.

    VB.NET-Quellcode

    1. Option Explicit On
    2. Option Strict On
    4. Imports System.Runtime.InteropServices
    5. Imports Microsoft.Win32
    6. Imports System.IO
    7. Imports System.Diagnostics
    8. Imports System.Threading
    9. Imports System.Configuration
    10. Imports System.Collections.Specialized


    VB.NET-Quellcode

    1. Public Class planpresenter
    3. Private Sub statusbox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. Timer1.Enabled = True
    6. Timer1.Interval = 10000
    8. Dim host_arraylist = read_hosts()
    9. Dim host_label(host_arraylist.Count - 1) As Label
    10. For i = 0 To host_arraylist.Count - 1
    11. host_label(i) = New Label
    14. host_label(i).ForeColor = Color.Black
    15. host_label(i).Text = CStr((host_arraylist(i)))
    16. host_label(i).Location = New Point(8, 30 * i + 20)
    17. host_label(i).Size = CType(New System.Drawing.Point(100, 20), Drawing.Size)
    19. statusbox.Controls.Add(CType(host_label(i), Control))
    21. Next
    22. End Sub
    24. Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    26. Dim host_arraylist = read_hosts()
    27. Dim ping_result(host_arraylist.Count - 1) As Boolean
    28. Dim status_label(host_arraylist.Count - 1) As Label
    29. For i = 0 To host_arraylist.Count - 1
    30. status_label(i) = New Label
    31. ping_result(i) = CBool(ping(CStr(host_arraylist(i))))
    32. If ping_result(i) = True Then
    33. status_label(i).Text = "Online"
    34. Else
    35. status_label(i).Text = "Offline"
    36. End If
    37. status_label(i).ForeColor = farbe_ändern(ping_result(i))
    38. status_label(i).Location = New Point(110, 30 * i + 20)
    39. status_label(i).Size = CType(New System.Drawing.Point(60, 20), Drawing.Size)
    40. statusbox.Controls.Remove(CType(status_label(i), Control))
    41. statusbox.Controls.Add(CType(status_label(i), Control))
    42. Next
    44. End Sub
    46. Function ping(ByVal host As String) As Boolean
    48. Dim Result As Boolean
    49. Try
    50. Result = (My.Computer.Network.Ping(host))
    51. Return Result
    52. Catch ex As Exception
    53. Result = CBool(False)
    54. Return Result
    55. End Try
    57. End Function
    59. Function farbe_ändern(ByVal result As Boolean) As System.Drawing.Color
    61. Dim Farbe As System.Drawing.Color
    63. If result = True Then
    64. Farbe = (Color.Green)
    65. Else
    66. Farbe = (Color.Red)
    67. End If
    68. Return (Farbe)
    70. End Function
    72. Function read_hosts() As ArrayList
    74. Dim host As String = CStr(My.Settings.Item("presenter"))
    75. Dim liste As New ArrayList(host.Split(CChar(";")))
    76. Return liste
    78. End Function
    80. End Class


    Die host-labels erzeuge ich in der Load, funktioniert und ändert sich ja sowieso nicht. Da der Ping im Timer aufgerufen wird und anhand des Return-Codes die farbe_ändern() Function aufgerufen wird, war ich der Meinung, dass die status-Labels auch im Timer erzeugt werden müssen. Erzeugt werden sie (auch korrekt) nur bei einer Status-Änderung ändern sie sich nicht.

    markoh2603 schrieb:

    VB.NET-Quellcode

    1. host_label(i).Size = CType(New System.Drawing.Point(100, 20), Drawing.Size)


    Wieso CType überall?

    VB.NET-Quellcode

    1. host_label(i).Size= New Drawing.Size(100,20)


    markoh2603 schrieb:

    VB.NET-Quellcode

    1. statusbox.Controls.Add(CType(host_label(i), Control))


    Wieso CType?

    VB.NET-Quellcode

    1. statusbox.Controls.Add(host_label(i))


    markoh2603 schrieb:

    VB.NET-Quellcode

    1. status_label(i) = New Label
    2. .....
    3. statusbox.Controls.Remove(CType(status_label(i), Control))
    4. statusbox.Controls.Add(CType(status_label(i), Control))


    Du entfernst nicht das alte Label, sondern das neu erzeugte (das noch gar nicht da ist). Du musst am Anfang der Schleife entfernen und DANN erst das neue Label zuweisen.

    Die Frage ist, warum willst du überhaupt Labels entfernen?

    Von wollen kann keine Rede sein, ich hatte es zuerst ohne den Remove, da sich aber da das Label ebenfalls nicht änderte, dachte ich, ich muss es entfernen, damit es dann neu erzeugt wird. Den Ctype hatte mir VB so vorgeschlagen, evtl. aber vor einer Änderung der Dateitypen. Ich schau mir das nochmal an.

    Die Frage ist, wozu willst du sie neu erzeugen, wenn du nur ihren Text verändern willst? Du sagtest doch, die Anzahl würde beim Programmstart feststehen. Das frage ich dich schon die ganze Zeit...

    Die Frage ist natürlich, wenn ein Host wegfällt, dann stimmt deine Indizierung überhaupt nicht mehr. Wenn Host 5 wegfällt, ist dann ehem. Host 6 der Host 5. Und schon hast du falsches Label verfärbt. Irgendwie steige ich bei deinen ganzen Labels nicht durch ;(

    Es fällt kein Host weg. Wenn in den AppSettings 5 hosts stehen, dann geht es um 5 hosts. Bei diesen 5 hosts soll der Erreichbarkeitsstatus immer wieder überprüft werden. Ändert sich der Erreichbarkeitsstatus bei einem der 5 hosts, soll sich der Text von Online auf Offline oder umgekehrt ändern, sowie entsprechend des Status die Farbe von rot auf grün oder umgekehrt. Also kurzum, die Indizierung bleibt während der Programmlaufzeit immer gleich, nur Label.Text und Label.ForeColor können sich ändern. Ich hoffe so war es verständlich.

    Das hatte ich auch schonmal gemacht, das ging nur leider gar nicht.

    VB.NET-Quellcode

    1. Private Sub statusbox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. Timer1.Enabled = True
    4. Timer1.Interval = 10000
    6. Dim host_arraylist = read_hosts()
    7. Dim host_label(host_arraylist.Count - 1) As Label
    8. Dim status_label(host_arraylist.Count - 1) As Label
    9. For i = 0 To host_arraylist.Count - 1
    10. host_label(i) = New Label
    11. status_label(i) = New Label
    13. host_label(i).ForeColor = Color.Black
    14. host_label(i).Text = CStr((host_arraylist(i)))
    15. host_label(i).Location = New Point(8, 30 * i + 20)
    16. host_label(i).Size = New System.Drawing.Size(100, 20)
    18. status_label(i).Location = New Point(110, 30 * i + 20)
    19. status_label(i).Size = New System.Drawing.Size(60, 20)
    21. statusbox.Controls.Add(host_label(i))
    22. statusbox.Controls.Add(status_label(i))
    23. Next
    24. End Sub
    26. Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    28. Dim host_arraylist = read_hosts()
    29. Dim ping_result(host_arraylist.Count - 1) As Boolean
    30. Dim status_label(host_arraylist.Count - 1) As Label
    31. For i = 0 To host_arraylist.Count - 1
    33. ping_result(i) = CBool(ping(CStr(host_arraylist(i))))
    34. If ping_result(i) = True Then
    35. status_label(i).Text = "Online"
    36. Else
    37. status_label(i).Text = "Offline"
    38. End If
    39. status_label(i).ForeColor = farbe_ändern(ping_result(i))
    41. Next
    43. End Sub


    status_label.Text und status_label.ForeColor muss ich doch im Timer definieren, da ich nur dort wegen der funktionen ping() und farbe_ändern() den korrekten Wert habe!?
    Falls dem nicht so ist, wie bekomme dann aus dem Timer den Return-Code von ping()?

    Was haltet ihr davon ?
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private prog As New presenter.presenter
    2. Private hosts As String() = My.Settings.Item("presenter").ToString().Split(";"c)
    4. Private MyLabels1 As New List(Of Label)
    5. Private MyLabels2 As New List(Of Label)
    7. Private Sub statusbox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    8. 'Klassenbibliothek presenter aufrufen
    9. For i = 0 To hosts.Count - 1
    10. Dim lb As New Label
    11. With lb
    12. .Name = hosts(i)
    13. .ForeColor = Color.Black
    14. .Text = .Name
    15. .Location = New Point(8, 30 * i + 20)
    16. .Size = New Size(100, 20)
    17. End With
    19. Dim lb2 As New Label
    20. With lb2
    21. .Name = hosts(i)
    22. .Location = New Point(110, 30 * i + 20)
    23. .Size = New Size(60, 20)
    24. End With
    25. PingPongPing(hosts(i), lb2)
    27. MyLabels1.Add(lb)
    28. MyLabels2.Add(lb2)
    29. statusbox.Controls.Add(lb)
    30. statusbox.Controls.Add(lb2)
    31. Next
    33. mytimer.Start()
    34. End Sub
    36. Private Sub PingPongPing(host As String, lb As Label)
    37. Try
    38. Dim result As Boolean = CBool(prog.ping(host))
    39. If result Then
    40. lb.ForeColor = Color.Green
    41. lb.Text = "Online"
    42. End If
    43. Catch ex As Exception
    44. lb.ForeColor = Color.Red
    45. lb.Text = "Offline"
    46. End Try
    47. End Sub
    49. Private mytimer As New System.Timers.Timer(30000)
    50. Private Sub tickticktick(sender As Object, e As ThisTimerEventArgs)
    51. Dim i As Integer = 0
    52. For Each lb As Label in MyLabels2
    53. PingPongPing(hosts(i), lb)
    54. i += 1
    55. End For
    56. End Sub

    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Eben drum hab ich es gemacht, ja es ist C&P fertig, aber aufgeräumt (kein CStr() und kein, warum es auch da war CType(New Point(x, y), Size)) und es sollte funktionieren, hoffe ich.
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Ich muss nochmal nachfragen:

    VB.NET-Quellcode

    1. Private Sub tickticktick(sender As Object, e As ThisTimerEventArgs)
    2. Dim i As Integer = 0
    3. For Each lb As Label in MyLabels2
    4. PingPongPing(hosts(i), lb)
    5. i += 1
    6. End For


    Statt End For müßte doch Next stehen oder? und ThisTimerEventArgs kennt er gar nicht. Wo wird die Sub TickTickTick überhaupt aufgerufen, wird die durch MyTimer automatisch gerufen?

    Da ich nicht C&P machen wollte, habe ich meinen Code umgearbeitet und bekomme die gleichen Fehler wie bei C&P.

    Spoiler anzeigen


    VB.NET-Quellcode

    1. Option Explicit On
    2. Option Strict On
    4. Imports System.Runtime.InteropServices
    5. Imports Microsoft.Win32
    6. Imports System.IO
    7. Imports System.Diagnostics
    8. Imports System.Threading
    9. Imports System.Configuration
    10. Imports System.Collections.Specialized
    12. Public Class planpresenter
    14. Private host_arraylist As String() = My.Settings.Item("presenter").ToString().Split(";")
    15. Private hostlabels As New List(Of Label)
    16. Private statuslabels As New List(Of Label)
    18. Private Sub statusbox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    20. For i = 0 To host_arraylist.Count - 1
    21. Dim host_label As New Label
    22. With host_label
    23. .Text = host_arraylist(i)
    24. .ForeColor = Color.Black
    25. .Location = New Point(8, 30 * i + 20)
    26. .Size = New Size(100, 20)
    27. End With
    29. Dim status_label As New Label
    30. With status_label
    31. .Location = New Point(8, 30 * i + 20)
    32. .Size = New Size(60, 20)
    33. End With
    35. ping(host_arraylist(i), status_label)
    37. hostlabels.Add(host_label)
    38. statuslabels.Add(status_label)
    40. statusbox.Controls.Add(host_label)
    41. statusbox.Controls.Add(status_label)
    43. Next
    45. Timer1.Enabled = True
    46. Timer1.Interval = 10000
    48. End Sub
    50. Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    52. Dim i As Integer = 0
    53. For Each status_label As Label In statuslabels
    54. ping(host_arraylist(i), status_label)
    55. i += 1
    56. Next
    58. End Sub
    60. Function ping(ByVal host As String, ByVal status_label As Label) As Boolean
    62. Try
    63. Dim Result As Boolean = My.Computer.Network.Ping(host)
    64. If Result = True Then
    65. status_label.ForeColor = Color.Green
    66. status_label.Text = "Online"
    67. End If
    68. Catch ex As Exception
    69. status_label.ForeColor = Color.Red
    70. status_label.Text = "Offline"
    71. End Try
    73. End Function




    Ich habe meinen Code jetzt entsprechend angepasst, dank der vielen guten Ratschläge. Habe jetzt auch keine Convertierungen mehr drin, die gar nicht nötig gewesen wären, wenn man es gleich richtig gemacht hätte. Ich spare mir jetzt 2 Funktionen (farbe_ändern() sowie read_hosts() ). Durch die Globale Deklaration des Arrays mit den hostnamen, brauch ich nicht dauernd die Funktion read_hosts aufrufen, das macht das ganze wirklich deutlich übersichtlicher und das ganze noch in einem feinen 1-Zeiler.
    Allerdings habe ich jetzt das Problem, dass die host_labels alle schön erstellt werden, die status-labels aber fehlen und ich mir gerade nen Wolf suche, warum das so ist.
    Mach ich in die Function ping eine

    VB.NET-Quellcode

    1. MsgBox(host & "online")
    bzw.

    VB.NET-Quellcode

    1. MsgBox(host & "offline")
    . Werden die Nachrichten ordentlich angezeigt.

Facebook
Telefonspende