Visual Basic: Weiß jemand wie ich diesen Code abändern muss, um vier Spieler spielen zu lassen?
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
programmieren,
visual basic 2010