Client - Server Verbindung Problem

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Client - Server Verbindung Problem

    Hey,
    Ich habe ein Spiel gemacht, wo 3 Spieler mitmachen und jeder ein Auto(=Picturebox) steuern kann.
    Dafür habe ich einen Timer gemacht, der bei jeden Tick die Autos um 5 nach Rechts/Links/Vorne/Hinten (Je nach Richtung) verschiebt.
    Die Richtung kann nur der zum Auto gehörende Spieler verändern, aber die Nachricht wird dann mithilfe vom Server an alle Spieler gesendet, so dass alle Spieler die neue Richtung vom Spieler haben.
    Wenn nun der Spieler, dem das Auto gehört gegen eine Wand (=große Picturebox) fährt, so wird eine Nachricht an alle Spieler mithilfe vom Server gesendet und beim empfangen der Nachricht wird bei allen Spielern die Position vom Auto,
    dass gegen die Wand gefahren ist auf den Startplatz zurückgesetzt.
    Das Klappt auch gut (Alle Autos sind gleichschnell), aber nur wenn das ganze allein auf meinen Computer läuft, also wenn ich die 3 Clients + den Server offen habe.
    Wenn ich allerdings auf meinen PC den Server habe und auf einen anderen Computer die Clients, dann sind die Autos unterschiedlich schnell und das ganze sieht iwie verbuggt aus.
    Ich denke es liegt iwie an der Server Übertragung... jemand eine Idee wie man das Problem beheben kann?

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @Robin7 Wie sieht denn die LAN-Verbindung zu den anderen PCs aus?
    Was haben die anderen PCs so "unter der Haube"?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Alle PC´s haben LAN-Verbindung. Soll ich mal Probieren das LAN-Kabel rauszumachen und über WLAN?
    "Unter der Haube" = welche Hardware? Jetzt nicht mega schnell, aber sollte reichen.
    Ich denke aber wie gesagt, dass es daran liegt das zwischen Übertragung der Nachricht iwelche Verzögerungen kommen oder so (Kenne mich überhaupt nicht aus mit sowas)

    @Robin7 WLAN ist definitiv langsamer.
    Kannst Du mal den Server-Code posten?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ja klar, aber im Server-Code steht glaub ich nicht soviel entscheidendes(glaub wichtiger ist der Code vom Client)
    Hier der Server-Code(Hab noch nen Register und Login-System und hinterher das abspeichern von Siegen und Niederlagen in einer INI-Datei und noch mehr, aber das ist
    hierbei nicht relevant und ich habe das gekürzt Übersicht halber.
    Code:

    VB.NET-Quellcode

    1. ​Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    5. Module Module1
    6. 'Variablen
    7. Dim spieleraufserver As Integer
    8. Dim spielerinlobby As Integer
    9. Dim spieler1inlobby As String
    10. Dim spieler2inlobby As String
    11. Dim spieler3inlobby As String ' Spiel startet
    13. Private server As TcpListener
    14. Private client As New TcpClient
    15. Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000)
    16. Private list As New List(Of Connection)
    17. Private Structure Connection
    18. Dim stream As NetworkStream
    19. Dim streamw As StreamWriter
    20. Dim streamr As StreamReader
    21. End Structure
    23. Sub Main()
    24. Console.WriteLine("Der Server läuft!")
    25. server = New TcpListener(ipendpoint)
    26. server.Start()
    28. While True
    29. client = server.AcceptTcpClient
    30. Dim c As New Connection
    31. c.stream = client.GetStream
    32. c.streamr = New StreamReader(c.stream)
    33. c.streamw = New StreamWriter(c.stream)
    34. list.Add(c)
    35. spieleraufserver = list.Count
    36. Dim t As New Threading.Thread(AddressOf ListenToConnection)
    37. t.Start(c)
    38. End While
    39. End Sub
    41. Private Sub ListenToConnection(ByVal con As Connection)
    42. Do
    43. Try
    44. Dim tmp As String = con.streamr.ReadLine
    46. If tmp.StartsWith("willspielen") Then
    47. If spielerinlobby = 3 Then
    48. tmp = ("lobbyvoll" & tmp.Remove(0, 11))
    49. Else
    50. spielerinlobby += 1
    51. If spielerinlobby = 1 Then
    52. spieler1inlobby = tmp.Remove(0, 11)
    53. tmp = ("lobby1" & tmp.Remove(0, 11))
    54. End If
    55. If spielerinlobby = 2 Then
    56. spieler2inlobby = tmp.Remove(0, 11)
    57. tmp = ("lobby2" & tmp.Remove(0, 11))
    58. End If
    59. If spielerinlobby = 3 Then
    60. spieler3inlobby = tmp.Remove(0, 11)
    61. tmp = ("lobby3" & tmp.Remove(0, 11))
    62. End If
    63. End If
    64. End If
    66. For Each c As Connection In list ' an alle clients weitersenden.
    67. Try
    68. If tmp.StartsWith("lobbyvoll") Then c.streamw.WriteLine(tmp)
    69. If tmp.StartsWith("lobby1") Then c.streamw.WriteLine(tmp)
    70. If tmp.StartsWith("lobby2") Then c.streamw.WriteLine(tmp)
    71. If tmp.StartsWith("lobby3") Then c.streamw.WriteLine(tmp)
    72. If tmp.StartsWith("spielstartet") Then c.streamw.WriteLine(tmp)
    73. If tmp.StartsWith("change") Then c.streamw.WriteLine(tmp)
    74. If tmp.StartsWith("ziel") Then c.streamw.WriteLine(tmp)
    75. If tmp.StartsWith("wand") Then c.streamw.WriteLine(tmp)
    76. c.streamw.Flush()
    77. Catch
    78. End Try
    79. Next
    80. Catch
    81. list.Remove(con)
    82. Exit Do
    83. End Try
    84. Loop
    85. End Sub
    86. End Module

    @Robin7 Wie es aussieht, habe ich denselben Code hier. Auch iwo im Forum gefunden. :/
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Robin7 Dass ich es leider nicht nachvollziehen kann.
    Vielleicht orientierst Du Dich mal am Beispiel von Microsoft, da wird kein Modul, sondern eine Klasseninstanz verwendet.
    Gugst Du hier.
    Gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende