Search found 4588 matches

by albert
Apr 16, 2019 1:51
Forum: General
Topic: Squares
Replies: 6360
Views: 362790

Re: Squares

@Dodicat

If i use valulng(64) it doessn't compress..
if i use val(64) it compresses...but in some places , it errors..

I'm , trying to figure out , how to correct the errors...
by albert
Apr 15, 2019 17:12
Forum: General
Topic: Squares
Replies: 6360
Views: 362790

Re: Squares

@Dodicat Can you figure out the problem?? screen 19 do dim as string binari="" for a as longint = 0 to 100 binari+=str(int(rnd*2)) next dim as string ascii="" for a as longint = 1 to len(binari) step 64 ascii+=mklongint(val("&B"+mid(binari,a,64))) next dim as string...
by albert
Apr 08, 2019 1:47
Forum: General
Topic: Squares
Replies: 6360
Views: 362790

Re: Squares

@Dodicat I ran some tests on my compressor... It was going a few iterations , expanding , and then compressing by several percent. Then it would expand a couple iterations and then compress. So i compared the pre-compression with the de-compression.. And everywhere it compressed , the de-compression...
by albert
Apr 08, 2019 1:37
Forum: General
Topic: Endian
Replies: 14
Views: 488

Re: Endian

Since the majority of computers on the planet , use AMD or Intel processors..
You would think the coders would make the *ptr to be the endian style of the majority..

Are the coders coding for Sun Sparcs?
by albert
Apr 07, 2019 1:34
Forum: General
Topic: Endian
Replies: 14
Views: 488

Endian

What computers are big and little endian??? I have an AMD processor , and if i do a , var = bin( *usp ) ( ushort pointer ) , i have to flop every other byte , after converting them back to chr's Does Intel have the same output, where you have to flop every other byte? If i do var+= right( string( 16...
by albert
Apr 07, 2019 1:12
Forum: General
Topic: Squares
Replies: 6360
Views: 362790

Re: Squares

I got it figured out.. You have to redim the static array , inside the function.. Declare Function comp( s as string ) as string screen 19 do dim as string s = "123456" dim as string ans = comp(s) print ans sleep loop until inkey = chr(27) function comp( s as string) as string static as ub...
by albert
Apr 07, 2019 0:58
Forum: General
Topic: Squares
Replies: 6360
Views: 362790

Re: Squares

@Dodicat Thanks , I'll have a look-see... How do you create a static array , inside a function , if you don't know how many elements that will be in the array??? Declare Function comp( s as string ) as string screen 19 do dim as string s = "123456" dim as string ans = comp(s) print ans sle...
by albert
Apr 05, 2019 15:45
Forum: General
Topic: Squares
Replies: 6360
Views: 362790

Re: Squares

@Dodicat As it's bringing in the files of the folder , i need to run each of the files through a compression loop.. And as it decompresses , i need to run the files through a decompression loop. Can you put in code to have a Declare Function compressor_loop( s as string ) as string Declare Function ...
by albert
Apr 05, 2019 2:14
Forum: General
Topic: Squares
Replies: 6360
Views: 362790

Re: Squares

@Dodicat I just need a place in your code , to loop , compressing and decompressing each file.. My compression algorythym , needs like 10 to 70 loops to compress and decompress. Can you make it so , it can loop for each file ( in an out ) .. My algoriyhym , can compress random data , to 50+% to 90+%...
by albert
Apr 05, 2019 0:59
Forum: General
Topic: Squares
Replies: 6360
Views: 362790

Re: Squares

@Dodicat I need to be able to compress a folder.. But , i need to bring each file , into a looping data compressor , for 10 to ?? iterations , before it goes out to the zip folder.. Also a file ; needs to be greater than 5K to compress. Can you put in code to allow for a file to be , repetitively co...
by albert
Apr 04, 2019 19:38
Forum: General
Topic: Squares
Replies: 6360
Views: 362790

Re: Squares

@Dodicat

I tried a binary dictionary and it worked...

How do you compress a folder with your Zip code??
by albert
Apr 04, 2019 2:43
Forum: General
Topic: Squares
Replies: 6360
Views: 362790

Re: Squares

@Dodicat Found a problem with my compressing... If you build a dictionary of bytes in the file.. And bubble sort the dictionary, so the most prolific bytes are first. If you then redim preserve , the dictionary to 127 chars. And then search the file for those 127 bytes and replace them with a 0 to 1...
by albert
Apr 04, 2019 1:03
Forum: General
Topic: Squares
Replies: 6360
Views: 362790

Re: Squares

@Dodicat

Figured the dilema out...Now to work on a de-compressor....

Get ready to be a billionaire.....
by albert
Apr 04, 2019 0:40
Forum: General
Topic: Squares
Replies: 6360
Views: 362790

Re: Squares

@Dodicat

I found an error in my compression attempt.
by albert
Apr 04, 2019 0:21
Forum: General
Topic: Squares
Replies: 6360
Views: 362790

Re: Squares

@Dodicat I found a way to compress "random data" , str+= chr( int( rnd*256 ) ) After 40 loops it compresses down to 54% I still need to write a de-compressor for it. If the string has fewer than a certain number of repeats , it just leaves it alone and doesn't try to alter it. So the dicti...

Go to advanced search