Breakpoint Problem mit IsInputKey

  • VB.NET

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

    Breakpoint Problem mit IsInputKey

    Moin,
    schon einige male habe ich hier in den Foren nützliches gefunden, jetzt hoffe ich selbst auf Hilfe.
    direkt Butter bei die Fische:

    Der Rahmen:
    Ich programmiere neuerdings mit vb.net und habe als Einstiegsprojekt aufgetragen bekommen snake zu programmieren.
    Die Basiselemente des Spiels funktionieren auch super, sodass ich mir weiter und weiter kleinere Sachen ausdenke, die ich dann einarbeite.
    Aktuell ist dies eine Bestenliste (leaderboard) welches in einer txt Datei gespeichert werden soll. Auch dies funktioniert für sich genommen.

    Das Problem:
    Ich habe die Steuerung der Schlange über eine überschriebene IsInputKey Funktion realisiert. Eine MoveToStart Funktion soll das Spiel auf den Startzustand bringen, dh. die wichtigen Variablen zurücksetzen etc. Für das Leaderboard und eine Namenseingabe habe ich Groupboxen verwendet, die jeweils wenn sie gebraucht werden über die Visible Property angezeigt oder ausgeblendet werden.
    So weit so gut...
    Für sich genommen funktionieren alle dieser drei "Teilnehmer", dh. das Programm lief einwandfrei, bevor ich den ganzen Leaderboardkram eingearbeitet habe.
    Jetzt die Kuriosität:
    Nachdem ich mich ins Leaderboard eingetragen habe wird die MoveToStart Funktion aufgerufen, jedoch reagiert jetzt die IsInputKey Funktion nicht mehr auf meine Pfeiltasteneingabe, genauer gesagt: alles steht still..
    Setze ich jedoch einen Breakpoint und gehe step by step durch den Code so funktioniert es prima, nachdem eintragen ins Leaderboard springt das Programm bei Pfeiltasteneingabe in die IsInputKey Funktion...

    Da ich keine Ahnung habe wo das Problem liegt, obs n Einzeiler is oder ich mir ordentlich was zusammengebraut habe, füge ich den kompletten Code mit an und hoffe auf euch!

    VB.NET-Quellcode

    1. Imports System
    3. Imports System.IO
    5. Public Class Form1
    7. Dim pausenVariable As Integer
    9. Dim randomize As New Random
    11. Dim randomX As Integer
    13. Dim randomY As Integer
    15. Dim getPoint As Boolean
    17. Dim scoreCount As Integer
    19. Dim upKey As Boolean
    21. Dim downKey As Boolean
    23. Dim leftKey As Boolean
    25. Dim rightKey As Boolean
    27. Dim snake(0 To 2, 0 To 9) As Integer
    29. Dim Schlange(256) As System.Windows.Forms.Label
    31. Dim RichtungSchlange As Integer = 0 '0 = Stop, 1 = hoch, 2 = runter, 3 = links, 4 = rechts
    33. Dim timerCounter As Integer
    35. Dim leaderboard As New List(Of String)
    37. Dim rank As Integer
    39. Public Sub New()
    41. 　
    43. ' Dieser Aufruf ist für den Designer erforderlich.
    45. InitializeComponent()
    47. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    49. For index As Integer = 0 To 255
    51. Schlange(index) = New System.Windows.Forms.Label
    53. Schlange(index).Size = New System.Drawing.Size(10, 10)
    55. Schlange(index).BackColor = Color.Black
    57. Schlange(index).BorderStyle = BorderStyle.Fixed3D
    59. Schlange(0).Visible = True
    61. Me.Panel1.Controls.Add(Schlange(index))
    63. Next
    65. ' Leaderboard/bestenliste einlesen
    67. Using sr As New StreamReader("C:\Users\Labor\Documents\Visual Studio 2010\Projects\snakePfeiltasten\Leaderboard.txt")
    69. ' bis dateiende lesen
    71. While (sr.Peek <> -1)
    73. Dim zeile = sr.ReadLine()
    75. ' zur hauptliste hinzufügen
    77. leaderboard.Add(zeile)
    79. End While
    81. ' streamreader schliessen
    83. End Using
    85. MoveToStart()
    87. End Sub
    89. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    91. checkCrash()
    93. checkWallCrash()
    95. 'Bewegung der Schlange merken
    97. For index As Integer = 255 To 1 Step -1
    99. Schlange(index).Location = New Point(Schlange(index - 1).Location.X, Schlange(index - 1).Location.Y)
    101. Next
    103. 'Bewegen der Schlange
    105. If (upKey = True) Then
    107. Schlange(0).Location = New Point(Schlange(0).Location.X, Schlange(0).Location.Y - 10)
    109. RichtungSchlange = 1
    111. ElseIf (downKey = True) Then
    113. Schlange(0).Location = New Point(Schlange(0).Location.X, Schlange(0).Location.Y + 10)
    115. RichtungSchlange = 2
    117. ElseIf (leftKey = True) Then
    119. Schlange(0).Location = New Point(Schlange(0).Location.X - 10, Schlange(0).Location.Y)
    121. RichtungSchlange = 3
    123. ElseIf (rightKey = True) Then
    125. Schlange(0).Location = New Point(Schlange(0).Location.X + 10, Schlange(0).Location.Y)
    127. RichtungSchlange = 4
    129. End If
    131. 'Punkt gefressen
    133. If (Schlange(0).Location = Label2.Location) Then
    135. getPoint = True
    137. scoreCount = scoreCount + 1
    139. Schlange(scoreCount).Visible = True
    141. Label1.Text = scoreCount
    143. Label1.Visible = True
    145. Timer2.Start()
    147. If Timer1.Interval > 50 Then
    149. Timer1.Interval = Timer1.Interval - 5
    151. End If
    153. End If
    155. 'Neuen zufälligen Punkt erstellen
    157. If (getPoint) Then
    159. randomX = randomize.Next(1, 48) * 10
    161. randomY = randomize.Next(1, 48) * 10
    163. Label2.Location = New Point(randomX, randomY)
    165. getPoint = False
    167. End If
    169. End Sub
    171. 'prüft, ob die schlange sich selbst gebissen hat. falls ja, wird der scorecount geprüft und ggf. ein eintrag in der bestenliste vollzogen
    173. Private Sub checkCrash()
    175. Dim j As Integer
    177. If scoreCount > 0 Then
    179. While (j < scoreCount - 1)
    181. j = j + 1
    183. If Schlange(j + 1).Location = Schlange(0).Location Then
    185. Timer1.Stop()
    187. MessageBox.Show("Oops, you crashed!!")
    189. If scoreCount > leaderboard(9) Then
    191. Label3.Text = scoreCount
    193. checkLeaderboard()
    195. Else
    197. MoveToStart()
    199. End If
    201. End If
    203. End While
    205. End If
    207. End Sub
    209. 'setzt die wichtigen variablen zurück und setzt das spiel auf den startzustand
    211. Private Sub MoveToStart()
    213. getPoint = False
    215. scoreCount = 0
    217. For index As Integer = 1 To 255
    219. Schlange(index).Visible = False
    221. Schlange(index).Location = Nothing
    223. Next
    225. Schlange(0).Location = New Point(250, 250)
    227. upKey = False
    229. downKey = False
    231. leftKey = False
    233. rightKey = False
    235. randomX = randomize.Next(1, 48) * 10
    237. randomY = randomize.Next(1, 48) * 10
    239. Label2.Location = New Point(randomX, randomY)
    241. Label1.Visible = False
    243. End Sub
    245. 'über RichtungSchlange wird die aktuelle fahrtrichtung der schlange gemerkt und eine 180° wendung ausgeschlossen
    247. Protected Overrides Function IsInputKey(ByVal keyData As System.Windows.Forms.Keys) As Boolean
    249. Select Case keyData
    251. Case Keys.Up
    253. If RichtungSchlange <> 2 Then
    255. leftKey = False
    257. rightKey = False
    259. upKey = True
    261. End If
    263. Timer1.Start()
    265. Return True
    267. Case Keys.Down
    269. If RichtungSchlange <> 1 Then
    271. leftKey = False
    273. rightKey = False
    275. downKey = True
    277. End If
    279. Timer1.Start()
    281. Return True
    283. Case Keys.Left
    285. If RichtungSchlange <> 4 Then
    287. upKey = False
    289. downKey = False
    291. leftKey = True
    293. End If
    295. Timer1.Start()
    297. Return True
    299. Case Keys.Right
    301. If RichtungSchlange <> 3 Then
    303. upKey = False
    305. downKey = False
    307. rightKey = True
    309. End If
    311. Timer1.Start()
    313. Return True
    315. End Select
    317. End Function
    319. 'bei kollision mit einer wand wird die schlange automatisch auf die entferntere ecke abgelenkt
    321. Private Sub checkWallCrash()
    323. If RichtungSchlange = 1 And Schlange(0).Location.Y = 0 Then
    325. If Schlange(0).Location.X > 245 Then
    327. upKey = False
    329. leftKey = True
    331. RichtungSchlange = 3
    333. ElseIf Schlange(0).Location.X < 245 Then
    335. upKey = False
    337. rightKey = True
    339. RichtungSchlange = 4
    341. End If
    343. End If
    345. If RichtungSchlange = 2 And Schlange(0).Location.Y = 480 Then
    347. If Schlange(0).Location.X > 245 Then
    349. downKey = False
    351. leftKey = True
    353. RichtungSchlange = 3
    355. ElseIf Schlange(0).Location.X < 245 Then
    357. downKey = False
    359. rightKey = True
    361. RichtungSchlange = 4
    363. End If
    365. End If
    367. If RichtungSchlange = 3 And Schlange(0).Location.X = 0 Then
    369. If Schlange(0).Location.Y > 245 Then
    371. leftKey = False
    373. upKey = True
    375. RichtungSchlange = 1
    377. ElseIf Schlange(0).Location.Y < 245 Then
    379. leftKey = False
    381. downKey = True
    383. RichtungSchlange = 2
    385. End If
    387. End If
    389. If RichtungSchlange = 4 And Schlange(0).Location.X = 480 Then
    391. If Schlange(0).Location.Y > 245 Then
    393. rightKey = False
    395. upKey = True
    397. RichtungSchlange = 1
    399. ElseIf Schlange(0).Location.Y < 245 Then
    401. rightKey = False
    403. downKey = True
    405. RichtungSchlange = 2
    407. End If
    409. End If
    411. End Sub
    413. 'für 2 sekunden wird bei jedem neuen gefressenem punkt der scorecount auf der spielfläche angezeigt
    415. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    417. timerCounter = timerCounter + 1 '1 tick = 0,5 s
    419. If timerCounter = 2 Then
    421. Timer2.Stop()
    423. Label1.Visible = False
    425. timerCounter = 0
    427. End If
    429. End Sub
    431. 'prüft, ob der scorecount für eine platzierung in der bestenliste reicht und wenn ja wo. zeigt bei ja eine groupbox an in welcher man einen namen einträgt
    433. Private Sub checkLeaderboard()
    435. Select Case scoreCount
    437. Case leaderboard(9) + 1 To leaderboard(7)
    439. rank = 8
    441. enterNameGroupBox.Visible = True
    443. Case leaderboard(7) + 1 To leaderboard(5)
    445. rank = 6
    447. enterNameGroupBox.Visible = True
    449. Case leaderboard(5) + 1 To leaderboard(3)
    451. rank = 4
    453. enterNameGroupBox.Visible = True
    455. Case leaderboard(3) + 1 To leaderboard(1)
    457. rank = 2
    459. enterNameGroupBox.Visible = True
    461. Case Is > leaderboard(1)
    463. rank = 0
    465. enterNameGroupBox.Visible = True
    467. End Select
    469. End Sub
    471. 'sobald ein buchstabe eingegeben ist, soll dieser als name bestätigt werden können
    473. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    475. Button1.Enabled = True
    477. End Sub
    479. 'mit ("accept"-button) bestätigtem namen wird die leaderboardgroupbox aktualisiert angezeigt, gespeichert und die groupbox für die namenseingabe für das nächste mal vorbereitet
    481. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    483. ' Leaderboard überschreiben
    485. For index As Integer = 9 To rank Step -1
    487. If index = 1 Then
    489. Exit For
    491. End If
    493. leaderboard(index) = leaderboard(index - 2)
    495. Next
    497. leaderboard(rank) = TextBox1.Text
    499. leaderboard(rank + 1) = scoreCount
    501. Using writer As StreamWriter =
    503. New StreamWriter("C:\Users\Labor\Documents\Visual Studio 2010\Projects\snakePfeiltasten\Leaderboard.txt")
    505. For index As Integer = 0 To 9
    507. writer.WriteLine(leaderboard(index))
    509. Next
    511. End Using
    513. enterNameGroupBox.Visible = False
    515. Label4.Text = leaderboard(0)
    517. Label5.Text = leaderboard(1)
    519. Label6.Text = leaderboard(2)
    521. Label7.Text = leaderboard(3)
    523. Label8.Text = leaderboard(4)
    525. Label9.Text = leaderboard(5)
    527. Label10.Text = leaderboard(6)
    529. Label11.Text = leaderboard(7)
    531. Label12.Text = leaderboard(8)
    533. Label13.Text = leaderboard(9)
    535. LeaderboardGroupBox.Visible = True
    537. Button1.Enabled = False
    539. End Sub
    541. 'der button "play again" in der leaderboardgroupbox
    543. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    545. LeaderboardGroupBox.Visible = False
    547. MoveToStart()
    549. End Sub
    551. End Class

    Willkommen im Forum. :thumbup:

    TimoDerPraktikant schrieb:

    IsInputKey
    schmeiß raus, nimm die .NET-Methode:

    VB.NET-Quellcode

    1. Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    2. Select Case e.KeyData
    und setz zusätzlich im Designer der Form KeyPreview = True.
    Ferner mach Option Strict On.
    Gib der Datei eine Variable als Namen und behandle den Initialzustand, wo die Datei nicht vorhanden ist.
    Da die Richtung nicht gleichzeitig mehr als eins von { links, rechts, hoch, runter } sein kann, mach da ein Enum draus.
    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!

    TimoDerPraktikant schrieb:

    Option Strict On ist mir noch zu hoch
    Deine Einstellung ist hier leider falsch.
    Da Du noch nicht lange dabei bist, solltest Du sofort richtig lernen, mit Datentypen korrekt umzugehen.
    Salopp gesagt ist bei Strict Off "1" und 1 dasselbe, also ein String mit dem Inhalt "1" wird bei Verwendung als numerischer Wert in eine 1 konvertiert, ein numerischer Wert 1 wird bei Anzeige in den String "1" konvertiert.
    So weit so gut.
    Aber bald kommt der Fall, dass da keine "1", sondern "Roullade mit Klößen" im String steht, und dann bist Du der Erste, der sich beschwert, dass sich "Roullade mit Klößen" nicht in einen numerischen Wert konvertieren lässt.
    Um dies zu vermeiden, solltest Du sofort ordentlich lernen, mit Option Strict On zu programmieren.
    Und wenn Du das verinnerlicht hast, wirst Du es nicht mehr missen wollen.
    Übrigens gibt es den Zustand Strict Off bei C / C++ / C# und anderen Sprachen nicht, da ist überall Strict On.
    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