Abfrage funktioniert nicht richtig :(

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von ThePlexian.

    Abfrage funktioniert nicht richtig :(

    Also ich bin zur Zeit ein kleineres Kartenspiel am entwerfen das man gegen einen Computergegner spielt.
    Ich werde hier die gekürzten Codes auflisten und sagen was sie bewirken sollen und wo mein Problem liegt und hoffe das mir jemand helfen kann :)

    Also man hat 3 Karten auf der Hand, das ist jetzt der Befehl wenn man die Karte auf Position 1 (die für 2 und 3 sind genau so aufgebaut)
    aus der eigenen Hand anklickt / auswählt, für den Computer wird eine zufällige ausgewählt.

    VB.NET-Quellcode

    1. Private Sub pl1_karte1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl_pl1_karte1.Click
    3. '----------------------------------------'
    4. 'Karte ausgewählt'
    5. '----------------------------------------'
    7. tmr_karte_klick.Enabled = True
    8. pl1_handauswahl = 1
    10. '----------------------------------------'
    11. '----------------------------------------'
    13. '----------------------------------------'
    14. 'Gegnerische Karte auswählen'
    15. '----------------------------------------'
    17. Randomize()
    18. Dim random As Integer = CInt(Int((3 * Rnd()) + 1))
    19. pl2_handauswahl = random
    21. '----------------------------------------'
    22. '----------------------------------------'
    24. End Sub


    Dadurch wird nun der Timer aktiviert der die Ausgewählte Karte ein wenig nach oben verschiebt damit man sehen kann ob sie ausgewählt wurde.

    VB.NET-Quellcode

    1. Private Sub tmr_karte_klick_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr_karte_klick.Tick
    3. '----------------------------------------'
    4. '----------------------------------------'
    6. If lbl_pl1_karte1.Location.Y <= 393 Or lbl_pl1_karte2.Location.Y <= 393 Or lbl_pl1_karte3.Location.Y <= 393 Then
    8. tmr_karte_klick.Enabled = False
    9. tmr_kampf.Enabled = True
    10. tmr_kampf_pl2.Enabled = True
    12. Else
    14. '----------------------------------------'
    15. 'Bewegung der Eigenen Karte'
    16. '----------------------------------------'
    18. If pl1_handauswahl = 1 Then
    20. lbl_pl1_karte1.Location = New Point(lbl_pl1_karte1.Location.X + 0, lbl_pl1_karte1.Location.Y - 1)
    22. ElseIf pl1_handauswahl = 2 Then
    24. lbl_pl1_karte2.Location = New Point(lbl_pl1_karte2.Location.X + 0, lbl_pl1_karte2.Location.Y - 1)
    26. Else
    28. lbl_pl1_karte3.Location = New Point(lbl_pl1_karte3.Location.X + 0, lbl_pl1_karte3.Location.Y - 1)
    30. End If
    32. '----------------------------------------'
    33. '----------------------------------------'
    34. End If


    Nun komm ich zu dem Teil an dem ich ein Problem habe wenn ich im vorigen Code "tmr_kampf" an erste Stelle tu fragt er die Werte aus "tmr_kampf_pl2" zu spät ab und umgekehrt.
    Es geht um folgende Werte:
    pl1_blau_ang
    pl1_grün_ang
    pl1_gelb_ang
    pl1_rot_ang
    pl1_kartentyp

    Hier nun die Timer die diese Werte festlegen und auch abfragen.


    VB.NET-Quellcode

    1. Private Sub tmr_kampf_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr_kampf.Tick
    5. Dim pl1_karte_a As Integer
    7. If pl1_handauswahl = 1 Then
    8. pl1_karte_a = pl1_karte1_hand
    9. ElseIf pl1_handauswahl = 2 Then
    10. pl1_karte_a = pl1_karte2_hand
    11. Else
    12. pl1_karte_a = pl1_karte3_hand
    13. End If
    15. Select Case pl1_karte_a
    17. ''es exestieren auch noch cases davor und danach aber case 17 ist das beste beispiel da es aus pl2 etwas abfragt
    18. Case 17
    19. GoTo 17
    22. End Select
    25. 17:
    27. pl1_blau_ang = -1
    28. pl1_grün_ang = 0
    29. pl1_gelb_ang = 0
    30. pl1_rot_ang = 0
    32. pl1_kartentyp = "grün"
    34. '----------------------------------------'
    35. 'Wenn Felder vorhanden
    36. '----------------------------------------'
    37. If pl2_blau_ang = 0 Then
    38. pl1_grün_ang += 2
    39. End If
    41. If pl2_grün_ang = 0 Then
    42. pl1_grün_ang += 2
    43. End If
    45. If pl2_gelb_ang = 0 Then
    46. pl1_grün_ang += 2
    47. End If
    49. If pl2_rot_ang = 0 Then
    50. pl1_grün_ang += 2
    51. End If
    53. ''hier nach kommen auch noch einige befehle der karten die jedoch nur auf die pl1_blau,grün,gelb und rot eingehen deshalb habe ich diese jetzt weggelassen zur übersicht
    55. GoTo Ende
    58. Ende:
    60. If pl1_handauswahl = 1 Then
    61. '174; 443
    62. lbl_pl1_karte1.BackgroundImage = Nothing
    63. pl1_karte1_b = False
    64. lbl_pl1_karte1.Location = New Point(lbl_pl1_karte1.Location.X + 0, lbl_pl1_karte1.Location.Y + 50)
    65. ElseIf pl1_handauswahl = 2 Then
    66. '388; 443
    67. lbl_pl1_karte2.BackgroundImage = Nothing
    68. pl1_karte2_b = False
    69. lbl_pl1_karte2.Location = New Point(lbl_pl1_karte2.Location.X + 0, lbl_pl1_karte2.Location.Y + 50)
    70. Else
    71. '605; 443
    72. lbl_pl1_karte3.BackgroundImage = Nothing
    73. pl1_karte3_b = False
    74. lbl_pl1_karte3.Location = New Point(lbl_pl1_karte3.Location.X + 0, lbl_pl1_karte3.Location.Y + 50)
    75. End If
    77. tmr_kampf.Enabled = False
    79. End Sub


    Der Code für pl2_tmr sieht genau so aus nur das überall wo pl1 steht halt pl2 steht und umgekehrt, hier jedoch mal ein kleiner Teil der gut als Beispiel dient...

    VB.NET-Quellcode

    1. Private Sub tmr_kampf_pl2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr_kampf_pl2.Tick
    3. Dim pl2_karte_a As Integer
    5. If pl2_handauswahl = 1 Then
    6. pl2_karte_a = pl2_karte1_hand
    7. ElseIf pl1_handauswahl = 2 Then
    8. pl2_karte_a = pl2_karte2_hand
    9. Else
    10. pl2_karte_a = pl2_karte3_hand
    11. End If
    13. Select Case pl2_karte_a
    15. Case 1
    16. GoTo 1
    18. End Select
    20. 1:
    22. pl2_blau_ang = -1
    23. pl2_grün_ang = 0
    24. pl2_gelb_ang = 0
    25. pl2_rot_ang = 3
    27. pl2_kartentyp = "grün"
    30. GoTo ende
    32. ''hab ende jetzt einfach mal weggelassen...


    Nochmal konkret zu meinem Problem:
    Wenn ich tmr_kampf zuerst setzte kann er die Werte von pl2_blau_ang nicht abfragen aber tmr_kampf_pl2 schon von pl1_blau_ang,
    Wenn ich dann tmr_kampf_pl2 zuerst setzte haben wir das selbe in grün :/.

    Das ist das einzige Problem was ich besitzte ansonsten ist das Spiel dann schon fertig und Fehlerfrei :)
    Wäre nett wenn mir jemand dabei behilflich sein könnte !

    Verschieb diese Zeile nach Form_Load():

    Azrael schrieb:

    VB.NET-Quellcode

    1. Randomize()
    Sieh Dir mal die Random-Klasse an.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hab ich gemacht, das ändert jedoch nichts an dem ergebnis :(
    Ich habe die Werte mit einer Textbox auslesen lassen, die Werte aus tmr_kampf_pl2 werden erst in der nächsten Runde benutzt und nicht wie beabsichtigt in der selben Runde wie tmr_kampf, so sind die Effekte der Karten, Angriffswerte und co. für Spieler 2 um eine Runde verschoben :(

    @Azrael Bevor Du Dich um grün, blau und gelb kümmerst löse dieses Problem allein, ohne den Rest.
    Mach ein separates Projekt und pack da nur das Zufällige rein.
    Poste den Code, schreib was passiert und was passieren soll,
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    Mach ein separates Projekt und pack da nur das Zufällige rein.


    Was meinst du mit Zufällige ?
    Es wird ja nur die Karte die der Computer-Gegner auswählt per Zufall bestimmt und halt auch wie das Deck zu beginn gemischt wird, aber das scheint alles zu funktionieren.

    Die SelectCase bei pl1_karte_a (und pl2) prüft welche Karte ausgewählt ist (insgesamt gibt es 118, wobei nur 30 im Deck sind), die wird also nicht per Zufall bestimmt.

    Azrael schrieb:

    Zufällige

    Azrael schrieb:

    VB.NET-Quellcode

    1. Randomize()
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Habs mal wie du gesagt hast, alles was mit Random zu tun hat in ein Projekt, funktioniert auch alles so wie es soll...

    VB.NET-Quellcode

    1. Public Class Form1
    3. ''Cardlist wird die Nummern der Karten die man seinem Deck im Editor hinzugefügt hat enthalten
    4. ''Decklist enthält die Nummern der Karten gemischt in zufälliger Reigenfolge siehe tmr_start_mischen
    6. Public pl1_cardlist As New List(Of String)()
    7. Public pl1_decklist As New List(Of String)()
    9. Public pl2_cardlist As New List(Of String)()
    10. Public pl2_decklist As New List(Of String)()
    12. ''pl1-/pl2_handauswahl bestimmt welche Karte auf der Hand vom Spieler aktiviert wurde
    14. Public pl1_handauswahl As Integer
    15. Public pl2_handauswahl As Integer
    17. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. Randomize()
    21. pl1_cardlist.Add("001")
    22. pl1_cardlist.Add("002")
    23. pl1_cardlist.Add("003")
    24. pl1_cardlist.Add("004")
    25. pl1_cardlist.Add("005")
    26. pl1_cardlist.Add("006")
    27. pl1_cardlist.Add("007")
    28. pl1_cardlist.Add("008")
    29. pl1_cardlist.Add("009")
    30. pl1_cardlist.Add("010")
    31. pl1_cardlist.Add("011")
    32. pl1_cardlist.Add("012")
    33. pl1_cardlist.Add("013")
    34. pl1_cardlist.Add("014")
    35. pl1_cardlist.Add("015")
    36. pl1_cardlist.Add("016")
    37. pl1_cardlist.Add("017")
    38. pl1_cardlist.Add("018")
    39. pl1_cardlist.Add("019")
    40. pl1_cardlist.Add("020")
    42. pl2_cardlist.Add("001")
    43. pl2_cardlist.Add("002")
    44. pl2_cardlist.Add("003")
    45. pl2_cardlist.Add("004")
    46. pl2_cardlist.Add("005")
    47. pl2_cardlist.Add("006")
    48. pl2_cardlist.Add("007")
    49. pl2_cardlist.Add("008")
    50. pl2_cardlist.Add("009")
    51. pl2_cardlist.Add("010")
    52. pl2_cardlist.Add("011")
    53. pl2_cardlist.Add("012")
    54. pl2_cardlist.Add("013")
    55. pl2_cardlist.Add("014")
    56. pl2_cardlist.Add("015")
    57. pl2_cardlist.Add("016")
    58. pl2_cardlist.Add("017")
    59. pl2_cardlist.Add("018")
    60. pl2_cardlist.Add("019")
    61. pl2_cardlist.Add("020")
    63. tmr_start_mischen.Enabled = True
    65. End Sub
    67. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr_start_mischen.Tick
    70. If pl1_cardlist.Count > 0 Then
    72. Dim rnd = New Random()
    74. ''Gibt einen zufälligen Wert aus der pl1-/pl2_cardlist wieder
    75. Dim pl1_mischen = pl1_cardlist(rnd.Next(0, pl1_cardlist.Count))
    76. Dim pl2_mischen = pl2_cardlist(rnd.Next(0, pl2_cardlist.Count))
    78. 'Fügt den zufälligen Wert pl1-/pl2_decklist hinzu
    79. pl1_decklist.Add(pl1_mischen)
    80. pl2_decklist.Add(pl2_mischen)
    82. 'Löscht den zufälligen Wert aus pl1-/pl2_cardlist damit keine Karte doppelt vorkommt
    83. pl1_cardlist.Remove(pl1_mischen)
    84. pl2_cardlist.Remove(pl2_mischen)
    86. Else
    88. tmr_start_mischen.Enabled = False
    90. End If
    92. End Sub
    94. Private Sub pl1_karte1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl_pl1_karte1.Click
    96. ''Wenn die Karte auf Position 1 angelickt wird
    97. tmr_karte_klick.Enabled = True
    98. pl1_handauswahl = 1
    100. ''Zufällige Karte wird für den Computer bestimmt
    101. Dim random As Integer = CInt(Int((3 * Rnd()) + 1))
    102. pl2_handauswahl = random
    104. End Sub
    106. Private Sub pl1_karte2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl_pl1_karte2.Click
    108. ''Wenn die Karte auf Position 2 angelickt wird
    109. tmr_karte_klick.Enabled = True
    110. pl1_handauswahl = 2
    112. ''Zufällige Karte wird für den Computer bestimmt
    113. Dim random As Integer = CInt(Int((3 * Rnd()) + 1))
    114. pl2_handauswahl = random
    116. End Sub
    118. Private Sub pl1_karte3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl_pl1_karte3.Click
    120. ''Wenn die Karte auf Position 3 angelickt wird
    121. tmr_karte_klick.Enabled = True
    122. pl1_handauswahl = 3
    124. ''Zufällige Karte wird für den Computer bestimmt
    125. Dim random As Integer = CInt(Int((3 * Rnd()) + 1))
    126. pl2_handauswahl = random
    128. End Sub
    130. End Class

    Azrael schrieb:

    VB.NET-Quellcode

    1. Dim rnd = New Random()
    darf nur einmal vorkommen, ab nach Form_Load und rnd in die Klasse. Nimm bitte nur das .NET-Random!
    Und dann so:

    VB.NET-Quellcode

    1. pl1_cardlist.AddRange({"001", "002", "003", "004"})

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Die Instanziierung ins FormLoad, die Deklaration global.
    Über der FormLoad-Sub : Dim rnd As Random
    In FormLoad: rnd = New Random()
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    RodFromGermany schrieb:

    @Azrael Bevor Du Dich um grün, blau und gelb kümmerst löse dieses Problem allein, ohne den Rest.
    Mach ein separates Projekt und pack da nur das Zufällige rein.
    Poste den Code, schreib was passiert und was passieren soll,


    Naja wie soll ich sagen, das mit dem Random sieht mir zur Zeit eigendlich so aus als ob das funktioniert, das problem ist nur mit den tmr und dann die verschiedenen farben abzufragen, oder hängt das mit dem random zusammen, bin verwirrt :s

    Azrael schrieb:

    mit den tmr und dann die verschiedenen farben abzufragen
    Formuliere bitte mal Dein Problem so, dass wir es so verstehen, wie Du es gemeint hast.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Azrael schrieb:

    hab jetzt noch zwei Timer eingebaut
    Jetzt ist ganz bestimmt was falsch an Deinem Programm.
    Was machen 2 Timer, was nicht auch ein Timer machen kann?
    Für was für eine Abfrage brauchst Du einen Timer?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende