Hallo,
ich bin zur Zeit daran, ein einfaches Kartenspiel zu erstellen ( Mau-Mau ) und wollte euch Kritiker mal Fragen, was ihr an der Klasse generell verbessern würdet.
Und um einen Kartenstapel zu erstellen ( noch keine Mischfunktion integriert)
ich bin zur Zeit daran, ein einfaches Kartenspiel zu erstellen ( Mau-Mau ) und wollte euch Kritiker mal Fragen, was ihr an der Klasse generell verbessern würdet.
VB.NET-Quellcode
- Public Class Karte
- Public Sub New(ByVal FarbeDerKarte As Farbe, ByVal WertDerKarte As Wert)
- _KartenFarbe = FarbeDerKarte
- _KartenWert = WertDerKarte
- End Sub
- Private _KartenFarbe As Farbe
- Public Property KartenFarbe As Farbe
- Get
- Return _KartenFarbe
- End Get
- Set(value As Farbe)
- _KartenFarbe = value
- End Set
- End Property
- Private _KartenWert As Wert
- Public Property KartenWert As Wert
- Get
- Return _KartenWert
- End Get
- Set(value As Wert)
- _KartenWert = value
- End Set
- End Property
- Enum Farbe
- Pik
- Herz
- Kreuz
- Karo
- End Enum
- Enum Wert
- Sieben
- Acht
- Neun
- Zehn
- Bube
- Dame
- König
- Ass
- End Enum
- End Class
Und um einen Kartenstapel zu erstellen ( noch keine Mischfunktion integriert)
VB.NET-Quellcode
- Public Sub NeuenKartenStapelErstellen()
- Dim KartenStapel As New List(Of Karten)
- KartenStapel.Add(New Karte(Karte.Farbe.Herz, Karte.Wert.Sieben))
- KartenStapel.Add(New Karte(Karte.Farbe.Herz, Karte.Wert.Acht))
- KartenStapel.Add(New Karte(Karte.Farbe.Herz, Karte.Wert.Neun))
- KartenStapel.Add(New Karte(Karte.Farbe.Herz, Karte.Wert.Zehn))
- KartenStapel.Add(New Karte(Karte.Farbe.Herz, Karte.Wert.Bube))
- KartenStapel.Add(New Karte(Karte.Farbe.Herz, Karte.Wert.Dame))
- KartenStapel.Add(New Karte(Karte.Farbe.Herz, Karte.Wert.König))
- KartenStapel.Add(New Karte(Karte.Farbe.Herz, Karte.Wert.Ass))
- KartenStapel.Add(New Karte(Karte.Farbe.Karo, Karte.Wert.Sieben))
- KartenStapel.Add(New Karte(Karte.Farbe.Karo, Karte.Wert.Acht))
- KartenStapel.Add(New Karte(Karte.Farbe.Karo, Karte.Wert.Neun))
- KartenStapel.Add(New Karte(Karte.Farbe.Karo, Karte.Wert.Zehn))
- KartenStapel.Add(New Karte(Karte.Farbe.Karo, Karte.Wert.Bube))
- KartenStapel.Add(New Karte(Karte.Farbe.Karo, Karte.Wert.Dame))
- KartenStapel.Add(New Karte(Karte.Farbe.Karo, Karte.Wert.König))
- KartenStapel.Add(New Karte(Karte.Farbe.Karo, Karte.Wert.Ass))
- KartenStapel.Add(New Karte(Karte.Farbe.Kreuz, Karte.Wert.Sieben))
- KartenStapel.Add(New Karte(Karte.Farbe.Kreuz, Karte.Wert.Acht))
- KartenStapel.Add(New Karte(Karte.Farbe.Kreuz, Karte.Wert.Neun))
- KartenStapel.Add(New Karte(Karte.Farbe.Kreuz, Karte.Wert.Zehn))
- KartenStapel.Add(New Karte(Karte.Farbe.Kreuz, Karte.Wert.Bube))
- KartenStapel.Add(New Karte(Karte.Farbe.Kreuz, Karte.Wert.Dame))
- KartenStapel.Add(New Karte(Karte.Farbe.Kreuz, Karte.Wert.König))
- KartenStapel.Add(New Karte(Karte.Farbe.Kreuz, Karte.Wert.Ass))
- KartenStapel.Add(New Karte(Karte.Farbe.Pik, Karte.Wert.Sieben))
- KartenStapel.Add(New Karte(Karte.Farbe.Pik, Karte.Wert.Acht))
- KartenStapel.Add(New Karte(Karte.Farbe.Pik, Karte.Wert.Neun))
- KartenStapel.Add(New Karte(Karte.Farbe.Pik, Karte.Wert.Zehn))
- KartenStapel.Add(New Karte(Karte.Farbe.Pik, Karte.Wert.Bube))
- KartenStapel.Add(New Karte(Karte.Farbe.Pik, Karte.Wert.Dame))
- KartenStapel.Add(New Karte(Karte.Farbe.Pik, Karte.Wert.König))
- KartenStapel.Add(New Karte(Karte.Farbe.Pik, Karte.Wert.Ass))
- End Sub
- End Class
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Julius“ ()