TurtleProgrammer wrote:I need the program to start from 1 to and go to 1000 (for example), and pick a color from the standard, red, blue, green, yellow, orange, and white.

Which graphics mode? 32bit or 8bit?

-Vince

What's the easiest way to create a randomly colored pixel from 1 to 1001 for example? is 1-1001 the range of colors or the number of pixels? #Define RndColor Rnd*&hFFFFFF #Define ScrW 800 #Define ScrH 600 Randomize ScreenRes ScrW, ScrH For x As Integer = 0 To 1000 PSet (Rnd*ScrW,Rnd*ScrH),RndCo...

What's the easiest way to create a randomly colored pixel from 1 to 1001 for example? is 1-1001 the range of colors or the number of pixels? #Define RndColor Rnd*&hFFFFFF #Define ScrW 800 #Define ScrH 600 ScreenRes ScrW, ScrH For x As Integer = 0 To 1000 PSet (Rnd*ScrW,Rnd*ScrH),RndColor Next S...

TurtleProgrammer wrote:What's the easiest way to create a randomly colored pixel from 1 to 1001 for example?

is 1-1001 the range of colors or the number of pixels?

-Vince

Late to the party but I found this.... Function Rev(in As UInteger) As UInteger ' swap odd and einen bits in = ((in Shr 1) and &h55555555) or ((in and &h55555555) Shl 1) ' swap consecutiine pairs in = ((in Shr 2) And &h33333333) Or ((in And &h33333333) Shl 2) ' swap nibbles ... in = ...

Thank you for putting the files online again. For the sake of completeness I've skimmed all the postings in this forum containing a link to your old site "imakegames.com" and found those additional files by you or others that were hosted exclusively on that site (or the other hosters are ...

Maybe I missed something but can't you just do this?



-Vicne

Enigma #12, force 4 By only adding code in the dedicated insertion zone, and without modifying the rest of program, make so that program displays "You won!": Type UDT Dim As String S = "You lost!" End Type Const As String S0 = "You won!" Dim Shared As UDT u0 u0.S = S0 ...

I let my iMakeGames.com domain expire because I did not have time to maintain it, however I created a site on my home computer to host all my FB projects for download. You should be able to access it here... vdecampo's FB project download site. If I am missing something please let me know and I will...

@vdecampo: Your website "imakegames.com" seems to be offline since a while, which means that unfortunately some interesting FreeBasic projects are not available for download anymore. Could your code or website on some other (free?) hosting service like sourceforge or github or provide a d...

I'm here for nostalgia and teaching others. I mostly program in C#, C, and ASP.NET but I will program in whatever the situation requires. I've taught myself a little PHP as well. I started with GW-BASIC, and graduated through QB, VB, then C and C# all over the course of 30 years. The move to C/C# ju...

Have a look at this thread for some examples of reading/writing data to a file.

http://www.freebasic.net/forum/viewtopic.php?f=2&t=24347&p=215404&hilit=how+to+read+write+file#p215404

-Vince

I would recommend to NEVER use : as it makes code less coherent.

IMHO

-Vince

On Win 10 the mouse wheel is no longer registered on a transparent part of a screen. I have mentioned this before. I had written some code to magnify a bit of the desktop. Win 10 has pretty well stopped getcursorpos --( getmouse from kernell32.dll) -- (it is now dead slow and crash) And no longer c...

The game crashes on Windows 10. Maybe you are using an old (FreeBasic) compiler version? Anyway, the absence of source code makes it nearly worthless IMHO. It does crash on exit but it plays fine on my Windows 10 machine. I'll see if I can find the original source code. I was just cleaning up the d...