Search found 2978 matches

by vdecampo
Feb 01, 2017 14:46
Forum: Beginners
Topic: Pixel
Replies: 21
Views: 1211

Re: Pixel

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...
by vdecampo
Feb 01, 2017 14:43
Forum: Beginners
Topic: Pixel
Replies: 21
Views: 1211

Re: Pixel

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
by vdecampo
Jan 25, 2017 0:17
Forum: Beginners
Topic: How to "reverse" a byte?
Replies: 69
Views: 3016

Re: How to "reverse" a byte?

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 = ...
by vdecampo
Jan 24, 2017 1:37
Forum: Community Discussion
Topic: Personal Source Code Archive
Replies: 3
Views: 671

Re: Personal Source Code Archive

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 ...
by vdecampo
Jan 18, 2017 17:11
Forum: Beginners
Topic: How to "reverse" a byte?
Replies: 69
Views: 3016

Re: How to "reverse" a byte?

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

Code: Select all

Dim value as long= &hFFFF0000
dim rev as long = value XOR &hFFFFFFFF
print hex(value,8), hex(rev,8)
sleep


-Vicne
by vdecampo
Jan 17, 2017 1:09
Forum: Community Discussion
Topic: FreeBASIC syntax challenge games
Replies: 363
Views: 13017

Re: FreeBASIC syntax challenge games

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 ...
by vdecampo
Jan 16, 2017 17:54
Forum: Community Discussion
Topic: Personal Source Code Archive
Replies: 3
Views: 671

Personal Source Code Archive

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...
by vdecampo
Jan 16, 2017 17:53
Forum: Community Discussion
Topic: Is anyone here purely for nostalgia?
Replies: 38
Views: 2932

Re: Is anyone here purely for nostalgia?

@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...
by vdecampo
Jan 08, 2017 23:44
Forum: Community Discussion
Topic: Is anyone here purely for nostalgia?
Replies: 38
Views: 2932

Re: Is anyone here purely for nostalgia?

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...
by vdecampo
Jan 03, 2017 15:29
Forum: General
Topic: AI : choise helper
Replies: 1
Views: 226

Re: AI : choise helper

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
by vdecampo
Dec 13, 2016 2:05
Forum: Beginners
Topic: How many times I can use ":" ?
Replies: 7
Views: 820

Re: How many times I can use ":" ?

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

IMHO

-Vince
by vdecampo
Sep 06, 2016 18:10
Forum: Documentation
Topic: GetMouse Documentation Error @ Clip? (SOLVED)
Replies: 14
Views: 1718

Re: GetMouse Documentation Error @ Clip? (SOLVED)

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...
by vdecampo
Aug 30, 2016 23:57
Forum: Projects
Topic: Berzerk 2.0 (Beta Release 0.9.0)
Replies: 19
Views: 3497

Re: Berzerk 2.0 (Beta Release 0.9.0)

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...
by vdecampo
Aug 30, 2016 19:08
Forum: Projects
Topic: Hex Factor 1.0 Released
Replies: 22
Views: 4195

Re: Hex Factor 1.0 Released

Updated download link in original post.

-Vince
by vdecampo
Aug 30, 2016 19:00
Forum: Projects
Topic: Star Castle Finished!
Replies: 1
Views: 1114

Re: Star Castle Finished!

Updated download link in original post.

-Vince

Go to advanced search