Search found 5878 matches

by dodicat
Sep 12, 2019 0:30
Forum: Game Dev
Topic: Physics question
Replies: 74
Views: 5689

Re: Physics question

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
by dodicat
Sep 10, 2019 11:17
Forum: General
Topic: Squares
Replies: 6886
Views: 403005

Re: Squares

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...
by dodicat
Sep 08, 2019 13:32
Forum: Community Discussion
Topic: any ptr bug?
Replies: 5
Views: 126

Re: any ptr bug?

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...
by dodicat
Sep 02, 2019 10:25
Forum: General
Topic: wtite dxf files with FB
Replies: 10
Views: 641

Re: wtite dxf files with FB

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...
by dodicat
Sep 01, 2019 20:51
Forum: Community Discussion
Topic: FreeBASIC 1.07 Release Discussion
Replies: 15
Views: 1130

Re: FreeBASIC 1.07.0 Release Discussion

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...
by dodicat
Sep 01, 2019 10:55
Forum: Community Discussion
Topic: fb 1.07 tests
Replies: 50
Views: 3956

Re: fb 1.07 tests

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(...
by dodicat
Aug 31, 2019 16:25
Forum: Beginners
Topic: Read a simple LibreOffice Calc file
Replies: 24
Views: 1008

Re: Read a simple LibreOffice Calc file

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...
by dodicat
Aug 31, 2019 10:57
Forum: General
Topic: I hate shell
Replies: 8
Views: 506

Re: I hate shell

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...
by dodicat
Aug 30, 2019 20:53
Forum: General
Topic: Squares
Replies: 6886
Views: 403005

Re: Rainbow Peak.

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-...
by dodicat
Aug 30, 2019 18:01
Forum: Community Discussion
Topic: fb 1.07 tests
Replies: 50
Views: 3956

Re: fb 1.07 tests

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.
by dodicat
Aug 30, 2019 11:17
Forum: General
Topic: I hate shell
Replies: 8
Views: 506

Re: I hate shell

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 ...
by dodicat
Aug 30, 2019 10:10
Forum: Beginners
Topic: Read a simple LibreOffice Calc file
Replies: 24
Views: 1008

Re: Read a simple LibreOffice Calc file

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...
by dodicat
Aug 29, 2019 12:36
Forum: Beginners
Topic: Read a simple LibreOffice Calc file
Replies: 24
Views: 1008

Re: Read a simple LibreOffice Calc file

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...
by dodicat
Aug 28, 2019 16:48
Forum: Beginners
Topic: Read a simple LibreOffice Calc file
Replies: 24
Views: 1008

Re: Read a simple LibreOffice Calc file

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...
by dodicat
Aug 27, 2019 16:39
Forum: Documentation
Topic: Array Descriptor (split from Wiki Improvements)
Replies: 121
Views: 5801

Re: Array Descriptor (split from Wiki Improvements)

@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...

Go to advanced search