10-21-2022, 09:51 PM
(10-21-2022, 09:32 PM)SMcNeill Wrote:(10-21-2022, 09:11 PM)bplus Wrote: Is it true you lose the list of recent files if you change the Compiler options? Unexpected! If so, probably not only this version. If not, my apologies I screwed up something else and lost that list.
Just tested and didn't lose the list of recent files when I changed options.
Any chance you accidentally hit the Clear Recent option with an errant mouse click sometime?
Yes definite possibility, after all the list disappeared.
Wait, dah, ... I switched to v3.3 I had downloaded (twice) but had not done all the things I have to do to get a new version up and running.
I was fooling around with this code and dismayed by the jiggly and blinky ball animation. So I thought I'd try changing compiler options THEN I thought I'd try the new v3.3 after knocking out some of all the processes MS was running CPU 40% sound right?
Is this I nice steady solid animation?
Code: (Select All)
Option _Explicit
_Title "Standard Reflection in a Rectangle Container" ' b+ 2022-10-21
' A quick demo of the wrong way I was doing bouncing balls and circles on rectangular borders
' Air Hockey, Ping Pong, Break Out games
Screen _NewImage(800, 600, 32)
_ScreenMove 250, 50
Randomize Timer
Dim Top, Left, Bottom, Right ' borders for rectangle
Top = 10: Bottom = _Height - 10: Left = 10: Right = _Width - 10
Dim x, y, r, a, speed, dx, dy ' for ball x, y position moving with heading a and speed so dx, dy with radius r
Dim i
restart:
x = _Width / 2: y = _Height / 2: speed = 5
r = 15 ' make ball radius (br) at least 2* speed
a = Rnd * _Pi(2) ' setup up ball in middle of screen/container random heading = ba (ball angle)
dx = speed * Cos(a): dy = speed * Sin(a)
Color &HFFFFFFF, &HFF008844
Do
Cls
Line (Left, Top)-(Right, Bottom), &HFF000000, BF
For i = 0 To r Step .25
Circle (x, y), i, &HFFFFFFFF
Next
x = x + dx ' test x, y is new ball position if dont run into wall
If x < Left + r Then x = Left + r: dx = -dx
If x > Right - r Then x = Right - r: dx = -dx
y = y + dy
If y < Top + r Then y = Top + r: dy = -dy
If y > Bottom - r Then y = Bottom - r: dy = -dy
_Display
_Limit 60
Loop Until _KeyDown(27) Or _KeyDown(32)
If _KeyDown(32) Then GoTo restart
b = b + ...