Hallo Forum,
Ich bin neu hier und auch neu in visual Basic ich hab vor einer Woche damit angefangen und probier mich jetzt an einem kleinen Projekt denn ich will ein Spiel programmieren, wo 2 Spieler( momentan nur 1er) durchs Spielfeld fahren und eine Spur legen welche bei berühren das Verlieren bedeutet. Ich hab es mir einfach so in den Kopf geschlagen und bin jetzt schon mehrere Stunden aktiv dran. Doch nun verstehe ich nicht wie man das genau hinkriegt zur Verdeutlichung habe ich den Code hier angebracht aber bis jetzt habe ich es nur so programmiert das die Figur sich bewegt aber noch keine Spur legt, aber sie will sich nicht mal bewegen ich habe ein Test Projekt schnell angefangen wo ich es einfach versuche und dort funktioniert es und ich reiße mir schon langsam die Haare raus weil ich es einfach nicht packe. Ich hoffe irgendwer kann mir helfen und mir ein Grundgerüst zeigen womit ich etwas anfangen kann.
Schöne Grüße, RayJay
*Topic verschoben*
Bitte beim nächsten Mal einen vernünftigen Titel wählen!
Ich bin neu hier und auch neu in visual Basic ich hab vor einer Woche damit angefangen und probier mich jetzt an einem kleinen Projekt denn ich will ein Spiel programmieren, wo 2 Spieler( momentan nur 1er) durchs Spielfeld fahren und eine Spur legen welche bei berühren das Verlieren bedeutet. Ich hab es mir einfach so in den Kopf geschlagen und bin jetzt schon mehrere Stunden aktiv dran. Doch nun verstehe ich nicht wie man das genau hinkriegt zur Verdeutlichung habe ich den Code hier angebracht aber bis jetzt habe ich es nur so programmiert das die Figur sich bewegt aber noch keine Spur legt, aber sie will sich nicht mal bewegen ich habe ein Test Projekt schnell angefangen wo ich es einfach versuche und dort funktioniert es und ich reiße mir schon langsam die Haare raus weil ich es einfach nicht packe. Ich hoffe irgendwer kann mir helfen und mir ein Grundgerüst zeigen womit ich etwas anfangen kann.
VB.NET-Quellcode
- Public Class Form1
- Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
- If e.KeyCode = Windows.Forms.Keys.Up Then
- TimUp.Enabled = True
- ElseIf e.KeyCode = Windows.Forms.Keys.Down Then
- TimDown.Enabled = True
- ElseIf e.KeyCode = Windows.Forms.Keys.Left Then
- TimLeft.Enabled = True
- ElseIf e.KeyCode = Windows.Forms.Keys.Right Then
- TimRight.Enabled = True
- End If
- ' Aktiviert mit den Pfeiltasten die Timer
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- cmdButton.Enabled = False
- cmdStop.Enabled = False
- cmdPlayer1L.Enabled = False
- cmdPlayer1R.Enabled = False
- cmdPlayer1O.Enabled = False
- cmdPlayer1U.Enabled = False
- cmdPlayer2L.Enabled = False
- cmdPlayer2R.Enabled = False
- cmdPlayer2O.Enabled = False
- cmdPlayer2U.Enabled = False
- ' Stop und "folgt..." Buttons können nicht zu start betätigt werden und Die Buttons zur Steuerung werden nicht anklickbar
- End Sub
- Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
- cmdStart.Enabled = False
- cmdEnde.Enabled = False
- cmdStop.Enabled = True
- ' Buttons Start und Ende werden deaktiviert und der Button Stop aktiviert
- End Sub
- Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
- TimLeft.Enabled = False
- TimRight.Enabled = False
- TimDown.Enabled = False
- TimUp.Enabled = False
- cmdStart.Enabled = True
- cmdEnde.Enabled = True
- cmdStop.Enabled = False
- ' Bei Stop werden alle Timer sowie der Button selber deaktiviert und Start + Ende Button werden aktiviert
- End Sub
- Private Sub cmdEnde_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnde.Click
- Me.Close()
- ' Schließt die Anwendung
- End Sub
- Private Sub TimLeft_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimLeft.Tick
- panMove.Location = New Point(panMove.Location.X - 5,
- panMove.Location.Y)
- If TimRight.Enabled = True Then
- TimRight.Enabled = False
- ElseIf TimDown.Enabled = True Then
- TimDown.Enabled = False
- ElseIf TimUp.Enabled = True Then
- TimUp.Enabled = False
- End If
- ' Bewegt das Panek nach links
- End Sub
- Private Sub TimRight_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimRight.Tick
- panMove.Location = New Point(panMove.Location.X + 5, panMove.Location.Y)
- If TimLeft.Enabled = True Then
- TimLeft.Enabled = False
- ElseIf TimDown.Enabled = True Then
- TimDown.Enabled = False
- ElseIf TimUp.Enabled = True Then
- TimUp.Enabled = False
- End If
- ' Bewegt das Panel rechts
- End Sub
- Private Sub TimDown_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimDown.Tick
- panMove.Location = New Point(panMove.Location.X, panMove.Location.Y + 5)
- If TimUp.Enabled = True Then
- TimUp.Enabled = False
- ElseIf TimRight.Enabled = True Then
- TimRight.Enabled = False
- ElseIf TimLeft.Enabled = True Then
- TimLeft.Enabled = False
- End If
- ' Bewegt das Panel unten
- End Sub
- Private Sub TimUp_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimUp.Tick
- panMove.Location = New Point(panMove.Location.X, panMove.Location.Y - 5)
- If TimDown.Enabled = True Then
- TimDown.Enabled = False
- ElseIf TimRight.Enabled = True Then
- TimRight.Enabled = False
- ElseIf TimLeft.Enabled = True Then
- TimLeft.Enabled = False
- End If
- ' Bewegt das Panel oben
- End Sub
- End Class
Schöne Grüße, RayJay
*Topic verschoben*
Bitte beim nächsten Mal einen vernünftigen Titel wählen!
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()