Künstliche "Schwerkraft" erstellen

  • VB6

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Aydo.

    Künstliche "Schwerkraft" erstellen

    Hallo erstmal,

    zunächst möchte ich einige Dinge sagen :P :

    Ich lerne VB6.0 bzw. "programieren" gerade erst kennen, d.h. der Quelltext ist nicht gerade professionel oder ganz hart, "intelligent" aufgebaut. Ich habe mir fast alles selbst ausgedacht indem ich ganz oft versucht und versucht habe, ohne irgendwelche Hilfe (ob das schlau war?). Da ich keine Algorithmen verwendet habe (weil ich nicht weis, wie ich welche mache) sind die Codes recht lang.

    Quellcode:

    Form1

    Visual Basic-Quellcode

    1. Dim xpos As Single
    2. Dim ypos As Single
    4. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    5. Select Case KeyCode
    6. Case vbKeyLeft
    7. Call toLeft
    8. Case vbKeyRight
    9. Call toRight
    10. Case vbKeyUp
    11. Call Up
    12. Case vbKeyDown
    13. Call down
    14. End Select
    15. End Sub
    17. Private Sub Form_Load()
    18. xpos = 0
    19. ypos = 4400
    20. Image1.Move xpos, ypos
    21. End Sub
    23. Private Sub toLeft()
    24. xpos = xpos - 200
    25. If xpos < 0 Then
    26. xpos = 0
    27. End If
    29. Image1.Move xpos, ypos
    30. End Sub
    32. Private Sub toRight()
    33. xpos = xpos + 200
    34. If xpos > 4400 Then
    35. xpos = 4400
    36. End If
    38. Image1.Move xpos, ypos
    39. End Sub
    41. Private Sub Up()
    42. ypos = ypos - 50
    43. Image1.Move xpos, ypos
    44. Delay 1
    45. ypos = ypos - 50
    46. Image1.Move xpos, ypos
    47. Delay 1
    48. ypos = ypos - 50
    49. Image1.Move xpos, ypos
    50. Delay 1
    51. ypos = ypos - 50
    52. Image1.Move xpos, ypos
    53. Delay 1
    54. ypos = ypos - 25
    55. Image1.Move xpos, ypos
    56. Delay 1
    57. ypos = ypos - 25
    58. Image1.Move xpos, ypos
    59. Delay 1
    60. ypos = ypos - 25
    61. Image1.Move xpos, ypos
    62. Delay 1
    63. ypos = ypos - 25
    64. Image1.Move xpos, ypos
    65. Delay 1
    66. ypos = ypos - 15
    67. Image1.Move xpos, ypos
    68. Delay 1
    69. ypos = ypos - 15
    70. Image1.Move xpos, ypos
    71. Delay 1
    72. ypos = ypos - 15
    73. Image1.Move xpos, ypos
    74. Delay 1
    75. ypos = ypos - 15
    76. Image1.Move xpos, ypos
    77. Delay 1
    78. ypos = ypos - 10
    79. Image1.Move xpos, ypos
    80. Delay 1
    81. ypos = ypos - 10
    82. Image1.Move xpos, ypos
    83. Delay 1
    84. ypos = ypos - 10
    85. Image1.Move xpos, ypos
    86. Delay 1
    87. ypos = ypos - 10
    88. Image1.Move xpos, ypos
    90. ypos = ypos + 10
    91. Image1.Move xpos, ypos
    92. Delay 1
    93. ypos = ypos + 10
    94. Image1.Move xpos, ypos
    95. Delay 1
    96. ypos = ypos + 10
    97. Image1.Move xpos, ypos
    98. Delay 1
    99. ypos = ypos + 10
    100. Image1.Move xpos, ypos
    101. Delay 1
    102. ypos = ypos + 15
    103. Image1.Move xpos, ypos
    104. Delay 1
    105. ypos = ypos + 15
    106. Image1.Move xpos, ypos
    107. Delay 1
    108. ypos = ypos + 15
    109. Image1.Move xpos, ypos
    110. Delay 1
    111. ypos = ypos + 15
    112. Image1.Move xpos, ypos
    113. Delay 1
    114. ypos = ypos + 25
    115. Image1.Move xpos, ypos
    116. Delay 1
    117. ypos = ypos + 25
    118. Image1.Move xpos, ypos
    119. Delay 1
    120. ypos = ypos + 25
    121. Image1.Move xpos, ypos
    122. Delay 1
    123. ypos = ypos + 25
    124. Image1.Move xpos, ypos
    125. Delay 1
    126. ypos = ypos + 50
    127. Image1.Move xpos, ypos
    128. Delay 1
    129. ypos = ypos + 50
    130. Image1.Move xpos, ypos
    131. Delay 1
    132. ypos = ypos + 50
    133. Image1.Move xpos, ypos
    134. Delay 1
    135. ypos = ypos + 50
    136. Image1.Move xpos, ypos
    137. If ypos > 4400 Then
    138. ypos = 4400
    139. Image1.Move xpos, ypos
    140. End If
    141. End Sub
    142. Private Sub down()
    143. ypos = ypos + 200
    144. If ypos > 4400 Then
    145. ypos = 4400
    146. End If
    148. Image1.Move xpos, ypos
    149. End Sub
    151. Private Sub Timer1_Timer()
    152. Label1 = "X:" & xpos
    153. Label2 = "Y:" & ypos
    154. End Sub


    Modul1

    Visual Basic-Quellcode

    1. Option Explicit
    3. Public Declare Function GetTickCount Lib "kernel32" () As Long
    6. Public Sub Delay(nSekunden As Long)
    7. Dim TimeOut As Long
    8. TimeOut = (GetTickCount / 20) + nSekunden
    9. Do
    10. DoEvents
    11. Loop Until TimeOut < (GetTickCount / 20)
    12. End Sub


    So wenn ich jetzt nach obendrücke, "springt" image1. Mein Problem ist, wenn ich springe kann ich ,wenn ich nocheinmal PfeilOben drücke, im Sprung noch einmal springen. Wie kann ich das verhindern?

    Danke !
    Aydo

    Nicht direkt zum Thema, aber, wenn du gerade mit VB anfängst, dann gewöhn dir nicht den schlechten VB6 Stil an.
    VB2008 Express ist kostenlos und weitaus Leistungsstärker als VB6.
    Zudem ist es hier verbreiteter und dir können demnach auch mehr helfen.

    Ansonsten mit dem Versuchen und Versuchen und Versuchen ist super, so lernt man am besten (so habe ich damals auch angefangen).

    Danke für die Antworten!

    Dodo schrieb:


    Nicht direkt zum Thema, aber, wenn du gerade mit VB anfängst, dann gewöhn dir nicht den schlechten VB6 Stil an.
    VB2008 Express ist kostenlos und weitaus Leistungsstärker als VB6.
    Zudem ist es hier verbreiteter und dir können demnach auch mehr helfen.

    Ansonsten mit dem Versuchen und Versuchen und Versuchen ist super, so lernt man am besten (so habe ich damals auch angefangen).
    SO genau das habe ich jetzt erstmal getan!
    Und meine Codes sind schon fertig (vb2008).

    Visual Basic-Quellcode

    1. Public Class Form1
    2. Dim xpos As Integer
    3. Dim ypos As Integer
    5. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    6. Select Case e.KeyCode
    7. Case Keys.Left
    8. goLeft()
    9. Case Keys.Right
    10. goRight()
    11. Case Keys.Up
    12. goUp()
    13. Case Keys.Down
    14. goDown()
    15. End Select
    16. End Sub
    18. Private Sub goLeft()
    19. xpos = xpos - 10
    20. If xpos <= 0 Then
    21. xpos = 0
    22. End If
    23. PictureBox1.Location = New Point(xpos, ypos)
    24. End Sub
    26. Private Sub goRight()
    27. xpos = xpos + 10
    28. If xpos >= Me.Width - PictureBox1.Width - 15 Then
    29. xpos = Me.Width - PictureBox1.Width - 15
    30. End If
    31. PictureBox1.Location = New Point(xpos, ypos)
    32. End Sub
    34. Private Sub goUp()
    35. ypos = ypos - 10
    36. PictureBox1.Location = New Point(xpos, ypos)
    37. System.Threading.Thread.Sleep(50)
    38. ypos = ypos - 10
    39. PictureBox1.Location = New Point(xpos, ypos)
    40. System.Threading.Thread.Sleep(50)
    41. ypos = ypos - 10
    42. PictureBox1.Location = New Point(xpos, ypos)
    43. System.Threading.Thread.Sleep(50)
    44. ypos = ypos + 20
    45. PictureBox1.Location = New Point(xpos, ypos)
    46. System.Threading.Thread.Sleep(50)
    47. ypos = ypos + 10
    48. PictureBox1.Location = New Point(xpos, ypos)
    49. System.Threading.Thread.Sleep(50)
    50. End Sub
    52. Private Sub goDown()
    53. ypos = ypos + 10
    54. If ypos >= Me.Height - PictureBox1.Height - 35 Then
    55. ypos = Me.Height - PictureBox1.Height - 35
    56. End If
    57. PictureBox1.Location = New Point(xpos, ypos)
    58. End Sub
    60. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    61. xpos = 0
    62. ypos = Me.Height - PictureBox1.Height - 35
    63. PictureBox1.Location = New Point(xpos, ypos)
    64. End Sub
    66. Private Sub btnXYpos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    68. End Sub
    70. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    71. lblXpos.Text = "X:" & xpos
    72. lblYpos.Text = "Y:" & ypos
    74. End Sub
    75. End Class


    Mein Problem ist jetzt folgendes:
    Ich kann mich im Sprung nicht mehr nach links bzw. rechts bewegen. Lief mit vb6 ganz gut, bei 2008 klappts nicht :\.

    ich mache mal einen neuen Thread auf, weis nicht wie ich das vb6 im Titel ändere.

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

Facebook
Telefonspende