Search found 639 matches
Whatever the origin of your trouble may be, the polling of the mouse wheel surely in't: #Define RES_W 1920 #Define RES_H 1080 Static As Integer old_ms Dim As Integer mx,my,ms,mb Dim As Double zoom, pan_x, pan_y Do GetMouse mx,my,ms,mb If ms <> old_ms Then Zoom = (ms+4) / 4 '' Zoom in increments of ....
Dinosaur wrote:Each time I replace a Comma, I remembered the position with LFCnt.LF(X):
Could it be that you DIMmed an array inside your UDT and try to access it beyond its upper bound?
- Oct 03, 2019 16:54
- Forum: General
- Topic: Sound file sample access (WAV or MP3)
- Replies: 6
- Views: 287
I don't know what exactly you want to do, but here's a snippet that normalizes a single wav - file (pcm or float). It's part of a program I use to batch - normalize / convert the wav - files of a whole directory. For the conversion it uses ffmpeg . #Include "..\fbm_RIFFheader.bas" #Include...
In Windows, you could try to open the file in exclusive mode. This will fail as long as the file is accessed by an other program: #Include "windows.bi" Dim As HANDLE fh Dim As String filename = "c:\testfile.txt" Do fh = CreateFile(filename, GENERIC_READ, 0, NULL, OPEN_EXISTING, 0...
- Aug 24, 2019 13:49
- Forum: General
- Topic: Does FreeBASIC Have a Published Project Roadmap?
- Replies: 3
- Views: 2876
Does FreeBASIC have a published project roadmap? Alas, here in this forum those treasures are spread all over the place. But if you don't mind the german language, you will find a well-organized collection of code examples and projects on the german FB-site (partly with descripions in english). May...
- Aug 24, 2019 12:27
- Forum: Projects
- Topic: Porting BASIC Code from Classic 8-Bitters to FreeBASIC?
- Replies: 4
- Views: 3286
What's the best way to handle 8×8 bitmap tiles? Obviously, it's not going to be "overwrite the system font." With IMAGECREATE you can create tiles of any desired size. Is there anything like sprite functionality in FreeBASIC? No. You have to deal with this stuff yourself. But there are so...
- Aug 24, 2019 11:34
- Forum: Community Discussion
- Topic: [offtopic]What was at Jul 24, 2019 something special ?
- Replies: 14
- Views: 4898
No longer "America first"? *grin*
Something like this? #Include "windows.bi" #Include "win\psapi.bi" Dim As HANDLE processhandle, hwnd Dim As ULong PID Dim As ZString*MAX_PATH filename hwnd = GetActiveWindow() If hwnd Then GetWindowThreadProcessId(hwnd, @PID) processHandle = OpenProcess(PROCESS_QUERY_INFORMATION ...
The sub is that awfully slow, because with every extension the whole existing string is copied to an other memory location. Better once create an empty string of spaces of the necessary length an then replace the spaces with the converted doubles (maybe even faster with indexed strings instead of MI...