Hilfe bei der Programmierung mit Visual Basic...

  • Sonstige

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von Eistee.

    Hilfe bei der Programmierung mit Visual Basic...

    Servus,

    Ich bin seit grade in diesem Forum angemeldet da ich bemerkt habe das einem hier sehr gut geholfen werden kann.

    Um es schon einmal vorweg zusagen ich programmiere mit Visual Basic seit ca. 2 Jahren ist zwar nicht viel heißt aber das ich nicht ganz ungeübt bin :P

    Zum Themer:
    Ich programmiere im Moment eine GTA1 Visual Basic Version.
    Man kann "schon" Auto fahren,einsteigen im Auto,Aussteigen und rum laufen.
    Jedoch habe ich noch ein paar Sachen dich ich persönlich auch nicht kann.
    Ich liste es einfach mal auf:

    -Wie schaffe ich es das wenn z.B. ein anderes Auto irgendwo steht das meins davor stehen bleibt und nicht drüber/drunter her fährt?
    -Wie kann ich mehrere Autos auf die Pfeiltasten programmieren? Bisher hab ich nur eins. Wenn man nämlich mehrere drauf programmieren würde, würden sich alle mit bewegen was nicht so gut wäre :P

    Das wären auch meine ersten Fragen. Will ja nicht direkt übertreiben :D

    Liebe grüße Crilind...

    Und danke für jede hilfreiche Antwort :)

    Gehe ich recht in der Annahme, dass du dein GTA1 mit Visual Studio (also VB.net oder ggf. auch VB6) programmierst und nicht in Word oder Excel (VBA)?
    In dem Fall hast du dich im Forum verirrt und solltest du die Frage besser im Hauptforum stellen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Ich befürchte ja das der Code eventuell nicht ganz Objektorientiert ist, da das mit dem: "mehrere Autos auf die Pfeiltasten programmieren" sonst eig. kein Problem wäre.
    Dafür müssten man aber den Code sehen.. wenn das ganze zu "prozedural" ist, wäre es wohl besser von neu zu beginnen.

    Also falls ich hier falsch bin tut es mir leid :P Bin leider neu ich programmiere mit Visual Basic 2013 Express...

    Das ist der bisherige Code:


    Visual Basic-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
    4. Select Case e.KeyChar
    5. Case "w"
    6. player.Top = player.Top - 10
    8. Case "s"
    9. player.Top = player.Top + 10
    12. Case "a"
    13. player.Left = player.Left - 10
    15. Case "d"
    16. player.Left = player.Left + 10
    19. End Select
    21. Select Case e.KeyChar
    22. Case "q"
    24. If player.Visible = False Then
    25. player.Visible = True
    26. Else
    27. player.Visible = False
    28. End If
    33. End Select
    35. End Sub
    36. Private Sub FormKeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
    38. If e.KeyCode = Keys.Up Then
    39. PictureBox1.Visible = True
    40. PictureBox2.Visible = False
    41. PictureBox3.Visible = False
    42. PictureBox4.Visible = False
    43. PictureBox1.Location = New Point(PictureBox1.Location.X - 0, PictureBox1.Location.Y - 20)
    44. PictureBox2.Location = New Point(PictureBox2.Location.X - 0, PictureBox1.Location.Y - 20)
    45. PictureBox3.Location = New Point(PictureBox3.Location.X - 0, PictureBox3.Location.Y - 20)
    46. PictureBox4.Location = New Point(PictureBox4.Location.X - 0, PictureBox4.Location.Y - 20)
    47. player.Location = New Point(player.Location.X - 0, player.Location.Y - 20)
    48. ElseIf e.KeyCode = Keys.Down Then
    50. PictureBox2.Location = New Point(PictureBox2.Location.X + 0, PictureBox2.Location.Y + 20)
    51. PictureBox1.Location = New Point(PictureBox1.Location.X + 0, PictureBox1.Location.Y + 20)
    52. PictureBox3.Location = New Point(PictureBox3.Location.X + 0, PictureBox3.Location.Y + 20)
    53. PictureBox4.Location = New Point(PictureBox4.Location.X + 0, PictureBox4.Location.Y + 20)
    54. player.Location = New Point(player.Location.X + 0, player.Location.Y + 20)
    55. PictureBox2.Visible = True
    56. PictureBox1.Visible = False
    57. PictureBox3.Visible = False
    58. PictureBox4.Visible = False
    59. ElseIf e.KeyCode = Keys.Right Then
    60. PictureBox4.Visible = True
    61. PictureBox1.Visible = False
    62. PictureBox3.Visible = False
    63. PictureBox2.Visible = False
    64. player.Location = New Point(player.Location.X + 20, player.Location.Y + 0)
    65. PictureBox1.Location = New Point(PictureBox1.Location.X + 20, PictureBox1.Location.Y + 0)
    66. PictureBox3.Location = New Point(PictureBox3.Location.X + 20, PictureBox3.Location.Y + 0)
    67. PictureBox2.Location = New Point(PictureBox2.Location.X + 20, PictureBox2.Location.Y + 0)
    68. PictureBox4.Location = New Point(PictureBox4.Location.X + 20, PictureBox4.Location.Y + 0)
    70. ElseIf e.KeyCode = Keys.Left Then
    72. PictureBox3.Location = New Point(PictureBox3.Location.X - 20, PictureBox3.Location.Y - 0)
    73. PictureBox1.Location = New Point(PictureBox1.Location.X - 20, PictureBox1.Location.Y - 0)
    74. PictureBox2.Location = New Point(PictureBox2.Location.X - 20, PictureBox2.Location.Y - 0)
    75. PictureBox4.Location = New Point(PictureBox4.Location.X - 20, PictureBox4.Location.Y - 0)
    76. player.Location = New Point(player.Location.X - 20, player.Location.Y - 0)
    77. PictureBox3.Visible = True
    78. PictureBox1.Visible = False
    79. PictureBox2.Visible = False
    80. PictureBox4.Visible = False
    82. End If
    85. End Sub
    87. Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    91. If player.Visible = False Then
    92. player.Visible = True
    93. Else
    94. player.Visible = False
    95. End If
    98. End Sub
    100. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    101. MsgBox(" Mit W/A/S/D steuerst du deinen Avatar und mit den Pfeiltasten dein Auto. Um in dein Auto zusteigen klicke einfach drauf!")
    102. End Sub
    104. Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
    105. If player.Visible = False Then
    106. player.Visible = True
    107. Else
    108. player.Visible = False
    109. End If
    110. End Sub
    112. Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
    113. If player.Visible = False Then
    114. player.Visible = True
    115. Else
    116. player.Visible = False
    117. End If
    118. End Sub
    120. Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
    121. If player.Visible = False Then
    122. player.Visible = True
    123. Else
    124. player.Visible = False
    125. End If
    126. End Sub
    128. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    130. End Sub
    132. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    135. End Sub
    137. Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    139. End Sub
    141. Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    143. End Sub
    145. Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    147. End Sub
    149. Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    151. End Sub
    153. Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    155. End Sub
    157. Private Sub PictureBox10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    159. End Sub
    161. Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    162. player1_bot.Left = player1_bot.Left - 5
    163. End Sub
    165. Private Sub Timer2_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    166. Timer1.Stop()
    167. Timer3.Start()
    169. End Sub
    171. Private Sub Timer3_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
    172. player1_bot.Left = player1_bot.Left + 10
    173. End Sub
    175. Private Sub Timer4_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
    176. Timer3.Stop()
    178. End Sub
    179. End Class

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

    Ich will ehrlich mit dir sein, dein momentaner Wissenstand reicht offensichtlich nicht aus, sowas großes wie ein Spiel zu stemmen. Du solltest dich erstmal mit dem Grundprinzip der OOP vertraut machen, lernen, wie du Klassen und Objekte für dich arbeiten lassen kannst, und dein Abstraktionsvermögen steigern.

    1. Habe meinen Quelltext Post verbessert :D
    2. Habe schon ein Spiel programmiert. Kennst du/sie das Spiel auf Drag Racing für Android?
    3. Wollte ich ja nicht wissen ob ich es nicht ann :P Das der Quelltext nicht ganz Sauber ist gebe ich zu da ich immer wieder Sachen hin zufüge und wieder weg mache. Werde ihn aber nochmal überarbeiten.

    B2T

    Eine gute, abstrakte Programmstruktur zeichnet sich eben dadurch aus, dass sie leicht erweiterbar ist und dabei nicht unübersichtlicher/unsauberer wird. Tut mir leid, das so sagen zu müssen, aber in diesem Zustand kann aus deinem Projekt einfach nichts werden. Ohne ne ordentliche Struktur ist auch der beste Programmierer machtlos, es hätte also überhaupt keinen Sinn, wenn wir dir das jetzt mit irgendwelchen Notlösungen noch weiter zerstückeln.

    @crilind: Wird sind beim Topic. Dahin müssen wir nicht zurück.
    So wie dein Spiel bisher aufgebaut ist, ist es fast nicht möglich es zu beenden.
    Denn der Auwand wird mit jeder Zeile exponentiell (geschätzt, eventuell leicht übertrieben) steigen.

    Das beste was Du hier jetzt machen könntest, ist dem Beitrag von @Artentus: gehör schenken.
    Denn bei solch einem "Ranz"-Code, kann und möchte dir wohl keine helfen.

    Das mit der Objekt Orientierung ist wirklich leicht sobald man es einmal verstanden hast.
    Wenn das sitzt, wirst Du selber staunen wie viel mehr Spaß es macht, ein Spiel zu programmieren.
    Man wird schneller fertig und kann viel mehr an Features etc. hinzufügen.

    1. Dann zeige doch mal dein Spiel Mit Klassen u.s.w oder was genau hast du verbessert ?
    2. glaube ich zwar nicht aber nichts ist unmöglich ;)
    3. nicht ganz sauber ? so kannst du nicht weiter programmieren ;)

    So ich würde dir nur noch Directx2D oder GDI+ empfehlen da Controls sich in der regel nicht eigenen um ein Spiel daraus zu basteln :)
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

    Das wird dir hier jetzt keiner erklären können, zumindest nicht so, dass dus verstehst und daraus lernst.
    Ich für meinen Teil kann dir nur nen Rat geben. Fang damit an dieses Buch zu lesen (ist das beste und kostenlos):
    microsoft-press.de/url.asp?cnt=mspress_vb2010
    Dann steigere dich langsam und fang nicht gleich mit sonem Monsterprojekt an.

Facebook
Telefonspende