Brettspiel mit GDI+

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Brettspiel mit GDI+

    Hi,
    ich dachte dass ich mich mal an einem Spiel versuche.
    Hauptsächlich soll es zur Übung ein "Mensch ärgere dich nicht" werden.

    Allerdings würde ich das Spiel gerne überwiegend im GDI Zeichnen da ich mich mit diesem Thema mehr befassen möchte.
    Also habe ich ein Feld und einen Spieler gezeichnet.
    Wie mache ich jetzt aber der Spielfigur klar, dass der auf das Feld soll?

    Mir fehlt absolut der Ansatz wie ich das bewerkstellige.
    Für die Felder und Spieler habe ich eine Klasse zum Zeichnen gemacht.

    Kann ich das feld irgendwie so gestalten, dass ich sagen kann:

    VB.NET-Quellcode

    1. SpielFigur ist auf Feld1
    2. Gewürfelte Zahl ist 3
    3. SpielFigur muss auf Feld1 + Gewürfelte Zahl 'Also Feld 4


    Habs zur veranschaulichung gepackt und angehängt.

    Hoffentlich verteht man wie ich das meine.
    DANKE
    Bilder

    • SpielerAufFeld.PNG

      4,66 kB, 351×158, 99 mal angesehen
    Dateien

    Braucht malwieder v.a. ein durchdachtes Datenmodell.

    ZB für die Felder brauchst du iwie eine Datenstruktur mit Ring-Logik. also was für Gelb das erste Feld ist, ist für Rot das sonstwievielte Feld, und so hat jeder Spieler einen eigenen Einsprungspunkt in die Ring-Liste der Felder.

    Neben Feldern und Spielern gibts auch die Spielfiguren (jeder Spieler hat 4 davon), und jede Spielfigur muss wissen, auf welchem Feld sie steht.
    Dabei kann man die Start-Häuschen und die Ziel-Häuschen auch als Felder auffassen, allerdings mit iwie besonderem Verhalten.

    Also es gibt 4 Spieler, zum Spieler gehört 1 Farbe, 1 StartHaus mit 4 Feldern, 1 ZielHaus mit 4 Feldern, ein EinsprungsPunkt-RingFeld
    Ausserdem gibts viele Ringfelder, ich glaub 40, oder 44, zähl mal nach.
    Auch gehört zum Spieler natürlich 4 Figuren, und jede Figur muss wissen, auf welchem Feld sie grad steht.

    Jo, im DrawEvent müssen erst alle Felder sich zeichnen, und dann alle SpielFiguren.
    Bewegt sich eine SpielFigur, so muss sie sich invalidieren, wo sie vorher war, und auch invalidieren, wo sie nun neu ist - dann wird der PositionsWechsel richtig dargestellt.
    Das gilt ebenso für geschlagene Figuren, aber bis dahin ist eh noch ein weiter weg.

    Mein OwnerDrawing - Tut kennste?

    ErfinderDesRades schrieb:

    Mein OwnerDrawing - Tut kennste?

    Nein kenne ich noch nicht, werds mir aber sofort anschauen.

    Ich sehe schon.... das wird nicht "nur mal üben" :/


    Nachtrag:

    Müsste ich Theoretisch alle felder einzeln im PaintEvent Zeichnen?

    So Zeichne ich im moment ein Feld:

    VB.NET-Quellcode

    1. Private Kreis1 As New cKreis(Color.Aqua, 15, 10)
    3. Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    4. Kreis1.Zeichnen(e.Graphics)
    5. End Sub


    und das ist meine Klasse (cKreis):

    VB.NET-Quellcode

    1. Public Class cKreis
    2. Inherits Panel
    4. Private Pinsel As SolidBrush
    5. Private Stift As New Pen(Color.Black, 2)
    6. Private LocX As Integer
    7. Private LocY As Integer
    8. Private Schriftart As New Font("Arial", 8)
    9. Public Property Farbe As Color
    11. Public Sub New(f As Color, y As Integer, x As Integer)
    12. Farbe = f
    13. LocX = x
    14. LocY = y
    15. End Sub
    17. Public Sub Zeichnen(ByVal g As Graphics)
    18. Pinsel = New SolidBrush(Farbe)
    19. g.DrawEllipse(Stift, LocX, LocY, 50, 50)
    20. g.FillEllipse(Pinsel, LocX, LocY, 50, 50)
    21. g.DrawString("Feld1", Schriftart, Brushes.Black, LocX + 8, LocY + 55)
    22. End Sub
    23. End Class


    Ich hab so das doffe gefühl ich bin auf dem vollkommen falschen dampfer... :D

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „CFire“ () aus folgendem Grund: Nachtrag

    Sammel die Felder in einer Liste bzw. Array, undzwar als Rectangle.
    Danach kannst du einfach die Position von dem Rectangle nehmen und die Mitte berechnen. Dort zeichnest du dann die Figur hinein.


    EDIT://
    Nachdem du alle Rectangle für die Felder erzeugt hast (ich weiß ja nicht wie das Feld aussehen soll),
    kannst du das Ganze ja mit einer For-Each bzw. For i as Integer-Schleife durchlaufen, und ersparst dir somit das Einzeln zeichnen.
    D.h:

    VB.NET-Quellcode

    1. Public Class cKreis
    2. Inherits Panel
    4. Private Pinsel As SolidBrush
    5. Private Stift As New Pen(Color.Black, 2)
    6. Private _Rectangle as Rectangle
    7. Private Schriftart As New Font("Arial", 8)
    8. Public Property Farbe As Color
    10. Public Sub New(f As Color, y As Integer, x As Integer)
    11. Farbe = f
    12. _Rectangle = New Rectangle(x, y, 50,50)
    13. End Sub
    15. Public Sub Zeichnen(ByVal g As Graphics)
    16. Pinsel = New SolidBrush(Farbe)
    17. g.DrawEllipse(Stift, _Rectangle)
    18. g.FillEllipse(Pinsel, _Rectangle)
    19. g.DrawString("Feld1", Schriftart, Brushes.Black, LocX + 8, LocY + 55)
    20. End Sub
    21. End Class
    23. Private PositionPlayerOne as Integer = 3 'Beispiel
    24. Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    25. For Each k as cKreis in CircleList 'Wobei du natürlich erst diese CircleList erstellen musst.
    26. k.Zeichnen(e.Graphics)
    27. Next
    29. 'Figurzeichnen, bsp. funktioniert nicht, ist eher für den Gedankenweg
    30. Dim CircleArray as cKreis() = CircleList.ToArray()
    31. Figur.Zeichnen(CircleArray(PositionPlayerOne)) 'Natürlich musst du dir dann den Punkt noch berechnen, ich übergebe hier lediglich das Feld-Rechteck in dem die Figur stehen sollte.
    33. End Sub



    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Gather“ ()

    Warum heisst die Klasse cKreis? Was stellt sie dar? Warum erbt sie von Panel?

    Nach meim OwnerDrawing-Tut ist geraten, sich ein Canvas-Control zu basteln - das sollte von Control erben, evtl. von Panel, wenn du mit AutoScrolling arbeiten musst -was ich bezweifel.

    Aber warum sollte ein Canvas "Kreis" heissen? Schon aufgrund des Namens blicke ich nicht mehr durch, was die Aufgabe dieses Controls sein soll.

    (Ich glaube übrigens, du blickst auch nicht durch, denn anderer Code in cKreis deutet darauf hin, dass es eine Figur-Klasse sein soll, aber Figur-Klassen sollen keinesfalls von Panel oder anderen Controls erben)

    Ah - ja - ich denke, es soll eher eine Figur sein.
    Also einfach zeile#2 löschen, dann kann man das so leidlich als Figur-Klasse, die einen Kreis darstellen soll, durchgehen lassen.
    Wird denn schoma was auffm Form gemalt? Das wär ja schon ein Erfolg.

    cKreis Zeichnet ein SpielFeld (von 40 oder 44) wo zum Schluss die Figur drauf steht.

    Ich glaube übrigens, du blickst auch nicht durch

    Ne... bin im moment total verwirrt, glaube das war zu viel input für heute.

    Werd mir mal alles in ruhe zu gemüte führen und von vorne alles neu bedenken.

    Ich habs mir ganz kurz angeschaut:
    cCircle

    VB.NET-Quellcode

    1. Public Class cCircle
    3. Private LocX As Integer
    4. Private LocY As Integer
    5. Private _Field As Rectangle
    6. Private _Text As String = "Feld1"
    7. Private _Font As Font = New Font("Arial", 8)
    8. Private _ForeColor As Color = Drawing.Color.Black
    10. Public Property Field As Rectangle
    11. Get
    12. Return _Field
    13. End Get
    14. Set(value As Rectangle)
    15. If _Field <> value Then
    16. _Field = value
    17. End If
    18. End Set
    19. End Property
    21. Private _Color As Color = Drawing.Color.Blue
    22. Public Property Color As Color
    23. Get
    24. Return _Color
    25. End Get
    26. Set(value As Color)
    27. If _Color <> value Then
    28. _Color = value
    29. End If
    30. End Set
    31. End Property
    33. Public Sub New(f As Color, y As Integer, x As Integer)
    34. _Color = f
    35. _Field = New Rectangle(x, y, 50, 50)
    36. End Sub
    37. Public Sub Draw(ByVal g As Graphics)
    38. g.FillEllipse(New SolidBrush(_Color), _Field)
    39. g.DrawEllipse(New Pen(Color.Black, 2), _Field)
    40. g.DrawString(_Text, _Font, New SolidBrush(_ForeColor), LocX + 8, LocY + 55)
    41. End Sub
    42. End Class

    Die Properties, sind hier eigentlich unnötig.

    Form

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim l As New List(Of cCircle) From {New cCircle(Color.Blue, 50, 50), New cCircle(Color.Red, 100, 50)}
    4. Private PlayerPos As Integer = 1
    6. Private Function GetPlayerRectangle(r As Rectangle, Optional s As Integer = 10) As Rectangle
    7. Dim p As New Point((r.X + CInt(r.Width / 2)) - CInt(s / 2), (r.Y + CInt(r.Height / 2)) - CInt(s / 2))
    8. Return New Rectangle(p, New Size(s, s))
    9. End Function
    11. Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    12. Dim g As Graphics = e.Graphics
    13. g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    14. Dim Arr As cCircle() = l.ToArray
    16. For i As Integer = 0 To Arr.Count - 1
    17. Arr(i).Draw(g)
    18. Next
    19. g.FillEllipse(Brushes.Black, GetPlayerRectangle(Arr(PlayerPos).Field))
    20. End Sub
    21. End Class


    Da kannst du ansetzen :)
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Gather“ ()

    @CFire: klingt eiglich nicht so schlecht.
    Aber sag nicht "zeichnet ein Spielfeld"
    Spielfeld ist in meiner Welt das gesamte Spiel. Dein Kreis zeichnet ein Feld, eines von 40 oder 44 (hast du immer noch nicht nachgezählt?).
    Und wenn das funzt, ist das schon ein wichtiger Schritt in die richtige Richtung.
    Demnächst muss dann eine List(Of Kreis) instanziert und befüllt werden, mit 44 Kreisen, und deren X, Y muss richtig eingestellt werden, dann hast du schonmal die Felder, wo die Spielfiguren herumlaufen.

    Aber ich würde ein Canvas-Control dafür machen, und darin das Paint-Event behandeln.
    Es wird noch sehr komplex, und wenn das alles im Form stattfinden soll, verliert man im Form-Code vollkommen den Überblick.

    Besser ein Canvas-Control basteln, kompilieren, aufs Form ziehen, und dann das Canvas weiter-entwickeln, und das Form damit in Ruhe lassen.

    Also strukturell ist das sehr an das erste Card-Sample aussm Tut angelehnt, nur deine Layout-Logik muss natürlich ganz anders als beim Card-Sample.
    Beim Card-Sample wird ja fortlaufend zeilenweise angeordnet, während deine Felder-Anordnung ja das typische Mensch-ÄrgereDichnicht-Layout ergeben muss - die Umriss-Linie eines griechischen Kreuzes, so ähnlich.

Facebook
Telefonspende