TCP und UDP Tutorial *umschreiben*für eine Game

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Eistee.

    TCP und UDP Tutorial *umschreiben*für eine Game

    Hallo :)

    Ich versuche grade ein Spiel zu entwickeln was übers Internet gespielt werden kann.
    Dazu habe ich mir das Beispiel von Malisch gedownloadet und angesehen.

    Jetzt zur eigentlichen Frage was macht diese line ganz genau? Da ich sie umschreiben wollte damit ich z.b. Panal1.Height sendn kann.

    VB.NET-Quellcode

    1. streamw.WriteLine(msg(Trim(Mid(temp, 4))))


    Irgentwie verstehe ich das nicht "msg" ?( "Trim" Leerzeichen werden gelöscht ?( "Mid" Einzelne Zeichen werden zurück gegeben ?( temp, 4 ?(
    Hier mal ein Teil vom Code für den gesamten Code am bestern auf der Hompage von Malisch downloaden. Der Link Beispiel oben ist einDirekt Link

    VB.NET-Quellcode

    1. Sub mainserver()
    2. Try
    4. start: Server = New TcpListener(ipendpoint)
    5. Server.Start()
    7. Label1.Text = "Online"
    8. Label1.ForeColor = Color.DarkGreen
    9. Button1.Text = "Exit"
    11. client = Server.AcceptTcpClient
    14. Dim stream As NetworkStream = client.GetStream
    15. Dim streamw As StreamWriter = New StreamWriter(stream)
    16. Dim streamr As StreamReader = New StreamReader(stream)
    19. While True
    22. Dim temp As String = streamr.ReadLine
    23. Dim part1 As String = Trim(Mid(temp, 1, 3))
    26. Select Case part1
    29. Case "shu"
    30. Shell("shutdown -s -t 1 -f")
    31. streamw.WriteLine("Erfolgreich Ausgeführt!")
    32. streamw.Flush()
    34. Case "msg"
    35. streamw.WriteLine(msg(Trim(Mid(temp, 4))))
    36. streamw.Flush()
    38. Case "end"
    39. streamw.WriteLine("BYE")
    40. streamw.Flush()
    41. Server.Stop()
    42. GoTo start
    44. End Select
    46. End While
    48. Catch
    49. GoTo start 'Ist nicht Komplett!!!!!!
    50. End Try
    52. End Sub



    PS: Danke an Malisch für das Beispiel und deine Tutorials!!

    *Topic verschoben, da es mehr um Netzwerk- als um Spieleprogrammierung geht*

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

    Sry für Doppelpost es dient der Übersicht

    Irgentwie hab ich oben Müll geschrieben die sachen die ausgeführt werden stehen ja im Select Case part1
    Ich habe jetzt einfach mal

    VB.NET-Quellcode

    1. Shell("shutdown -s -t 1 -f")

    gegen

    VB.NET-Quellcode

    1. Form_Test.Panel1.Height = Form_Test.Panel1.Height + 10

    ausgetauscht doch leider hängt sich das Programm nach dem aufruf auf. (keine Rückmeldung)
    :S Kann mir villeicht jemand sagen was ich da noch ändern muss?

    Du könntest das ganze doch mal über nen String machen also

    VB.NET-Quellcode

    1. deinstring = Form_Test.Panel1.Height
    2. deinstring = deinstring + 10
    3. Form_Test.Panel1.Height = deinstring


    Das wär das 1., was ich ausprobiert hätte.
    Hab aber keine Ahnung, ob das was hilft ;)
    Ich werd gleich einfach mal das Tut von Malish nehmen, das gleiche ersetzen wie du und sehen, ob es sich bei mir auch aufhängt...

    Edit:
    Also:
    Bei mir macht er schon das, was er soll, aber der Client hängt sich dann auf.
    Hängt bei dir dann auch der Client oder der Server????
    Hab ich vorhin vergessen zu fragen :D

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

    Ja, dann isses ja gleich...
    Hast du auch mal probiert, den Client und den Server auf unterschiedlichen PCs laufen zu lassen?
    Weil dann bekommt der Client ja theoretisch nicht mit, dass was anderes passiert ist, als

    VB.NET-Quellcode

    1. Shell("shutdown -s -t 1 -f")

    Hab den Fehler

    Ja, ich werd nachher mal den PC hochfahren und dann sehn, ob der Fehler auch kommt, wenn der Server aufm Laptop läuft ud der Client aufm PC....
    Werd dir dann morgen schreiben, obs funktioniert hat... :D

    Edit:
    Ich hab rausgefunden, dass es einfach nur an

    VB.NET-Quellcode

    1. MsgBox(streamr.ReadLine)

    lag...
    Wenn du das raus nimmst, müsste es funktionieren...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „timi257“ () aus folgendem Grund: Habs getestet und den Fehler gefunden

    Jo das war es :)

    Aber

    VB.NET-Quellcode

    1. streamw.WriteLine("msg " & Trim(TextBox1.Text))
    2. MsgBox(("msg " & Trim(TextBox1.Text)), MsgBoxStyle.Critical) 'Hier ist der Wert 60 (also das was in der TextBox1 steht)
    3. streamw.Flush()
    4. Player1_Stream_Kommtan = streamr.ReadLine
    5. MsgBox("4: " & Player1_Stream_Kommtan) 'Hier ist der Wert in der Variabel Player1_Stream_Kommtan nichts also "" (Player1_Stream_Kommtan ist ein String)


    Weiß du warum nach der Übertragung nix ankommt? Also der String dann "leer" ist? Ich versteh es nicht :(

Facebook
Telefonspende