Search found 5520 matches

by dodicat
Feb 20, 2019 1:30
Forum: Windows
Topic: Huh-Yuh Lanuage
Replies: 19
Views: 379

Re: Huh-Yuh Lanuage

OK here Albert.
They are on the right side of the window half way down,
by dodicat
Feb 19, 2019 19:00
Forum: Windows
Topic: Huh-Yuh Lanuage
Replies: 19
Views: 379

Re: Huh-Yuh Lanuage

Albert
I have been messing around with the actual horizontal and vertical scrollers if put on to the main window, but no luck yet.
If you use the mousewheelpress in my previous code it is a bit sharper.
WM_MBUTTONDOWN
and
WM_MBUTTONUP (in the sub)
by dodicat
Feb 19, 2019 18:03
Forum: Windows
Topic: Huh-Yuh Lanuage
Replies: 19
Views: 379

Re: Huh-Yuh Lanuage

Fair enough Albert.
I agree, your original scroll was OK.
by dodicat
Feb 19, 2019 17:23
Forum: Tips and Tricks
Topic: Numerical optimizer
Replies: 12
Views: 179

Re: Numerical optimizer

This is for nostalgic purposes only, a 32 bit debug macro I made up years ago. Purportedly catches early signs of bugs. Windows only. (Only 32 bits due to a bug in 64 bits) #macro debug #if sizeof(integer)=4 Declare Function ScaleWindow Alias "MoveWindow"(As Any Ptr,As Integer=0,As Integer...
by dodicat
Feb 19, 2019 17:04
Forum: Windows
Topic: Huh-Yuh Lanuage
Replies: 19
Views: 379

Re: Huh-Yuh Lanuage

Hi Albert. What do you think of dragging the static window with the right mouse button down? example #define WIN_INCLUDEALL #include once "windows.bi" #include once "win\commctrl.bi" '=============================================================================== '===============...
by dodicat
Feb 19, 2019 12:08
Forum: Tips and Tricks
Topic: Numerical optimizer
Replies: 12
Views: 179

Re: Numerical optimizer

The problem in 32 bits is

Code: Select all

 var n= &hffffffff
var m= 4294967295
print n
print m
#print typeof(n)
#print typeof(m)
sleep
 


if you substitute the number instead of the hex in rnd256.nextinc , it doesn't overflow the array in mutator.mutate()
by dodicat
Feb 18, 2019 23:45
Forum: Windows
Topic: Which Button?
Replies: 3
Views: 74

Re: Which Button?

Hi Albert. Click the character buttons. #define WIN_INCLUDEALL #include once "windows.bi" #include once "win\commctrl.bi" '=============================================================================== '============================================================================...
by dodicat
Feb 18, 2019 18:53
Forum: Tips and Tricks
Topic: Bit duplication
Replies: 17
Views: 391

Re: Bit duplication

Here is a string variety. Please use 32 bits (jj2007's assembler included) function duplicate naked cdecl (byval inbyte as long) as integer asm .align 4 mov edx, [esp+4] xor eax, eax mov ecx, -1073741824 L0: rol ecx, 2 shr edx, 1 je L1 jnc L0 or eax, ecx jmp L0 L1: jnc Lx2 or eax, ecx Lx2: ret end a...
by dodicat
Feb 18, 2019 16:31
Forum: Beginners
Topic: How to convert String (or Double) to SerialNumber
Replies: 11
Views: 239

Re: How to convert String (or Double) to SerialNumber

Here is a summary #undef valint #undef vallng #undef valuint #undef valulng #ifdef valint #undef valint #endif #ifdef vallng #undef vallng #endif #ifdef valuint #undef valuint #endif #ifdef valulng #undef valulng #endif print cint("12.34") 'uses vallng print cuint("12.34") 'uses ...
by dodicat
Feb 18, 2019 12:41
Forum: Beginners
Topic: How to convert String (or Double) to SerialNumber
Replies: 11
Views: 239

Re: How to convert String (or Double) to SerialNumber

cint uses valint/vallng for strings anyway. -- and it is easier to type in. #undef valint #undef vallng #ifdef valint #undef valint #endif #ifdef vallng #undef vallng #endif 'print valint("12.34") 'gone 'print vallng("12.34") 'gone print cint("12.34") 'also gone sleep
by dodicat
Feb 17, 2019 2:04
Forum: Tips and Tricks
Topic: Bit duplication
Replies: 17
Views: 391

Re: Bit duplication

You should reset t for Badidea B

' ************* badidea B *************
t=timer

bla
bla
by dodicat
Feb 17, 2019 0:45
Forum: Projects
Topic: Coil Inductance and Q Calculator
Replies: 12
Views: 245

Re: Coil Inductance and Q Calculator

Timer measurements should always be double, even in lang "qb" Here are my #lang "qb" results: #lang "qb" FUNCTION intt naked cdecl(byval a as single) as integer<32> __asm roundss xmm0,[esp+4],1 cvtss2si eax,xmm0 ret end __asm end function print __sizeof(intt(0!)) print ...
by dodicat
Feb 16, 2019 23:33
Forum: Projects
Topic: Coil Inductance and Q Calculator
Replies: 12
Views: 245

Re: Coil Inductance and Q Calculator

The .chm help file, from the home page / downloalds/documenataion https://sourceforge.net/projects/fbc/files/Documentation/ For win 10, right click the .chm, properties then unblock. I use fbide, you can set a path to it in view- settings -freebasic. If you have this set up then can put your cursor ...
by dodicat
Feb 16, 2019 20:09
Forum: Projects
Topic: Coil Inductance and Q Calculator
Replies: 12
Views: 245

Re: Coil Inductance and Q Calculator

Better to use the .chm file IMO. Much easier. Anyway, I ran a test on your asm. parameter in single, 32 bit integer out. must use the 32 bit compiler. Function intt Naked Cdecl(Byval a As Single) As Integer Asm roundss xmm0,[esp+4],1 cvtss2si eax,xmm0 ret End Asm End Function Dim As Single x Dim As ...
by dodicat
Feb 15, 2019 12:31
Forum: General
Topic: Checking if a computer is ON on the network
Replies: 9
Views: 195

Re: Checking if a computer is ON on the network

You want it in FreeBASIC code, then use the freeBASIC website to tell you. (As a bonus you get an IP address) #include "win\winsock2.bi" function GetSiteAddress(stuff as string="www.freebasic.net") as string dim as WSADATA _wsadate dim as in_addr addr dim as hostent ptr res dim a...

Go to advanced search