+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: Chatting and Socializing (https://qb64phoenix.com/forum/forumdisplay.php?fid=11)
+--- Forum: Announcements (https://qb64phoenix.com/forum/forumdisplay.php?fid=18)
+--- Thread: QB64PE v4.0 is now live!! (/showthread.php?tid=3281)
RE: QB64PE v4.0 is now live!! - NakedApe - 12-27-2024
I'm having a problem with QB64pe 4.0 on the Mac. If I try to run older programs of mine on 4.0, the IDE compiles them, gives no error message and then nothing happens. Nothing. I've tried it with many progs.
If I open a program that doesn't run and save it with a different name, then sometimes it'll run, but not always. If I try the "bad" progs on version 3.14.1, all is well.
This for example doesn't run unless I rename it.
Code: (Select All)
Option _Explicit
_Title " A Spinning Circle: bplus mod 2 of NakedApe"
Screen _NewImage(600, 400, 32)
Dim As Integer i, start, fini, stepper, top ' Playing with Aspects
Dim As _Unsigned Long col
$Color:32
Dim asp(1 To 90)
i = 1: asp(1) = 1 ' make an array of aspect values Note: asp(i) = Cos(_D2R(i)) will spin on the other axis
While i < 90
i = i + 1: asp(i) = 1 / Cos(_D2R(i))
Wend
top = i: col = Red: start = 1: fini = top: stepper = 1
Do
For i = start To fini Step stepper
Cls
Circle (_Width / 2, _Height / 2), 100, White, , , asp(i)
Paint (_Width / 2, _Height / 2), col, White
If _KeyDown(27) Then System Else _Limit 90
_Display
Next
If start = 1 Then
start = top: fini = 1: stepper = -1
If col = Red Then col = Green Else col = Red ' flip colors on odd cycles
Else
start = 1: fini = top: stepper = 1
End If
Loop
RE: QB64PE v4.0 is now live!! - Kernelpanic - 01-13-2025
I noticed this strange behavior from the beginning, not something that hinders work, but I finally wanted to mention it.
Correction: There is only one line at the top.
![[Image: Linien-Nach-About.jpg]](https://i.ibb.co/ySCBc6d/Linien-Nach-About.jpg)