Zurücksetzen eines Labels

  • VB.NET

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

    Zurücksetzen eines Labels

    Hallo,
    Ich fange gerade mit Visual Basic an und versuche einen Space Invaders Abklatsch zu programmieren. Ich hab nur das Problem, dass ich den Schuss (also das abgeschossene Label) nicht zurücksetzten kann. Ich will es nämlich wieder auf den Startpunkt bringen, bei dem es abgeschossen wurde.
    Habe dazu nichts im Internet gefunden, was funktioniert. Danke schon einmal im vorraus!

    Hier ist der Code, wo die Bewegung stattfindet:

    VB.NET-Quellcode

    1. Dim leftt As Boolean
    2. Dim rightt As Boolean
    4. Dim shot1 As Boolean
    6. Private Sub tmrmove_Tick(sender As Object, e As EventArgs) Handles tmrmove.Tick
    8. If leftt = True Then
    9. Player.Left = Player.Left - 3
    11. If shot1 = False Then
    12. schuss1.Left = schuss1.Left - 3
    13. End If
    15. End If
    17. End If
    19. If rightt = True Then
    20. Player.Left = Player.Left + 3
    22. If shot1 = False Then
    23. schuss1.Left = schuss1.Left + 3
    24. End If
    27. End If
    29. moveshot()
    31. End Sub
    33. #End Region
    35. #Region "Tastendruck"
    37. Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
    39. If e.KeyValue = Keys.A Then
    40. leftt = True
    41. End If
    43. If e.KeyValue = Keys.D Then
    44. rightt = True
    45. End If
    47. If e.KeyValue = Keys.Space Then
    48. shot1 = True
    49. Else
    51. End If
    52. End Sub
    54. Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
    56. If e.KeyValue = Keys.A Then
    57. leftt = False
    58. End If
    60. If e.KeyValue = Keys.D Then
    61. rightt = False
    62. End If
    64. If e.KeyValue = Keys.Space Then
    65. shot1 = True
    67. If shot1 = True Then
    68. schuss1.Top = schuss1.Top - 5
    70. Else
    71. ' hier sollte der Reset stattfinden
    73. End If
    74. End if
    76. End Sub
    79. Private Sub moveshot()
    81. If shot1 = True Then
    82. schuss1.Top = schuss1.Top - 3
    83. End If
    86. End Sub

    Laut Deinem Code soll das Label zurückgesetzt werden, wenn man Space loslässt. Ist das gewollt? Außerdem hättest Du nur ein Projektil.
    Der Reset soll ja wohl einfach nur schuss1.top auf Player.top setzen, richtig? Schau Dir mal Zeile#65 und #67 an. Dann weißt Du auch warum ein Reset niemals eintritt.

    ##########

    Da Du erst anfängst, willst Du Dich an diesem Projekt an die Feinheiten der Programmierung rantasten und daran lernen, richtig? Ich frag nur deshalb, weil das bisherige Konstrukt sehr schnell sehr ... einschränkend wird. Das heißt, wenn Du das in vollen Zügen zum Laufen bringen willst, müsstest Du immer wieder Großteile Deines Codes über Bord werfen. Allerdings wäre die Alternative, Dich mit Vorgehen in Kontakt zu bringen, die Dir möglicherweise etwas die Lust am Programmieren vergehen lassen, da noch einiges zu tun wäre - Stichwort Trennung von GUI & Daten, und Objektorientierung.

    btw: Du hast den Thread schon auf "erledigt" gesetzt? Trifft das zu, dass das Problem erledigt ist?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

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

    @VaporiZed Jou.

    TastyBoba schrieb:

    Hier ist der Code, wo die Bewegung stattfindet
    Du hast eine Variable für Links und eine für rechts.
    Da eine Bewegung nicht gleichzeitig nach links und rechts gehen kann, solltest Du Dir überlegen, ob das ganze nicht besser statt zweier Boolean mit einer Enum-Variable gelöst werden kann: Stop, Left, Right.
    Und nach einem Schuss solltest Du die Variable shot1 wieder auf False setzen.
    Um zu überprüfen, was da ühaupt abläuft, solltest Du ggf. Deine Zustände permanent in die Console ausgeben.
    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!