vb .net Dijkstra-Algorithmus

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • vb .net Dijkstra-Algorithmus

    Hi,

    nach den Antworten in diesem Thema: http://www.easy-coding.de/java-nach-php-portieren-t3742.html#17442 habe ich den Versuch gemacht eine Routfindungsroutinge mit Hilfe von vb .net und des Dijkstra-Algorithmus zu machen. Kurz die Informationen die ich besitze. Ich habe einmal 5000 Datensätze mit Punkten und einmal 14000 Datensätze in denen die Verbindungen der 5000 Punkte (immer 1 zu 1) gelistet sind.
    Problem ist nun das ich den kürzesten Weg von Punkt x nach Punkt y herrausfinden muss wobei die einzelnen Punkte alle exakt gleich weit von einander entfernt liegen.

    Hier mal der Code, weiß allerdings nicht ob er so schon lauffähig ist, da ich die Daten im mom nicht habe um dies zu testen:

    Quellcode

    1. Public strpunkte(4999) As String
    3. Public Function strParse(ByVal Data, ByVal Trenn, ByVal Nr)
    4. On Error Resume Next
    5. Dim MainData() As String, SplitData() As String
    6. MainData = Split(Data, Trenn)
    7. SplitData = Split(MainData(Nr - 1), Trenn)
    8. strParse = SplitData(0)
    9. End Function
    12. Function einschreib(ByVal v As String, ByVal strecke As Integer)
    13. Dim start As Integer
    14. Dim punkt As String
    15. For start = 0 To 4999
    16. punkt = strParse(strpunkte(start), ";", 1)
    17. If punkt = v Then
    18. strpunkte(start) = punkt & ";" & strecke
    19. End If
    20. Next
    21. End Function
    24. Function relax(ByVal s As String, ByVal g As String)
    25. Dim u As String
    26. Dim v As String
    27. Dim Line As String
    28. Dim wert1 As String
    29. Dim wert2 As String
    30. Dim strecke As Integer
    32. strecke = 0
    34. Do
    35. If u = g Then Exit Do
    36. strecke = strecke + 1
    37. If u = "" Then
    38. u = s
    39. Else
    40. Dim sr As IO.StreamReader
    41. sr = New IO.StreamReader("C:\zweig.txt")
    42. Do
    43. Line = sr.ReadLine
    44. If IsNothing(Line) Or Line = 0 Then Exit Do
    45. wert1 = strParse(Line, ";", 1)
    46. wert2 = strParse(Line, ";", 2)
    48. If wert1 = u Then
    49. v = wert2
    50. einschreib(v, strecke)
    51. ElseIf wert2 = u Then
    52. v = wert1
    53. einschreib(v, strecke)
    54. End If
    55. Loop
    56. u = v
    57. End If
    58. Loop
    59. MsgBox(strecke)
    60. End Function
    64. Function Dijkstra(ByVal s As String, ByVal g As String)
    65. Dim i As Integer
    66. Dim Line As String
    67. Dim sr As IO.StreamReader
    68. sr = New IO.StreamReader("C:\werte.txt")
    70. i = 0
    71. Do
    72. Line = sr.ReadLine
    73. If IsNothing(Line) Or Line = 0 Then Exit Do
    74. If Line = s Then
    75. strpunkte(i) = Line & ";0"
    76. Else
    77. strpunkte(i) = Line & ";5000"
    78. End If
    79. i = i + 1
    80. Loop
    82. relax(s, g)
    83. End Function
    86. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    87. Dijkstra("1", "2")
    88. End Sub
    Alles anzeigen