| Welcome, Guest |
You have to register before you can post on our site.
|
| Latest Threads |
The QB64 IDE shell
Forum: Utilities
Last Post: JasonPag
09-16-2024, 05:37 PM
» Replies: 9
» Views: 762
|
Importance regarding Ches...
Forum: Utilities
Last Post: JasonPag
09-01-2024, 06:34 PM
» Replies: 0
» Views: 31
|
Chess and Analysis and En...
Forum: Utilities
Last Post: JasonPag
08-28-2024, 02:37 PM
» Replies: 0
» Views: 32
|
DAY 009:_PutImage
Forum: Keyword of the Day!
Last Post: grymmjack
09-02-2023, 02:57 PM
» Replies: 54
» Views: 2,032
|
Fall Banner Contest?
Forum: Site Suggestions
Last Post: grymmjack
08-31-2023, 11:50 PM
» Replies: 36
» Views: 1,261
|
ColorPicker - Function th...
Forum: Dav
Last Post: Dav
08-31-2023, 11:04 PM
» Replies: 3
» Views: 315
|
Goals(1) = New Tile()
Forum: Works in Progress
Last Post: RhoSigma
08-31-2023, 09:45 PM
» Replies: 3
» Views: 127
|
micro(A)v11
Forum: QBJS, BAM, and Other BASICs
Last Post: bplus
08-31-2023, 09:14 PM
» Replies: 90
» Views: 3,588
|
Updating The Single Most ...
Forum: QBJS, BAM, and Other BASICs
Last Post: bplus
08-31-2023, 09:13 PM
» Replies: 7
» Views: 254
|
QBJS Image Question
Forum: QBJS, BAM, and Other BASICs
Last Post: bplus
08-31-2023, 05:49 PM
» Replies: 5
» Views: 155
|
|
|
| Admin on vacation!! |
|
Posted by: admin - 04-22-2022, 10:14 PM - Forum: General Discussion
- Replies (5)
|
 |
Ok guys, this has been one heck of a productive week as far as restoring QB64 is concerned!
We've got the forums here back up and going.
I've got us half a homepage up and going. (https://qb64phoenix.com)
The wiki has been rebuilt (though its still missing a few things which we'll find and replace over time.), and new editors have signed up to help maintain and build it.
We've got an official repo over at github now, and we've got a First Edition release available to help remove any issues with QB64 trying to link to the old site and error out when it can't do so...
In other words, I couldn't be any prouder of what we've accomplished as quicky as we have, BUT... I need a break now. My arthritis in my knuckles and shoulders is acting up from being hunched over the keyboard so much this week, and it looks like we're too the point where things should be able to exist without me for a few days. I'm going to log out, take a good bath, maybe get dressed afterwards, before I go outside and grill me a nice big steak for supper, and then I'm going to just chill and relax and avoid everything for the next few days until the week starts back up again on Monday.
If anyone wants me before then... Sorry! You'll just have to wait.
Try not to burn down the place until I get back, and God forgive me for even saying it, but it looks like Pete is the boss in charge around here for now! 
|
|
|
| Load a webpage externally |
|
Posted by: Michelle - 04-22-2022, 08:26 PM - Forum: General Discussion
- Replies (8)
|
 |
Well first, it has been awhile since I last fiddled with BASIC, and I kept trying to hunt down the 'other' site that seems to have gone bye-bye. Oh well, I guess stuff happens.
Anyway, I am writing an app to help some folks in a group I support. Once of the things I'd kinda like the app to do is bring up a webpage based on a given URL is the user makes a certain selection in the program. I'm sure this has probably been ask before, but I've searched some, and finding nothing, probably due to not using the correct words to search on. Anyway, thanks for any help, Michelle
|
|
|
|
| Linux difficulties compared to Windows |
|
Posted by: bplus - 04-22-2022, 12:29 PM - Forum: Help Me!
- Replies (3)
|
 |
I, bplus, am newbie to Linux the Mint Cinnamon Distro which is a subset of Ubuntu but with more Windows like appearance if I read my book right.
Anyway I am testing the Battleship app Johnno and I put together, everything is fine until I am halfway through a game with all effects going (mostly just sound files playing) and the thing just ups and quits, no messages, nothing?! When I play without effects it's fine and I can run a whole game to win or lose. I think there were some wav files and possibly those are Windows preferred? But why would they work for awhile and then not?
Another goofy thing: I am testing a graphics program, a mod of Kens's spiral flower and it just automatically says compiler error see log... I check and it's blank, over and over? I'm thinking there is some invisible character that doesn't show in IDE because I commented out the whole program and still get compiler error message. Weird!
And another thing:
I am testing old Spinners program, that takes a screenshot of desktop and then displays that with spiders crawling all over... oh wait the Wiki did say taking screen shots does not work in Linux, never mind.
Windows has no problem with this, IDE in Linux is happy but the compiler gives me error even when I comment more and more until all of the code:
Code: (Select All) _Title "b+ Makeover #2 of Ken's Rotating Flower"
Dim image As Long
Screen _NewImage(700, 700, 32)
_ScreenMove 250, 20
For r = 0 To 60 Step .25
Circle (350, 350), r, _RGB32(255 - r * 4, 0, 0), , , .5 'ovals half width for height
Next
image = _CopyImage(0)
Print " Here is one petal, press any to continue..."
Sleep
For i = 0 To 700
Line (0, i)-(700, i), _RGB32(0, 160, 255 - i / 700 * 255)
Next
For r = 20 To 0 Step -.25 ' draw a yellow center
Circle (350, 350), r, &HFFFFFF00
Next
r = 250: zoom = 1
Do ' each loop draws a ring of petals around the center starting on outside
For a = start To _Pi(2) - .00001 Step _Pi(2 / 30) ' a goes around a circle from 0 to 2*pi = 360 degrees
x = 350 + r * Cos(a): y = 350 + r * Sin(a) ' here is x, y coordinate for petal center
angle = _Atan2(350 - y, 350 - x) ' here is the angle of the petal to the center of screen
RotoZoom x, y, image, zoom, _R2D(angle) ' draw petal centered at x, y, scaled at zoom level, convert angle radians to degrees for rotozoom
_Display
_Delay .1
Next
zoom = zoom * .75 ' decrease petal scale by 75%
r = r * .75 ' 'next ring of petals decrease radius by 75%
If r < 20 Then Exit Do ' r is too small we are done!
toggle = 1 - toggle ' this alters petals so they are offset each time around
If toggle Then start = -_Pi(1 / 30) Else start = 0 ' offset by half the angle "a" step size
Loop Until InKey$ = Chr$(27)
Sleep
Sub RotoZoom (X As Long, Y As Long, image&, Scale As Single, Rotation As Single)
Dim px(3) As Single: Dim py(3) As Single
W& = _Width(image&): H& = _Height(image&)
px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
sinr! = Sin(-Rotation / 57.2957795131): cosr! = Cos(-Rotation / 57.2957795131)
For i& = 0 To 3
x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
px(i&) = x2&: py(i&) = y2&
Next
_MapTriangle (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), image& To(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
_MapTriangle (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), image& To(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
End Sub
|
|
|
|
|
![[Image: All-Ritchies-QB64-Games2.png]](https://i.ibb.co/sgg4Sy6/All-Ritchies-QB64-Games2.png)
