Here is an update that includes a Demo with it. Check the TYPE at the top of the code where the comments explain what the different options does and there value. Type NewBar ' Bar Position {Note: BoxPos is Row-1, Col-1} As Integer Row, Col ' Current, Start, and Finish Values As Integer ValueBar, Low...

Here is a progress bar program I put together for use in other projects. There are plenty of options available. Place the bar on the screen with or without being surrounded by a box. There are multiple different box styles to choose from, different bar styles as well. With the box option you can hav...

Not sure if this is ready for posting, but here it is. This is the start of a unique solver where it doesn't use brute force or recursion to solve the puzzles. Instead, it uses different solving techniques like Hidden Singles, Hidden Pairs, etc. to try and solve the puzzles. Currently only Hidden Si...

Back in 1998 Interplay/Presage/Stepping Stone came out with e programming language based on BASIC called "Learn to Program BASIC" and I have always enjoyed using it. Especially the sprite features. I thought I would try and recreate LTPB commands and functions for FreeBasic. I also created...

Where do ya get Openb3d.bi? Getting Minib3d doesn’t work.

Here is some code I put together based on an old Programming Language. It is currently just basic (no pun intended). A Demo is included here to show off the results. Rat.bi: Type NewMouse As Integer Grab, xRat, yRat, ButtonRat As String*1 ButtonStr Declare Function Button as Boolean Declare Function...

There is a bug in WinFBE that has been present in FB Edit as well. Take this Example: For t as Integer=1 to 10: Print "Howdy": Next Normally it is split up into multiple lines, but here it is all one line. Press Enter before the first colon and you get this: For t as Integer=1 to 10 Next ...

There is a bug in WinFBE that has been present in FB Edit as well. Take this Example: For t as Integer=1 to 10: Print "Howdy": Next Normally it is split up into multiple lines, but here it is all one line. Press Enter before the first colon and you get this: For t as Integer=1 to 10 Next :...

I know this may be completely silly thing to do, but ya could create a function that take in a value , converts it to a string, get the position of the decimal point and then return the value two places after the decimal point. Just my penny worth of silliness.

Here is some code I have been playin with that solves sudoku puzzles. The code to solve puzzles can be found on Roseta Code: https://www.rosettacode.org/wiki/Sudoku#FreeBASIC https://www.rosettacode.org/wiki/Sudoku#VBA The FreeBasic version isn't in English so I used the VBA version to compensate. T...

hello NorbyDroid :) if dodicat were here I am sure he would be able to help the best that I can attempt is to convert someone else's code, I tried to convert this but something went wrong https://codereview.stackexchange.com/questions/278622/sudoku-solver-in-c-without-recursion if you want the non-...

I was looking at the code for the Sudoku Solver on Rosetta Code and noticed it uses recursion (Same subroutine multiple times in a loop). Is there a way to do it without the recursion? Here is the Code: Dim Shared As Integer cuadricula(9, 9), cuadriculaResuelta(9, 9) Function isSafe(i As Integer, j ...

Not sure if this is helpful, but I posted some code that rotates here: viewtopic.php?p=299755&hilit=rotate#p299755

Here is a quick update. Thanks to Paul Doe for his reminder, I updated to 32 Bit colours instead of the 16. I added extra characters to the display and even added an animation for the Text. A few other tweaks as well. Enjoy #include "fbgfx.bi" Sub Segments(ix as Integer, iy as Integer, iSe...

Here is my attempt a a 16 segmented display. If ya want to see all characters available use Testing. Warning: My graphics skills aren't all that so be warned. Sub Segments(ix as Integer, iy as Integer, iSeg as String, ic as Integer) Select Case iSeg Case "0": Line(ix+2, iy+1)-(ix+12, iy+1)...