Search found 5443 matches

by dodicat
Jan 20, 2019 22:45
Forum: Tips and Tricks
Topic: Dedication check.
Replies: 0
Views: 18

Dedication check.

Windows 7 and above. Takes a couple of minutes to search. 'shell to include unicode declare function wsystem cdecl alias "_wsystem" (byval as wstring ptr) as long #Include "file.bi" function savefile(filename As String,p As String) as string Dim As long n=freefile If Open (filena...
by dodicat
Jan 20, 2019 12:33
Forum: Beginners
Topic: Getting the true unicode code
Replies: 21
Views: 1292

Re: Getting the true unicode code

Newbieforever
Rember also that asc() is overloaded.

Code: Select all


print asc(wstr("€"))

sleep

 
by dodicat
Jan 20, 2019 12:04
Forum: Community Discussion
Topic: Moderator's Environment and Tools.
Replies: 4
Views: 170

Re: Moderator's Environment and Tools.

PM's (Private Messages), inner sanctums, secret tête-à-tête's, pivate discussions about this and that and who to axe next ... I like it. A distant website? If it is distant from Richard it could be close to here (Principle Law of Antipodalism). If it is in the dark web Richard, I cannot join, the wi...
by dodicat
Jan 19, 2019 22:49
Forum: General
Topic: Trouble with Property returning by propName = value (solved)
Replies: 20
Views: 214

Re: Trouble with Property returning by propName = value (solved)

Could a byref function be more versatile than property? You can have many parameters, get and set, and the code is more readable and shorter. #include "crt.bi" type UDT extends OBJECT declare function Prop() byref as integer private: as integer ref=1 end type function UDT.Prop() byref as i...
by dodicat
Jan 19, 2019 15:00
Forum: Beginners
Topic: A new Unicode & Newbie problem
Replies: 16
Views: 308

Re: A new Unicode & Newbie problem

I tried a union with this. const size=1000 type ub as ubyte b(1 to size*2) end type union wsize as wstring * size w as ub b end union function getstring(z as wsize) as string dim as string g for n as long=1 to size*2 g+=chr(z.b.b(n)) next n return g end function #Include "file.bi" Sub save...
by dodicat
Jan 17, 2019 17:41
Forum: Tips and Tricks
Topic: Water Effect v0.5
Replies: 9
Views: 298

Re: Water Effect v0.4

Very nice.
I get 46 fps with 32 bits -O3
64 bits is half that speed.
About 30 -gen gas.
I waited a while for a fish, even a minnow.
The water looks too clear though (acid rain probably).
by dodicat
Jan 17, 2019 13:30
Forum: Windows
Topic: Multikey and Win10 Pro 64bit
Replies: 7
Views: 314

Re: Multikey and Win10 Pro 64bit

screen 8 is actually 640 by 200 but it shows about double it's height when seen. But underneath still 640 by 200. Wierd, maybe a qbasic throwback, not sure. screen 8 ' =640 by 200 dim as integer xres,yres screeninfo xres,yres print xres,yres print "Hello, screen 8, press a key" circle(320,...
by dodicat
Jan 14, 2019 12:30
Forum: Tips and Tricks
Topic: CountInString()
Replies: 16
Views: 447

Re: CountInString()

jj2007 -- one reason, you could create a new utopia in your own dinner time. Function TALLY(SomeString As String,PartString As String) As Long Dim As Long LenP=Len(PartString),count Dim As Long position=Instr(SomeString,PartString) If position=0 Then Return 0 While position>0 count+=1 position=Instr...
by dodicat
Jan 14, 2019 11:44
Forum: Tips and Tricks
Topic: CountInString()
Replies: 16
Views: 447

Re: CountInString()

I have it now jj2007, 24541 in quick succession.
Now I have two copies of the king James bible.
Is this some sort of sign jj2007 -- searching for "hell"?
What sort of ecumenical sign is <p>?
I am not even a member of the Church of England, my ancestors were Covenanters.
by dodicat
Jan 14, 2019 2:09
Forum: General
Topic: Squares
Replies: 6193
Views: 349303

Re: Squares

val2 mod 2 is equal to val2 and 1 which is faster.
by dodicat
Jan 14, 2019 1:56
Forum: Tips and Tricks
Topic: CountInString()
Replies: 16
Views: 447

Re: CountInString()

results for hell 50 50 1 to 50 0.01733574143145233 dodicat find number hell true 50 50 0 to 62 0.07592501089675352 d.j.peters find number hell true 50 50 0 to 49 0.01150925422552973 grindstone find number hell true -------------------------- 50 50 1 to 50 0.01723137317458168 dodicat find number hell...
by dodicat
Jan 13, 2019 23:34
Forum: Tips and Tricks
Topic: CountInString()
Replies: 16
Views: 447

Re: CountInString()

String epsilon I can't find strcasestr anywhere, I tried, looked in msvcrt.def, not there. So I couldn't include your functions. My tally is really very basic, fast at some searches, slow at others. Here are three comparisons for finding a number in a 10 million string of numbers. all different resu...
by dodicat
Jan 13, 2019 18:51
Forum: General
Topic: Where to put keyboard code
Replies: 31
Views: 370

Re: Where to put keyboard code

ssddata is empty.
I took the unpacked file to Linux, ssd.c compiled straight off,( I compiled to .o)
by dodicat
Jan 13, 2019 18:10
Forum: General
Topic: Where to put keyboard code
Replies: 31
Views: 370

Re: Where to put keyboard code

grindstone.
7-zip unpacks it.
I have 7-Zip portable on win 10.
The .c file doesn't compile on Win, so I cannot even create a library, it is a Linux file.
If you cannot get 7-zip I can put the unpacked files on mediafire in a .zip if you like.
by dodicat
Jan 13, 2019 15:10
Forum: General
Topic: Squares
Replies: 6193
Views: 349303

Re: Squares

Thanks Albert. Sadly it will probably all happen again so some other culture in some other place. Here is an update of my perpetual machine. Red - north pole, green - south pole, white stuff - magnetic insulator. It is boring to watch because perpetual motion will probably be boring when it is inven...

Go to advanced search