Just wated to test something

TheDakKnight 1

Test123 Test123 Test123 Test123

4 answers

WhTurner 1,611 Reputation points

2021-01-13T14:32:29.653+00:00

THe following program shows a ball bouncing on the left wall.

GraphicsWindow.FillRectangle(0,0,20,400)
GraphicsWindow.BrushColor="Red"
GraphicsWindow.PenColor="Red"
ball=Shapes.AddEllipse(20,20)
x=300
y=400
dx=1
Controls.Move(ball,x,y)
for i=1 to 400
x=x-dx
y=y-1
if x<20 Then
dx=-dx
EndIf
Controls.Move(ball,x,y)
Program.Delay(10)
EndFor
Please sign in to rate this answer.
TheDakKnight 1 Reputation point

2021-01-13T14:47:50.857+00:00

Ok, thank you very much...So the ball is bouncing on the left wall but stops when he hits the top / right wall...Where is the parameter which is responsible for that? @WhTurner

WhTurner 1,611 Reputation points

2021-01-13T15:48:13.837+00:00

That depends on the number of steps in the for loop.. If you want to continue you have to use a loop which doesn't end (e.g. While "True" )
My program shows in which direction your prograsmming could go
You also have to add top and right walls and a paddle, detect when the ball hits one of those and act accordingly.
Sign in to comment

Use comments to ask for clarification, additional information, or improvements to the question.
WhTurner 1,611 Reputation points

2021-01-13T15:55:54.853+00:00

What problems?
You have to detect when the ball reaches the top and change the direction of the ball to down (y=-y)
Please sign in to rate this answer.
TheDakKnight 1 Reputation point

2021-01-13T16:10:19.17+00:00

I tried it but it does not work how I want it. I don`t have any clue how to make the ball bounce from the paddle, the right wall and the ceiling

GraphicsWindow.Clear()
GraphicsWindow.BackgroundColor = "black"

'Balken
GraphicsWindow.BrushColor = "white"
Balken1 = Shapes.AddRectangle(120, 12)
GraphicsWindow.FillRectangle(619, 0, 5, 500)
GraphicsWindow.FillRectangle(0, 0, 619, 5)
GraphicsWindow.FillRectangle(0, 0, 5, 500)
GraphicsWindow.BrushColor = "blue"
GraphicsWindow.FontSize = 20

ball=Shapes.AddEllipse(16,16)
GraphicsWindow.MouseMove = MausBewegen
x=300
y=400
dx=1
dy=1
Controls.Move(ball,x,y)
for i=1 to 1000
x=x-dx
y=y-1
if x<7 Or x>100 Then
dx=-dx
EndIf
If y<395 Or y>395 Then
dy=-dy
EndIf
Controls.Move(ball,x,y)
Program.Delay(10)
EndFor

Sub MausBewegen
BalkenX = GraphicsWindow.MouseX
Shapes.Move(Balken1, BalkenX -60, GraphicsWindow.Height -12)
EndSub
Sign in to comment

Use comments to ask for clarification, additional information, or improvements to the question.
WhTurner 1,611 Reputation points

2021-01-13T16:30:59.573+00:00

Ceiling: if y<12 reverse dy

Rifgt wall; if x> (diameter ball + x coordinate right wall) reverse dx

For the paddlew if y> (siameter ball + y coordinate paddle) AND x within left and right coordinates paddle
Please sign in to rate this answer.

0 comments No comments
Sign in to comment

Use comments to ask for clarification, additional information, or improvements to the question.
WhTurner 1,611 Reputation points

2021-01-13T18:18:27.263+00:00

You should
replace y=y-1 by y=y-dy
and y=-dy by y=-y
Please sign in to rate this answer.

0 comments No comments
Sign in to comment

Use comments to ask for clarification, additional information, or improvements to the question.

Share via

Just wated to test something

4 answers

Your answer