Search found 754 matches

by grindstone
Jan 15, 2021 16:38
Forum: Tips and Tricks
Topic: Image Manipulation
Replies: 4
Views: 155

Re: Image Manipulation

Looks to me like a good idea, from a first glance I would say two things: Firstly you should use properties to get the image infos Type NewImage xPos As Integer yPos As Integer image As FB.Image Ptr res As Long Declare Property iWidth As Integer Declare Property iHeight As Integer Declare Property b...
by grindstone
Jan 12, 2021 14:04
Forum: Game Dev
Topic: looking for partner(s) to geme-dev together
Replies: 8
Views: 831

Re: looking for partner(s) to geme-dev together

The latest post in this forum is dated November 07, 2020, 02:32:57 PM , the latest member registered in February 2019. Seems this forum is dozing off. I wasn't aware of that when I mentioned the link, sorry! Referring to game-dev I could contribute two different base frames: One for a simulation of ...
by grindstone
Jan 11, 2021 10:50
Forum: Game Dev
Topic: looking for partner(s) to geme-dev together
Replies: 8
Views: 831

Re: looking for partner(s) to geme-dev together

So maybe this link could be of interest for you:
http://games.freebasic.net/forum/index.php
by grindstone
Jan 10, 2021 19:42
Forum: Beginners
Topic: chess game that needs a code review
Replies: 6
Views: 268

Re: chess game that needs a code review

I did the pleasure to myself to port it to FB. It compiles, but from a first glance I'm pretty sure it doesn't work correct, and the handling is far from up to date. Anyway, feel free to test it.
https://www.freebasic-portal.de/porticula/chess-huocv06bportfb-1856.html
by grindstone
Dec 26, 2020 1:42
Forum: Community Discussion
Topic: [offtopic]How Microsoft Flight Simulator Recreated Our Entire Planet
Replies: 5
Views: 332

Re: [offtopic]How Microsoft Flight Simulator Recreated Our Entire Planet

angros47 wrote:With FreeBasic it's not possible to make a flight simulator that manages a whole planet, unfortunately
Why not? It would be a lot of work, for sure, but with an appropriate database I'd consider it as entirely possible.
by grindstone
Dec 26, 2020 1:15
Forum: Community Discussion
Topic: Merry Christmas to all
Replies: 2
Views: 171

Re: Merry Christmas to all

The same from here. Merry Christmas, a happy new year and stay healthy.
by grindstone
Dec 19, 2020 15:36
Forum: Game Dev
Topic: A simple snake game - with two problem
Replies: 5
Views: 344

Re: A simple snake game - with two problem

The second problem is easy to solve. You forgot a bunch of commas:

Code: Select all

Circle (egydolog(i).xhely,egydolog(i).yhely),5,RGB(255,0,0),,,,F 'HERE IS THE 2nd PROBLEM!!!
by grindstone
Dec 13, 2020 18:03
Forum: Tips and Tricks
Topic: String compression (SMAZ)
Replies: 9
Views: 500

Re: String compression (SMAZ)

Fact is, though, that they are one of the few fat texts that you can freely download, so for testing an algo they are good choices Sorry, but from my own experience I have to contradict. Indeed, the bible is free downloadable, but with about 4MB of plain text not really "fat" - at least c...
by grindstone
Dec 10, 2020 11:16
Forum: Beginners
Topic: How to use a pointer for a ulong number
Replies: 13
Views: 697

Re: How to use a pointer for a ulong number

HEX could do the job on its own:

Code: Select all

Dim Number As ULong
Dim StrNumber As String
Dim Index As UByte

Number = &h12345678

StrNumber = Hex(Number, 8) 'convert Number to an 8-byte-string
For Index = 1 To Len(StrNumber) Step 2
   Print Mid(StrNumber, Index, 2)
Next

Sleep
by grindstone
Dec 08, 2020 12:10
Forum: Community Discussion
Topic: Thank you fxm for 10K high quality posts !
Replies: 13
Views: 746

Re: Thank you fxm for 10K high quality posts !

A big THANK YOU also by me, I raise my hat to you. 10000 posts! That's real idealism!

Keep it up and stay healthy!
by grindstone
Dec 06, 2020 20:18
Forum: Beginners
Topic: How to use a pointer for a ulong number
Replies: 13
Views: 697

Re: How to use a pointer for a ulong number

Is there an easier way to do this? Sure it is: ... For Index = 0 To NumSize-1 'First method 'StrValue[Index] = peek(ubyte,NumPtr) StrValue[Index] = *NumPtr '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'second method 'Poke UByte,Strpointer + Index,Peek(UByte,NumPtr) NumPtr = NumPtr + Inc Next ... You should...
by grindstone
Dec 06, 2020 16:36
Forum: Beginners
Topic: Mouse problem
Replies: 8
Views: 1780

Re: Mouse problem

After every mouse action, wait for the mouse button(s) to be released:

Code: Select all

...
Do 'wait for mouse button to be released
   GetMouse(mousex,mousey,mousewheel,mousebutton)
Loop While mousebutton
...
by grindstone
Nov 07, 2020 8:30
Forum: General
Topic: File handling problems
Replies: 11
Views: 547

Re: File handling problems

Your program obviously hangs when gamestate is set to "0", but the snippet you posted provides too little information to say what's going wrong.

And maybe you should rethink the use of quotes as part of the headline name, because it makes the handling unnecessarily complicate.
by grindstone
Nov 06, 2020 12:18
Forum: Windows
Topic: [solved]Any XP user here ?
Replies: 4
Views: 375

Re: Any XP user here ?

Working on XP (as main OS) without any problems.

module()
min: 1 max: 1000000
by grindstone
Nov 06, 2020 11:41
Forum: General
Topic: File handling problems
Replies: 11
Views: 547

Re: File handling problems

It's not quite clear to me: When you say "apostrophes", do you mean apostrophes (') or quotes (") ? To use quotes as a literal you have to print it as double quotes: Dim As String f = "saves\gamesave.txt", unitname = "myUnit", g Open f For Output As #1 Print #1, &q...

Go to advanced search