Crawler Skiline
Mitglied
Guten Tag allerseits.
Da mir schon im anderen Thread super geholfen wurde würd ich gern noch eine
andere Frage stellen. Ich hoffe Ihr könnt mir auch dabei helfen.
Das mit dem Schiffeversenken war eig das Projekt von zwei anderen aus meinem Ausbildungsjahrgang. Mein Projekt ist ein PingPong Spiel. Einzelspieler funktioniert
soweit und nun arbeite ich am Zweispieler-Modus.
Das Problem ist halt beide Spieler gleichzeitig zu steuern. Dazu wollte ich Threads verwenden. Ich hab mir viel dazu angesehen trotzdem steig ich irgendwie nicht ganz durch.
Könntet Ihr mir bitte erklären wie ich den folgenden Code in zwei Threads gestartet bekomme? Oder wie ich das sonst lösen könnte?
Diese beiden Subs unterstehen direkt der Main class.
Wäre über erneute Hilfe sehr erfreut.
Danke
Da mir schon im anderen Thread super geholfen wurde würd ich gern noch eine
andere Frage stellen. Ich hoffe Ihr könnt mir auch dabei helfen.
Das mit dem Schiffeversenken war eig das Projekt von zwei anderen aus meinem Ausbildungsjahrgang. Mein Projekt ist ein PingPong Spiel. Einzelspieler funktioniert
soweit und nun arbeite ich am Zweispieler-Modus.
Das Problem ist halt beide Spieler gleichzeitig zu steuern. Dazu wollte ich Threads verwenden. Ich hab mir viel dazu angesehen trotzdem steig ich irgendwie nicht ganz durch.
Könntet Ihr mir bitte erklären wie ich den folgenden Code in zwei Threads gestartet bekomme? Oder wie ich das sonst lösen könnte?
Code:
Sub Form1_Keyone(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
mThread = New Thread(AddressOf ThreadProc)
mThread.Start()
If (e.KeyCode = Keys.Left) Then
breite = PictureBox1.Location.X
hoehe = PictureBox1.Location.Y
breite -= 15
If PictureBox1.Location.X <= 1 Then
breite = 1
End If
PictureBox1.Location = New Point(breite, hoehe)
End If
If (e.KeyCode = Keys.Right) Then
breite = PictureBox1.Location.X
hoehe = PictureBox1.Location.Y
breite += 15
If PictureBox1.Location.X >= 390 Then
breite = 390
End If
PictureBox1.Location = New Point(breite, hoehe)
End If
End Sub
Sub Form1_Keytwo(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If (e.KeyCode = Keys.A) Then
breitep2 = PictureBox4.Location.X
hoehep2 = PictureBox4.Location.Y
breitep2 -= 15
If PictureBox4.Location.X <= 1 Then
breitep2 = 1
End If
PictureBox4.Location = New Point(breitep2, hoehep2)
End If
If (e.KeyCode = Keys.D) Then
breitep2 = PictureBox4.Location.X
hoehep2 = PictureBox4.Location.Y
breitep2 += 15
If PictureBox4.Location.X >= 390 Then
breitep2 = 390
End If
PictureBox4.Location = New Point(breitep2, hoehep2)
End If
End Sub
Diese beiden Subs unterstehen direkt der Main class.
Wäre über erneute Hilfe sehr erfreut.
Danke