Hallo Leute,

ich soll im Informatikunterricht ein Würfelspiel mit vier Spielern erstellen. Bisher habe ich zwei Spieler, die immer nach dem Speichervorgang des anderen würfeln.

Code:

rivate Sub BtnSpeichern_Click(sender As System.Object, e As System.EventArgs) Handles BtnSpeichern.Click
  If TxtSpieler1.BackColor = Color.LightSeaGreen Then
    TxtSpieler2.BackColor = Color.LightSeaGreen
    TxtSpieler3.BackColor = Color.LightSeaGreen
    TxtSpieler4.BackColor = Color.LightSeaGreen
    TxtSpieler1.BackColor = Color.Salmon

    Punkte1 = Punkte1 + summeAktuell
    LblPunkte1.Text = Punkte1

    If Punkte1 >= TxtZiel.Text Then
      MsgBox(TxtSpieler1.Text & " Hat Gewonnen!")
      BtnReset.Enabled = True
      PictureBox1.Visible = True
    End If
  Else
    TxtSpieler1.BackColor = Color.LightSeaGreen
    TxtSpieler3.BackColor = Color.LightSeaGreen
    TxtSpieler4.BackColor = Color.LightSeaGreen
    TxtSpieler2.BackColor = Color.Salmon

    Punkte2 = Punkte2 + summeAktuell
    LblPunkte2.Text = Punkte2

    If Punkte2 >= TxtZiel.Text Then
      MsgBox(TxtSpieler2.Text & " Hat Gewonnen!")
      BtnReset.Enabled = True
      PictureBox1.Visible = True
    End If
  End If

  summeAktuell = 0
  LblAktuell.Text = 0

Weiß jemand wie ich diesen Code abändern muss, um vier Spieler spielen zu lassen?

Jetzt schon einmal danke für euere Hilfe.

MfG Felix