Wie betätige ich "buttons" mit Tastaturbefehlen? Wie erstelle ich Grenzen?

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von SchuLLes.

    Wie betätige ich "buttons" mit Tastaturbefehlen? Wie erstelle ich Grenzen?

    Hi!
    In einem Projekt möchte ich ein Objekt über buttons, die ticker aktivieren, in Bewegung setzen...
    Klappt alles super: button klicken und schon geht's los :thumbsup: ... Jetzt möchte ich aber nicht den button KLICKEN sondern beispielsweise über W A S D beeinflussen... 8|

    Also: Wie beeinflusse ich buttons über die Tastatur? Und wie bewege ich Objekte ohne buttons und tickers?
    Jetzt zu meiner zweiten Frage: Wie kann ich Bereiche als Blocker (sie sollen das Objekt stoppen, sobald es dagegen stößt) oder als Bereiche, die sobald das Objekt sie betritt, eine MsgBox("Error") erscheinen lassen, festlegen?

    Vielen Dank im Voraus und schöne Grüße von einem Visual Basic Anfänger ;)
    SchuLLes

    Danke erstmal und coole homepage!
    Jetzt habe ich gleich noch eine Frage:
    Würde es klappen, wenn ich schriebe:

    If PictureBox1.Location.Y -30 Then Timer1.Stop ()

    ???

    Oder z.B.:

    If PictureBox1.Location.Y -30 Then
    Timer1.Stop ()
    MsgBox("You failed")

    ???

    Oder funktioniert es anders?

    MFG Schulles

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „SchuLLes“ ()

    Danke, ja müsste eigendlich wenn z.b. der Code so aussieht:

    VB.NET-Quellcode

    1. If e.KeyCode = Keys.Up Then
    2. PictureBox1.Top = PictureBox1.Top + 50
    3. End If
    4. If PictureBox1.Location.Y + 50 Then
    5. MsgBox("You failed")
    6. End If


    PS: Auch wenn der Code ein bisl unlogisch ist, denn wenn mal Pfeiltaste nach oben drückt geht er normaler weise nicht nach unten xd

    Und wie sorge ich dafür, dass das Objekt nicht weiter als bis zu diesem Punkt bewegt werden kann?

    Also

    If PictureBox1.Location = PictureBox1.Location.Y - 100 Then [Kann nicht weiter als bis zu diesem Punkt bewegt werden]?

    Außerdem habe ich das Problem, dass ich nicht weiß, welchen Wert ich hinter der Achse eintragen muss... Y -???
    Ist die Zahl, die auch bei location steht? Ein weiteres Problem ist, dass erst, wenn ich die "W" Taste loslasse die Meldung kommt... bis dahin bewegt sich das Objekt weiter :(

    Edit:
    Oh tut mir leid! Ich habe die Formel an den falschen Platz gesetzt... Jetzt gab's 'nen Private Sub und jetzt kommt gar keine message mehr, egal ob If Location... oder Top... :(

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

    Also...:
    Es funktioniert über Timer, welche durch buttons ausgelöst werden (noch eine Frage: funktionieren keycodes wenn buttons im Programm sind? Es hat nie geklappt, wenn welche drin waren). Was ich möchte ist, dass die Timer stoppen, sobald die PictureBoxen einen bestimmten Punkt erreichen und danach auch nicht weiter als bis zu dieser Grenze bewegt werden können... Hier der Code:
    Ach ja, noch etwas wichtiges: Bitte nicht wundern, dass es drei PictureBoxen gibt, ich habe 3 Buttons über die man auswählt, welche PictureBox als "Objekt" benutzt werden soll... Stickfigure, Billardkugel, oder Rakete... lol...

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Timer1.Start()
    5. Timer2.Stop()
    6. Timer3.Stop()
    7. Timer4.Stop()
    8. Timer5.Stop()
    9. Timer6.Stop()
    10. Timer7.Stop()
    11. Timer8.Stop()
    12. End Sub
    14. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    15. Timer2.Start()
    16. Timer1.Stop()
    17. Timer3.Stop()
    18. Timer4.Stop()
    19. Timer5.Stop()
    20. Timer6.Stop()
    21. Timer7.Stop()
    22. Timer8.Stop()
    23. End Sub
    25. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    26. Timer3.Start()
    27. Timer2.Stop()
    28. Timer1.Stop()
    29. Timer4.Stop()
    30. Timer5.Stop()
    31. Timer6.Stop()
    32. Timer7.Stop()
    33. Timer8.Stop()
    34. End Sub
    36. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    37. Timer4.Start()
    38. Timer2.Stop()
    39. Timer3.Stop()
    40. Timer1.Stop()
    41. Timer5.Stop()
    42. Timer6.Stop()
    43. Timer7.Stop()
    44. Timer1.Stop()
    45. End Sub
    47. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    48. Timer4.Stop()
    49. Timer2.Stop()
    50. Timer3.Stop()
    51. Timer1.Stop()
    52. Timer5.Stop()
    53. Timer6.Stop()
    54. Timer7.Stop()
    55. Timer8.Stop()
    56. End Sub
    58. Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
    59. PictureBox1.Location = New Point(PictureBox1.Location.X - 20, PictureBox1.Location.Y)
    60. PictureBox2.Location = New Point(PictureBox2.Location.X - 20, PictureBox2.Location.Y)
    61. PictureBox3.Location = New Point(PictureBox3.Location.X - 20, PictureBox3.Location.Y)
    62. End Sub
    64. Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
    65. PictureBox1.Location = New Point(PictureBox1.Location.X + 20, PictureBox1.Location.Y)
    66. PictureBox2.Location = New Point(PictureBox2.Location.X + 20, PictureBox2.Location.Y)
    67. PictureBox3.Location = New Point(PictureBox3.Location.X + 20, PictureBox3.Location.Y)
    68. End Sub
    70. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    71. PictureBox1.Location = New Point(PictureBox1.Location.X, PictureBox1.Location.Y - 20)
    72. PictureBox2.Location = New Point(PictureBox2.Location.X, PictureBox2.Location.Y - 20)
    73. PictureBox3.Location = New Point(PictureBox3.Location.X, PictureBox3.Location.Y - 20)
    74. End Sub
    76. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    77. PictureBox1.Location = New Point(PictureBox1.Location.X, PictureBox1.Location.Y + 20)
    78. PictureBox2.Location = New Point(PictureBox2.Location.X, PictureBox2.Location.Y + 20)
    79. PictureBox3.Location = New Point(PictureBox3.Location.X, PictureBox3.Location.Y + 20)
    80. End Sub
    82. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    83. End Sub
    85. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    86. PictureBox1.Visible = False
    87. PictureBox2.Visible = False
    88. PictureBox3.Visible = True
    89. End Sub
    91. Private Sub Man_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Man.Click
    92. PictureBox1.Visible = False
    93. PictureBox2.Visible = True
    94. PictureBox3.Visible = False
    95. End Sub
    97. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    98. PictureBox1.Visible = True
    99. PictureBox2.Visible = False
    100. PictureBox3.Visible = False
    101. End Sub
    103. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    104. Timer4.Stop()
    105. Timer2.Stop()
    106. Timer3.Stop()
    107. Timer1.Stop()
    108. Timer5.Start()
    109. Timer6.Stop()
    110. Timer7.Stop()
    111. Timer8.Stop()
    112. End Sub
    114. Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
    115. PictureBox1.Location = New Point(PictureBox1.Location.X + 20, PictureBox1.Location.Y + 20)
    116. PictureBox2.Location = New Point(PictureBox2.Location.X + 20, PictureBox2.Location.Y + 20)
    117. PictureBox3.Location = New Point(PictureBox3.Location.X + 20, PictureBox3.Location.Y + 20)
    118. End Sub
    120. Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
    121. PictureBox1.Location = New Point(PictureBox1.Location.X - 20, PictureBox1.Location.Y - 20)
    122. PictureBox2.Location = New Point(PictureBox2.Location.X - 20, PictureBox2.Location.Y - 20)
    123. PictureBox3.Location = New Point(PictureBox3.Location.X - 20, PictureBox3.Location.Y - 20)
    124. End Sub
    126. Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick
    127. PictureBox1.Location = New Point(PictureBox1.Location.X + 20, PictureBox1.Location.Y - 20)
    128. PictureBox2.Location = New Point(PictureBox2.Location.X + 20, PictureBox2.Location.Y - 20)
    129. PictureBox3.Location = New Point(PictureBox3.Location.X + 20, PictureBox3.Location.Y - 20)
    130. End Sub
    132. Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
    133. PictureBox1.Location = New Point(PictureBox1.Location.X - 20, PictureBox1.Location.Y + 20)
    134. PictureBox2.Location = New Point(PictureBox2.Location.X - 20, PictureBox2.Location.Y + 20)
    135. PictureBox3.Location = New Point(PictureBox3.Location.X - 20, PictureBox3.Location.Y + 20)
    136. End Sub
    138. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    139. Timer4.Stop()
    140. Timer2.Stop()
    141. Timer3.Stop()
    142. Timer1.Stop()
    143. Timer5.Stop()
    144. Timer6.Start()
    145. Timer7.Stop()
    146. Timer8.Stop()
    147. End Sub
    149. Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    150. Timer4.Stop()
    151. Timer2.Stop()
    152. Timer3.Stop()
    153. Timer1.Stop()
    154. Timer5.Stop()
    155. Timer6.Stop()
    156. Timer7.Start()
    157. Timer8.Stop()
    158. End Sub
    160. Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    161. Timer4.Stop()
    162. Timer2.Stop()
    163. Timer3.Stop()
    164. Timer1.Stop()
    165. Timer5.Stop()
    166. Timer6.Stop()
    167. Timer7.Stop()
    168. Timer8.Start()
    169. End Sub
    170. End Class

    Bin jetzt erstmal weg, komme so gegen 21:00 mal wieder schauen^^
    Danke für deine Hilfe und schöne Grüße
    Schulles

    (Im Anhang ein Bild des Programms)
    Bilder

    • picture01.JPG

      27,25 kB, 748×563, 127 mal angesehen

    Also was du genau willst habe ich verstanden und es müsste so bei dir gehen:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Timer1.Start()
    5. End Sub
    7. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    8. PictureBox1.Top = PictureBox1.Top + 10
    9. Button1.Enabled = False
    10. End Sub
    12. Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    13. If e.KeyCode = Keys.Up Then
    14. Timer1.Stop()
    15. Button1.Enabled = True
    16. End If
    17. End Sub
    18. End Class


    Natürlich ist as jetzt nur ein beispiel ^^

    Ne sry, ist nicht was ich suche... :(
    Was ich suche ist das hier: Wenn Objekt Location X/Y +/- ? dann automatisch stopp: Objekt anhalten und keinen Schritt in die Richtung weiter (also eine Grenze, 'ne Mauer, Blocker...) 8o
    Falls du mir da nicht helfen kannst auch nicht schlimm, warst mir ja eine große Hilfe mit e.keycode! :thumbsup:
    Danke nochmal und schöne Grüße

    SchuLLes 8|

    Ohh hab den falschen Code gepostet ich meine:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Timer1.Start()
    4. End Sub
    6. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    7. PictureBox1.Top = PictureBox1.Top + 10
    8. Button1.Enabled = False
    9. End Sub
    11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    12. timer2.start()
    13. End Sub
    15. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    16. If PictureBox1.Location.Y = 150 Then
    17. Button1.Enabled = True
    18. Timer1.Stop()
    19. End If
    20. End Sub
    21. End Class


    ist halt nicht so schön der Code funz aber

    Hoffe du meinst das!

    PS: Es gibt aber immer verschiedene möglichkeiten z.b. dies:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Timer1.Start()
    4. End Sub
    6. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    7. Button1.Enabled = False
    8. PictureBox1.Top = PictureBox1.Top + 10
    9. End Sub
    11. Private Sub PictureBox1_Move(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Move
    12. If PictureBox1.Location.Y = 150 Then
    13. Button1.Enabled = True
    14. Timer1.Stop()
    15. End If
    16. End Sub
    17. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Kevin123“ ()

    Ja bei diesem Code kommt es auch an wo genau deine Picturebox steht, denn wenn sie unter der 150 ist wird sie logischerweise auch nie die 150 erreichen und somit nie stehen bleiben und da ich ja 10 schritte angegeben habe kannst du nicht anfangen von z.b. 83 zu zählen das er nicht am ende 150 sondern 153 erreicht und somit einfach weiter läuft!

    OMG! OMG! OMG! OMG! :D :D :D :D :D :D
    Du Genie ich Idiot! :P
    Na klar!!! Wenn ich mit +20 oder -20 das Objekt bewege ist es kein Wunder, wenn es nicht bei 53 stehen bleibt, wenn es bei 22 anfängt! :pinch: :sleeping: :wacko: :whistling:
    Ich Idiot! Mann.. wie geil... es läuft :thumbsup:
    Vielen Dank für deine Hilfe und Ausdauer!!! ;)

    Lol... Smiley Wahnsinn

    MFG SchuLLes

    Hallo SchuLLes,

    anscheinend fängst du gleich als Anfänger mit einem Spiel an.

    Spiele mit VB sind "höhere Gewalten", selbst Profis sind da nicht so gut. Auch wenn du schnell lernst und schon recht gut bist, würde ich dir davon abraten, hier ein zweites "Counter-Strike" zu programmieren! (Und eigentlich sind das auch keine Grundlagen mehr, das gehört eher ins Hauptforum oder zu Multimedia-/Spielprogrammmierung... ;) )
    Als Anfänger sollte man zunächst kleinere Projekte machen, und dann sich immer wieder steigern.

    Sieh das jetzt nicht als Kritik, sondern als Vorschlag.

    Weiterhin gutes Gelingen,
    bruno1998

    Gut, danke für den Tipp! ;)
    Glaub' mir: ich hatte wirklich nicht vor, ein riesen Programm zu erstellen^^ Es sollte mal ein kleines Projekt werden, das nicht nur aus buttons und textboxen besteht. :D Jedoch merke ich: Es ist noch zu viel. Es fehlt an vielem und ich sollte wirklich lieber mit etwas einfacherem beginnen...

    Schöne Grüße

    SchuLLes 8|

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „SchuLLes“ ()

Facebook
Telefonspende