Ping Pong : problemer med bolden !

Opret tre timere
Kald dem tmrLeft, tmrTop og tmrDirection
Opret firkantet shape. Kald den shpBox.
Opret en circle shape. Kald den shpBall.

Add koderne

Dim mLeft As String
Dim mTop As String

Private Sub Form_Load()
mLeft = "+"
mTop = "+"
End Sub

Private Sub tmrDirection_Timer()
If shpBall.Left >= shpBox.Width + shpBox.Left - shpBall.Width Then
mLeft = "-"
ElseIf shpBall.Left <= shpBox.Left Then
mLeft = "+"
End If

If shpBall.Top >= shpBox.Height + shpBox.Top - shpBall.Height Then
mTop = "-"
ElseIf shpBall.Top <= shpBox.Top Then
mTop = "+"
End If
End Sub

Private Sub tmrLeft_Timer()
If mLeft = "+" Then
shpBall.Left = Val(shpBall.Left) + Val(25)
Else
shpBall.Left = Val(shpBall.Left) - Val(25)
End If
End Sub

Private Sub tmrTop_Timer()
If mTop = "+" Then
shpBall.Top = Val(shpBall.Top) + Val(25)
Else
shpBall.Top = Val(shpBall.Top) - Val(25)
End If
End Sub

Håber det kan bruges.

Hilsen Morten

Normalt vil man gøre det således (bær over med mig, hvis ikke koden passer, jeg kan ikke et ord VB, men det her er standard):

Det er lige meget om du har en picturebox eller en shape, det der er vigtigt er at du har nogle attributter på din shape (i en class) dem du skal have er x-pos, y-pos, x-speed, y-speed. Det vil sige at hver gang du tegner din form (onPaint event) skal du gøre følgende:

Sub OnPaint
if boldens x-pos er mindre end venstre kant
begin
x-speed = x-speed * -1;
end

if boldens y-pos er mindre end top kant
begin
y-speed = y-speed * -1;
end

'det samme skal gøres vor højre side og i bunden


tegn bolden koordinat (x-pos, y-pos)
' læg farten til positionen
x-pos += x-speed
y-pos += y-speed

Mange tak Morten Det hjælp meget, men jeg er igen stødt på et andet problem , hvordan får jeg bolden til at ramme de to spilleblok som jeg har på shpBox ?????

Mvh. ONe

Tilføj dette øverst i kodeboksen.
Kald battet til venstre for shpPing eller ændre lidt i koden for at få det til at passe dit projekt.

Sub CheckPingOver()
If shpBall.Top < shpPing.Top + shpBall.Height Or shpBall.Top > shpPing.Top + shpPing.Height - shpBall.Height Then
MsgBox "Ping tabte!"
Unload Me
End If
End Sub

Slet alt i tmrDirection og indsæt dette istedet

If shpBall.Left >= shpBox.Width + shpBox.Left - shpBall.Width Then
mLeft = "-"
ElseIf shpBall.Left <= shpBox.Left Then
CheckPingOver
mLeft = "+"
End If

If shpBall.Top >= shpBox.Height + shpBox.Top - shpBall.Height Then
mTop = "-"
'CheckPongOver
ElseIf shpBall.Top <= shpBox.Top Then
mTop = "+"
End If

Har desværre ikke haft tid til at lave en til battet i højre side. Men det kan du prøve selv at arbejde lidt med.

PS: Placér battet lige uden for shpBox eller juster CheckPingOver.

Har du fået det til at virke?
Og hvorfor har du slettet teksten i forrige svar?

Vil stadig gerne have pointene hvis det er!

Har du fået det til at virke?
Og hvorfor har du slettet teksten i forrige svar?

Vil stadig gerne have pointene hvis det er!

:/ Og så giver du dig selv 100! :/