Stoppuhr sobald Pfeiltaste gedrückt wurden ist!

  • VB.NET

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

    Stoppuhr sobald Pfeiltaste gedrückt wurden ist!

    Hallo Liebe Vb-comm!
    Ich habe ein Spiel gebastelt, und das Spielt startet sobald ich eine der 4 Pfeiltasten drücke, daraufhin setzt sich ein 10x10 Panel in bewegung und man muss diesen Panel durch eine Bahn fahren die mit Abzweigungen verknüpft ist, heißt nichts anderes als ein Renn spiel bloß in langsam und billig aufgebaut. Nun möchte ich aber Zeit messen damit man Unterschiede ermitteln kann zwischen den Usern. Die Stoppuhr soll anfang Zeit zu nehmen sobald eine der Pfeiltasten berührt worden ist und sobald er ins Ziel fährt (Label mit Aufschrift: Finish). Ich hoffe jemand kann mit weiter helfen. :)

    Dickes danke im Vorraus!
    Grüße


    VB.NET-Quellcode

    1. Public Class Form1
    6. Enum Direction
    7. Up = 0
    8. Down = 1
    9. Left = 2
    10. Right = 3
    11. End Enum
    13. Dim Pressed As Integer = 0
    14. Dim defMov As Integer = 5
    15. Dim Site As Integer = 0
    17. Private Shadows Sub Move(ByVal Richtung As Direction, ByRef Player As Object)
    18. Dim newTop, newLeft As Integer
    19. Dim collision As Boolean = False
    24. Select Case Richtung
    27. Case Direction.Up
    28. Player.Top -= defMov
    29. newLeft = Player.Left
    31. 'unwichtige Daten für euch - hier ist nur meine gesamte Kollisionsverhinderung geht darunter weiter
    35. Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
    36. Select Case e.KeyData
    37. Case Keys.Up
    38. Pressed = 0
    39. Case Keys.Down
    40. Pressed = 0
    41. Case Keys.Left
    42. Pressed = 0
    43. Case Keys.Right
    44. Pressed = 0
    45. End Select
    46. End Sub
    48. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    49. Select Case e.KeyData
    50. Case Keys.Up
    51. Move(Direction.Up, Spieler)
    52. Site = 1
    53. Pressed = 1
    54. Case Keys.Down
    55. Move(Direction.Down, Spieler)
    56. Site = 2
    57. Pressed = 1
    58. Case Keys.Left
    59. Move(Direction.Left, Spieler)
    60. Site = 3
    61. Pressed = 1
    62. Case Keys.Right
    63. Move(Direction.Right, Spieler)
    64. Site = 4
    65. Pressed = 1
    66. End Select
    67. End Sub
    74. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    75. Me.KeyPreview = True
    76. Timer1.Start()
    78. End Sub
    80. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    81. If Pressed = 1 Then
    82. defMov = 10
    83. Else
    84. defMov = 5
    85. If Site = 1 Then
    86. Move(Direction.Up, Spieler)
    87. ElseIf Site = 2 Then
    88. Move(Direction.Down, Spieler)
    89. ElseIf Site = 3 Then
    90. Move(Direction.Left, Spieler)
    91. ElseIf Site = 4 Then
    92. Move(Direction.Right, Spieler)
    93. End If
    94. End If
    95. End Sub
    96. End Class

    Also du musst drei Label erstellen

    1 für die zehntelsekunden, 1 für die sekunden und 1 für die minuten



    3 Timer für je Label

    Timer für die Zehntelsekunden: intervalle: 100

    timer für sekunden: interv.: 1000

    timer für minuten: interv.: 60000

    Code

    Select Case

    Case Keys.Up

    Timer1.Enabled = true

    Timer2.Enabled = True

    Timer3.Enabled = True

    timer 1 Event:

    Label1.text += 1

    timer 2 Event:

    Label2.text += 1

    Timer3 event

    label3.text += 1



    Alle Label texte müssen 0 sein!!

    @europe1995:
    Für eine Stoppuhr gibt es die Stopwatch-Klasse. Diese gibt dir die Zeit zwischen Start und Stop aus. Ich gehe davon aus, dass du die Klasse für deine Bedürfnisse verwenden kannst.

    VB.NET-Quellcode

    1. Public s As New Stopwatch
    3. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    4. If s.IsRunning Then
    5. 'Wenn die Uhr läuft, dann Stopp
    6. s.Stop()
    7. MessageBox.Show(s.Elapsed.ToString())
    8. Else
    9. 'wenn die Uhr nicht läuft, dann starten
    10. s.Start()
    11. End If
    12. End Sub


    @klonerk: 3 Timer: Nee, oder? Das ist wie: Für jeden Kunden beim McDonalds ein eigener Mitarbeiter. Geht auch, nur wird's voll mit der Zeit. Wenn du bei deiner Methode bleibst: 1 Timer reicht hier immer!