Schere, Stein Papier Multiplayer Spiel

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von X-Zat.

    Schere, Stein Papier Multiplayer Spiel

    Hallo,
    ich habe mir ein Video angeschaut, wie man über einen TCP Port einen Chat mit einem anderen User macht.
    Dies klappt, indem man die IP des anderen Users in eine Textbox eingibt.

    Nun möchte ich ein "Schere, Stein, Papier" oder ein "Tic-Tac-Toe" - Multiplayer Spiel machen.
    Also das es über einen TCP Port läuft und man die IP des Gegner eingibt (oder der Gegner meine IP) und wir dann gegeneinander spielen.

    Nun meine Frage:
    Ist dies überhaupt möglich ohne einen Server? Ich selber denke, dass das eigentlich ja schon möglich sein sollte, wenn ein Chat auch so geht.

    Kennt jemand Videos/Tutorials, wo das jemand erklärt oder kann jemand von euch mir direkt dabei helfen?

    Mit freundlichen Grüßen,
    Robin

    Moin!

    Kurz: Klar ist das möglich.
    Um Bandbreite zu sparen, solltest du alle Informationen, die via TCP verschickt werden, selbst in eine Byte-Struktur umwandeln. Viele Tutorials benutzen dazu einfach ein System.Text.Encoding.UTF8.GetBytes("Text"). Nur das frisst unter Umständen bei minimal komplexeren Anwendungen viel Bandbreite und kann dann auch zu Lags, also Verzögerungen, führen.
    Wenn dir das egal ist, nimm doch einfach diesen Chat als Basis. Mit Klicks, Buttons, etc lässt du einfach z.B. ein "Schere" übertragen, was dein Mitspieler dann zugesandt bekommt und auch verarbeitet.

    EDIT: Im richtigen Unterforum könntest du auch schneller Hilfe bekommen: vb-paradise.de/index.php/Board…d-Netzwerkprogrammierung/

    MfG,
    X-Zat / Mo

    Hey,
    danke für deine Antwort.
    Ich muss nur sagen das ich davon: "System.Text.Encoding.UTF8.GetBytes("Text")" keine Ahnung habe."
    Könntest du mir ein Beispiel zeigen/machen?

    Hier ist der Code des einfachen Chat-Programms und weiteres:

    Quellcode

    1. "code=vb"
    2. Imports System.Net.Sockets
    3. Imports System.Threading
    4. Imports System.IO
    6. Public Class Form1
    7. Dim listener As New TcpListener(9933)
    8. Dim client As TcpClient
    9. Dim message As String = ""
    11. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    12. listener.Stop()
    13. End Sub
    15. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    16. Dim listthread As New Thread(New ThreadStart(AddressOf listening))
    17. listthread.Start()
    18. End Sub
    20. Private Sub listening()
    21. listener.Start()
    22. End Sub
    24. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' Text absenden Button
    25. If RichTextBox1.Text = "" Then
    26. MsgBox("Gebe einen Text ein!")
    27. Else
    28. Try
    29. client = New TcpClient(TextBox1.Text, 9933)
    30. Dim writer As New StreamWriter(client.GetStream())
    32. writer.Write(RichTextBox1.Text)
    33. RichTextBox2.AppendText(Format(Now, "[dd.MM | hh:mm:ss]") & " Du: " & RichTextBox1.Text & vbCrLf)
    34. writer.Flush()
    35. RichTextBox1.Clear()
    36. Catch
    37. MsgBox("Es konnte keine Verbindung aufgebaut werden!")
    38. End Try
    39. End If
    40. End Sub
    42. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    43. If listener.Pending = True Then
    44. message = ""
    45. client = listener.AcceptTcpClient()
    46. Dim reader As New StreamReader(client.GetStream())
    47. While reader.Peek > -1
    48. message = message + Convert.ToChar(reader.Read()).ToString
    49. End While
    50. RichTextBox2.AppendText(Format(Now, "[dd.MM | hh:mm:ss]") & " Er/Sie: " & message & vbCrLf)
    51. Else : End If
    52. End Sub
    54. ' Ab hier kommt das Schere-Stein-Papier Spiel. Oben war nur der Chat.
    56. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    57. ' Startet das Spiel wenn in der Textbox eine gültige IP-Adresse ist.
    58. ' Soll auch einen Timer starten.
    59. ' In der zeit können die Spieler über 3 Buttons sagen was sie nehmen wollen, Stein Schere oder Papier
    60. End Sub
    62. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click ' Schere
    63. ' macht eine Variable des Spielers auf 1
    64. End Sub
    66. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click ' Stein
    67. ' macht eine Variable des Spielers auf 2
    68. End Sub
    70. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 'Papier
    71. ' macht eine Variable des Spielers auf 3
    72. End Sub
    74. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    75. ' überprüft beide Variablen und schaut wer gewonnen hat
    76. End Sub
    77. End Class


    Zum richtigen Unterforum: Tut mir leid, wusste nicht so genau wo ich es reinschreiben sollte. Danke für die Info, beim nächsten mal werde ich es besser machen.

    Robin7 schrieb:

    Hey,
    danke für deine Antwort.
    Ich muss nur sagen das ich davon: "System.Text.Encoding.UTF8.GetBytes("Text")" keine Ahnung habe."


    Man trifft als Anfänger städnig auf Sachen, die man noch nicht kennt. Benutze doch mal Google und die MSDN Docu...
    Du kannst nicht wegen jedem kleinen Befehl hier im Forum nach ner Erklärung fragen.
    @X-Zat
    Statt "Schere" zu senden, kann man einfach den entsprechenden ENUM senden.

    Byte-sparender? Man sollte für alle Objekte mit einem Dezimalwert bis 255 nur ein Byte nutzen müssen... Und da liegt auch das gesamte ABC sowie die Zahlen 0-9 und Satzzeichen drin - Man muss also keine kryptischen Platzhalter nehmen...
    War dir jetzt noch fehlt ist lediglich die Logik und alles hier gesagte entsprechend zu nutzen! Mit deinem Chat als Basis ist schon die Hälfte gemacht!

    @markus.obi: Klar, reduziert die Anzahl gesendeter Bytes natürlich nochmal drastisch ;).

    MfG,
    X-Zat / Mo

Facebook
Telefonspende