Abend,
Versuche in der letzten zeit mein eigenes breakout in Vb zu programmieren.
Mein problem ist das wenn alle steine nicht "sichtbar" sind das das spiel endet.
Quelltext zu meinen Steinen ist:
For Index = 0 To Stein().Count - 1
If Stein(Index).Visible = True And _
ball.Top < Stein(Index).Top + Stein(Index).Height And _
ball.Left + 0.5 * ball.Width >= Stein(Index).Left And _
ball.Left + 0.5 * ball.Width <= Stein(Index).Left + Stein(Index).Width Then
Stein(Index).Visible = False
Y = -Y
End If
Next Index
Und wei kann ich einen zähler dazu machen das dei Steine zählt.
Versuche in der letzten zeit mein eigenes breakout in Vb zu programmieren.
Mein problem ist das wenn alle steine nicht "sichtbar" sind das das spiel endet.
Quelltext zu meinen Steinen ist:
For Index = 0 To Stein().Count - 1
If Stein(Index).Visible = True And _
ball.Top < Stein(Index).Top + Stein(Index).Height And _
ball.Left + 0.5 * ball.Width >= Stein(Index).Left And _
ball.Left + 0.5 * ball.Width <= Stein(Index).Left + Stein(Index).Width Then
Stein(Index).Visible = False
Y = -Y
End If
Next Index
Und wei kann ich einen zähler dazu machen das dei Steine zählt.