Windows for fun with some sound.
(Some help from angros47's post regarding playing .mp3 files on win 10)
https://www.mediafire.com/file/euzi8vn0upn6bsr/RIP.zip/file

Circles became squares. Type Point As Short x,y Declare Constructor(As Short=0,As Short=0) End Type Constructor Point(xx As Short=0,yy As Short=0) x=xx y=yy End Constructor Type Rectangle Extends Point As Ushort wide As Ushort high As Single aspect As Byte pflag As Ulong clr Declare Constructor(As P...

When you see things like; @(10033264)=0 @(10033265)=1 @(10033266)=2 @(10033267)=3 @(10033268)=4 @(10033269)=5 . . . You assume a byte or ubyte (something size 1). But you require any ptr to represent integer. So you should increment your any ptr accordingly. type mydata as integer ' or something els...

aloberoger. You still use suffixes like ucase$, mid$, . . . in some of your .bas files. Many of my own old code files have the same problem, and if these symbols are plentiful it is quite tricky to clean them all up. These new rules apply to fb 1.06 or fb 1.07 and probably Ad infinitum (but I did co...

Sub drawstring(xpos As Integer,ypos As Integer,text As String,colour As Ulong,size As Single,textangle As Single=0,charangle As Single=0,im As Any Pointer=0) Type point2d As Single x,y As Ulong col End Type Dim As Integer flag,codenum=256 if instr(text,"|") then flag=1 Static As long runf...

I downloaded your project afresh from this thread. (member aloberoger) I popped in the disphelper lib file (was needed) I commented out '#Include Once "Win/vssym32.bi" from TTable.bi I went back to fb1.06 and tried to compile TestEdit.bas. I get the errors viz: \TestEdit.bas(57) warning 4(...

vbscript I assumed was free in Win 10. shell "cscript.exe" sleep My result: Microsoft (R) Windows Script Host Version 5.812 Copyright (C) Microsoft Corporation. All rights reserved. Usage: CScript scriptname.extension [option...] [arguments...] Options: //B Batch mode: Suppresses script er...

A key shell and the disadvantages of using escape sequences willy- nilly. Works on the 64 bit compiler only. tested on fb 1.7. dim as string k= _ !"Set WshShell = CreateObject(""WScript.Shell"")\n" + _ "MsgBox ConvertToKey(WshShell.RegRead(""HKLM\SOFTWARE...

Hi Albert. Tested on fb 1.7, still wrong decompress. ... I have updated 3D surface plot. Made it more psychedelic. I like your music very much. Anyway, you can change the function (within reason) in InputFunction: using fb 1.7 Type V3 As Single x,y,z End Type Operator -(v1 As v3,v2 As v3) As v3 'v1-...

aloberoger
I keep getting from your link examples.
File not found, "Win/vssym32.bi" in '#Include Once "Win/vssym32.bi"'

fb 1.6 and fb 1.7 gives this.

In your code snippet you have the udt
Type TCLASS extends object
defined twice, don't know why.

Shell saves you dipping into windows.bi. And gives an additional OS tool. The dos style commands are very powerful and should be treated carefully. Notwithstanding any of that, I shell and pipe and terminate in windows. function pipeout(byval s as string="") byref as string var f=freefile ...

If you can find a vbscript method to read a file then you could always just use shell. There are a few available, here is one https://www.easyxls.com/manual/tutorials/vbs/read-xlsx-file.html Unfortunately my win 10 registry has a bug and it won't create an object, but here is a simple example: two w...

Using barebones FB and shell These xlsx files are in compressed format. I have had a look at them via power shell by saving the contents into a .zip file I have commented out shell "rd /S/Q tmpfolder" in the function load so they can be viewed. I have used xl\sharedstrings.xml This file se...

Firstly you need the disphelper library file. https://sourceforge.net/projects/fbc/files/Older%20versions/0.90.1/Binaries%20-%20Windows/Libraries/ (15 up from the bottom of the page). You can put the libdisphelper.a in the same folder as your code while you experiment. (libdisphelper.a is 32 bits fo...

@dodicat. Most code in your runtime tester might be very close to what I was looking for to improve lzae (overload redundancy, udts handling). It is simple & elegant. #macro setptr( datatype ) Function arrayptr Overload (a() As datatype ,...) As datatype Ptr ... Static As datatype Ptr z z= __ar...