Visual Basic Game Porblem: Nach öffnen und schliessen einer weiteren Form ist die Bewegung des Charakters nicht mehr möglich.

  • VB.NET
  • .NET (FX) 4.0

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von XpressMak.

    Visual Basic Game Porblem: Nach öffnen und schliessen einer weiteren Form ist die Bewegung des Charakters nicht mehr möglich.

    Also, zunächst mal Guten morgen zusammen. Ich habe mich gerade erst hier angemeldet, falls dieser Post nicht im richtigen Thema gepostet wurde, bitte ändern.
    Ich absolviere eine Vorlehre als Informatiker in der Schweiz, und mache ab dem Sommer die Lehrstelle. Im Modul, dass ich gerade durchgehe, muss ich Visual Basic lernen. Im Rahmen des Themas "Klassen und Objekte" bin ich ein kleineres Spiel am schreiben. Nun habe ich es gerade erst geschafft, Häuser undurchdringbar zu machen. Nun möchte ich, dass bei Kollision zwischen Charakter und Gebäude, eine neue Form aufgeht. Da die Kollisionsüberprüfung aber in einem Timer läuft, lasse ich zunächst bei Kollision einen Button erscheinen, der danach fragt, ob man das Gebäude denn jetzt betreten wolle. Anonsten würde sich die zu öffnende Form unbegrenzt oft öffnen. Nach dem klick darauf, öffnet sich eine neue Form, in der man zwischen verschiedensten Esswaren auswählen kann. Nun habe ich aber folgendes Problem: Nach schliessen dieser Form, kann ich meinen Charakter nicht mehr bewegen, und habe KEINE Ahnung, warum.

    Hier der gesamte Code:

    VB.NET-Quellcode

    1. Public Class NewGame
    2. Dim kollision As Boolean
    3. Dim vonlinks As Boolean
    4. Dim vonrechts As Boolean
    5. Dim vonoben As Boolean
    6. Dim vonunten As Boolean
    7. Dim charaspeed As Integer = 10
    8. Dim untengedrückt As Boolean
    9. Dim obengedrückt As Boolean
    10. Dim rechtsgedrückt As Boolean
    11. Dim linksgedrückt As Boolean
    13. 'Bewegung
    14. Private Sub NewGame_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    16. 'Koordiniert die Bewegungsmöglichkeiten
    17. If e.KeyCode = Keys.W And vonunten = False Then
    18. chara.Top -= charaspeed
    19. obengedrückt = True
    20. untengedrückt = False
    21. linksgedrückt = False
    22. rechtsgedrückt = False
    23. chara.Image = CType(My.Resources.ResourceManager.GetObject("charhinten"), Drawing.Image)
    24. ElseIf e.KeyCode = Keys.S And vonoben = False Then
    25. chara.Top += charaspeed
    26. obengedrückt = False
    27. untengedrückt = True
    28. linksgedrückt = False
    29. rechtsgedrückt = False
    30. chara.Image = CType(My.Resources.ResourceManager.GetObject("char1"), Drawing.Image)
    31. ElseIf e.KeyCode = Keys.A And vonrechts = False Then
    32. chara.Left -= charaspeed
    33. obengedrückt = False
    34. untengedrückt = False
    35. linksgedrückt = True
    36. rechtsgedrückt = False
    37. chara.Image = CType(My.Resources.ResourceManager.GetObject("charlinks"), Drawing.Image)
    38. ElseIf e.KeyCode = Keys.D And vonlinks = False Then
    39. chara.Left += charaspeed
    40. obengedrückt = False
    41. untengedrückt = False
    42. linksgedrückt = False
    43. rechtsgedrückt = True
    44. chara.Image = CType(My.Resources.ResourceManager.GetObject("charrechts"), Drawing.Image)
    45. End If
    46. Label1.Text = vonoben
    47. Label2.Text = vonunten
    48. Label3.Text = vonlinks
    49. Label4.Text = vonrechts
    51. End Sub
    53. 'Kollisionssteuerung
    54. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckCol.Tick
    55. If chara.Bounds.IntersectsWith(house2.Bounds) Then
    56. enterburgershopbtn.Visible = True
    58. End If
    60. kollision = False
    61. 'vonoben = False
    62. 'vonunten = False
    63. 'vonlinks = False
    64. 'vonrechts = False
    66. 'Kollision
    67. If chara.Top + chara.Height >= house1.Top And chara.Top <= house1.Top + house1.Height And _
    68. chara.Left + chara.Width >= house1.Left And chara.Left <= house1.Left + house1.Width Or _
    69. chara.Top + chara.Height >= house2.Top And chara.Top <= house2.Top + house2.Height And _
    70. chara.Left + chara.Width >= house2.Left And chara.Left <= house2.Left + house2.Width Or _
    71. chara.Top + chara.Height >= robot.Top And chara.Top <= robot.Top + robot.Height And _
    72. chara.Left + chara.Width >= robot.Left And chara.Left <= robot.Left + robot.Width Then
    74. If untengedrückt = True Then
    75. vonoben = True
    76. vonunten = False
    77. vonlinks = False
    78. vonrechts = False
    79. ElseIf obengedrückt = True Then
    80. vonunten = True
    81. vonoben = False
    82. vonlinks = False
    83. vonrechts = False
    84. ElseIf linksgedrückt = True Then
    85. vonrechts = True
    86. vonlinks = False
    87. vonoben = False
    88. vonunten = False
    89. ElseIf rechtsgedrückt = True Then
    90. vonlinks = True
    91. vonrechts = False
    92. vonoben = False
    93. vonunten = False
    94. End If
    96. Else
    97. vonoben = False
    98. vonunten = False
    99. vonlinks = False
    100. vonrechts = False
    101. End If
    103. End Sub
    105. Private Sub NewGame_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    106. CheckCol.Enabled = True
    107. enterburgershopbtn.Visible = False
    109. End Sub
    111. Private Sub enterburgershopbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enterburgershopbtn.Click
    112. burgerladen.Show()
    114. End Sub
    116. Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robot.Click
    118. End Sub
    119. End Class



    Und ja ich weiss, ich habe das Kollisionsproblem etwas primitiv gelöst. X/

    Hey, ein Spiel wirst du auf diese Weise nicht anständig hinbekommen. Gib mal bei google .net Gameloop ein, arbeite mit der Gameloop und zeichne selbst mit GDI oder arbeite mit DirectX oder einer andere Engine.

    Deine Form wird keinen Focus mehr haben, deshalb kommen die KeyDowns nicht an.

    VB.NET-Quellcode

    1. Using b As New burgerladen
    2. b.ShowDialog()
    3. End Using


    Schau dir auch mal das an:
    Dialoge: Instanziierung von Forms und Aufruf von Dialogen

    Murdock schrieb:

    Hey, ein Spiel wirst du auf diese Weise nicht anständig hinbekommen. Gib mal bei google .net Gameloop ein, arbeite mit der Gameloop und zeichne selbst mit GDI oder arbeite mit DirectX oder einer andere Engine.

    Deine Form wird keinen Focus mehr haben, deshalb kommen die KeyDowns nicht an.

    VB.NET-Quellcode

    1. Using b As New burgerladen
    2. b.ShowDialog()
    3. End Using


    Schau dir auch mal das an:
    Dialoge: Instanziierung von Forms und Aufruf von Dialogen




    Haben es in der Firma rausgefunden. Musste die Keypreview der Gameform aktivieren.
    Ja komplexeres möchte ich noch gerade nicht angehen, da ich noch anfänger bin.
    Aber danke trotzdem!