Search found 5882 matches

by albert
Sep 10, 2020 21:06
Forum: General
Topic: INSTR()
Replies: 7
Views: 134

INSTR()

If i have a string that starts with a bunch of "0"'s
How do you use INSTR() to find the first non-zero value?
by albert
Sep 10, 2020 18:08
Forum: General
Topic: Data Compression
Replies: 53
Views: 1212

Data Compression

@Dodicat Your "Halfer" makes data compression.. You create the chr() string and then half it down to zero.. Making a binary map of when the div results in .5 or 0 With 8 bytes input the output fraction map = 32 bits.. It requires 32 halfs to divide down to zero.. 32 bits is 4 bytes.. So it...
by albert
Sep 10, 2020 2:16
Forum: General
Topic: Star Wars "Light Saber"
Replies: 15
Views: 291

Re: Star Wars "Light Saber"

@angros47

I said , the lasers would converge at a point away....30 or 40 inch convergence..

So they are not exactly parallel... They come together... so their at an angle to each other..
by albert
Sep 10, 2020 0:24
Forum: General
Topic: Number Trick
Replies: 126
Views: 3174

Re: Number Trick

@Dodicat Hello Dodicat... I modified your Halfer , and got it returning correct chr() outputs... Now i need a "Doubler" to undo the Halfer... Can you work your magic and conjure up a Doubler ??? Here's your modified "Halfer" The point_5 var , holds the 1 or 0 if the end results i...
by albert
Sep 09, 2020 22:48
Forum: General
Topic: Star Wars "Light Saber"
Replies: 15
Views: 291

Re: Star Wars "Light Saber"

Without the telescoping rod at the center..

You couldn't have sword battles.. The lasers would go through each other..

Unless you could somehow magnetize the laser.. Then the magnetic repulsion , would allow for sword battles..
by albert
Sep 09, 2020 22:33
Forum: General
Topic: Star Wars "Light Saber"
Replies: 15
Views: 291

Re: Star Wars "Light Saber"

I wonder what happens when you shine two lasers together , at a point away?? When the two parallel lasers come together , they might diffuse?? So the "Light Saber" might not need a telescoping rod to hold the reflecting end cap.. Maybe , you could just use multiple lasers and beam splitter...
by albert
Sep 09, 2020 19:51
Forum: General
Topic: Star Wars "Light Saber"
Replies: 15
Views: 291

Re: Star Wars "Light Saber"

I wonder if it's possible to create a ring laser crystal , instead of a beam laser crystal.

So when the crystal starts lasing , it lases all around the ring. Creating a ring of laser instead of a beam...

Maybe you could use beam splitters to get the ring laser , instead of mirrors...
by albert
Sep 09, 2020 18:11
Forum: General
Topic: Number Trick
Replies: 126
Views: 3174

Re: Number Trick

@jj2007 I need the "Halfer" and "Doubler" and an "Adder" for my "Averager Multiplier" It's a number manipulation formula , in keeping with this "Number Trick" topic... I discovered a way to multiply.. You take the smaller number and put in on the lef...
by albert
Sep 09, 2020 17:23
Forum: General
Topic: Number Trick
Replies: 126
Views: 3174

Re: Number Trick

@Dodicat Can you take this "Halfer" and make a "Doubler" to reverse it ??? 'Dodicats Halfer... screen 19 Function halfer(fl As String) As String Dim As ubyte main , carry dim as ushort temp Dim As String s = fl Dim As String ans = s For z As Integer = 0 To Len( s ) - 1 temp = ( s...
by albert
Sep 09, 2020 16:41
Forum: General
Topic: Star Wars "Light Saber"
Replies: 15
Views: 291

Re: Star Wars "Light Saber"

No, You have a cap at the top , and the cap has a crystal or mirror that reflects the laser back down to the base.. Then the base has a similar crystal or mirror that reflects the laser back up to the top.. So the laser goes up and down all around the telescoping rod.. So it creates a tube of laser ...
by albert
Sep 09, 2020 0:35
Forum: General
Topic: Star Wars "Light Saber"
Replies: 15
Views: 291

Star Wars "Light Saber"

I came up with an idea for a Star Wars "Light Saber" You have a handle base and then a telescoping rod that comes out of it , with a crystal on it.. So the top crystal has a cover that closes up on the base handle.. You push a rocker switch up or down , to extend and retract the telescopin...
by albert
Sep 08, 2020 22:11
Forum: General
Topic: Number Trick
Replies: 126
Views: 3174

Re: Number Trick

@Dodicat Now i'm back to what i couldn't figure out... How do you handle a string of 255's ??? Since the carry = 5 , then you can't go above 250... How do you get it to return correct on strings of chr( 255 ) ??? 'Dodicats Halfer... screen 19 Function halfer(fl As String) As String Dim As ubyte main...
by albert
Sep 08, 2020 20:02
Forum: General
Topic: Number Trick
Replies: 126
Views: 3174

Halfer

@Dodicat I got it working.... Now it's returning the correct output characters... 'Dodicats Halfer... screen 19 Function halfer(fl As String) As String Dim As Ubyte main , carry , temp Dim As String s = fl Dim As String ans = s For z As Integer = 0 To Len( s ) - 1 If s[ z ] <> 46 Then temp = ( s[ z ...
by albert
Sep 08, 2020 17:44
Forum: General
Topic: Number Trick
Replies: 126
Views: 3174

Re: Number Trick

@Dodicat Never mind... I played with your code and got it working.... How do you modify it , so it doesn't make a fraction at the end??? screen 19 Function halfer(fl As String) As String Dim As Ubyte main,carry,temp Dim As String sign ,s If Instr(fl,".")=0 Then s=fl+".0" Else s=f...
by albert
Sep 07, 2020 23:12
Forum: General
Topic: Number Trick
Replies: 126
Views: 3174

Re: Number Trick

@Dodicat Can you make it so it returns a character string??? As you half , it need to output a chr , instead of a number.. I was confused by the halfing... If you have chr( 255 ) and chr( 255) You half the first chr , you end up with a 127.5 , and you have to add the point 5 to the next chr.. but th...

Go to advanced search