Ich komme nicht weiter, da ich komplett neu bin. Ich versuche momentan
dieses Spiel: youtube.com/watch?v=fySEJPoV74Q zu
programmieren, nur in dem umgekerhrten Format. Aber es gibt zei Fehler:
,,Das Item ist Read only``
Hier der Code:
Public Class Form1
Dim unten As Double = +5
Dim rechts As Double = +5
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Visible = True
Button2.Visible = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Button2.Visible = True
Button1.Visible = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
Button1.Visible = True
Button2.Visible = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ball.Bottom -= unten
ball.Right -= rechts
If ball.Left <= 0 Then rechts = -5
If ball.Right >= 772 Then rechts = +5
If ball.Bottom >= 659 Then unten = -5
If ball.Top <= 0 Then unten = +5
Plattform1.Top = MousePosition.X
If ball.Top >= Plattform2.Top Then Plattform2.Top += 5
End Sub
End Class
Übrigens wenn ich die Maus bewege (wenn das Spiel an ist) bewegt sich mein ,,Schläger`` nach oben und unten.
Hoffe das mir wer weiterhelfen kann =)
dieses Spiel: youtube.com/watch?v=fySEJPoV74Q zu
programmieren, nur in dem umgekerhrten Format. Aber es gibt zei Fehler:
,,Das Item ist Read only``
Hier der Code:
Public Class Form1
Dim unten As Double = +5
Dim rechts As Double = +5
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Visible = True
Button2.Visible = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Button2.Visible = True
Button1.Visible = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
Button1.Visible = True
Button2.Visible = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ball.Bottom -= unten
ball.Right -= rechts
If ball.Left <= 0 Then rechts = -5
If ball.Right >= 772 Then rechts = +5
If ball.Bottom >= 659 Then unten = -5
If ball.Top <= 0 Then unten = +5
Plattform1.Top = MousePosition.X
If ball.Top >= Plattform2.Top Then Plattform2.Top += 5
End Sub
End Class
Übrigens wenn ich die Maus bewege (wenn das Spiel an ist) bewegt sich mein ,,Schläger`` nach oben und unten.
Hoffe das mir wer weiterhelfen kann =)