QB64 Phoenix Edition v3.3.0 Released!
#57
(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 + ...
Reply


Messages In This Thread
RE: QB64 Phoenix Edition v3.3.0 Released! - by bplus - 10-21-2022, 09:51 PM



Users browsing this thread: 13 Guest(s)