binary typer

[person]

code:

var win := Window.Open ("position:0;0,graphics:650;max") var i : string (1) var num : int loop     getch (i)     num := ord (i)     if num = 1 then         put "0000000", intstr (num, 0, 2), " " ..     elsif num = 2 or num = 3 then         put "000000", intstr (num, 0, 2), " " ..     elsif num >= 4 and num <= 7 then         put "00000", intstr (num, 0, 2), " " ..     elsif num >= 8 and num <= 15 then         put "0000", intstr (num, 0, 2), " " ..     elsif num >= 16 and num <= 31 then         put "000", intstr (num, 0, 2), " " ..     elsif num >= 32 and num <= 63 then         put "00", intstr (num, 0, 2), " " ..     elsif num >= 64 and num <= 127 then         put "0", intstr (num, 0, 2), " " ..     else         put intstr (num, 0, 2), " " ..     end if end loop

[ssr]

ok..
I donno what it actually do but its a nice job.

[person]

1) i actually got an reply

2) it just translates ur keyboard input into binary

[ssr]

oh ok
thats a nice code

[Bacchus]

so does this handy little function i made b4:

code:

fcn binary (x : string (1)) : string     var ordinal : int := ord (x)     var done : int := 0     var done2 : string := ""     for i : 0 .. 7         if ordinal - (128 / (2 ** i)) >= 0 then             done += round ((10000000 / (10 ** i)))             ordinal -= round ((128 / (2 ** i)))         end if     end for     done2 := intstr (done)     if length (done2) < 8 then         for i : 1 .. 8 - length (done2)             done2 := "0" + done2         end for     end if     result done2 end binary

(ps. this is basis for that binary converter i made b4, and that was b4 i knew of the base thing lol)

[ssr]

yepyep
both are very good code
lol

may be I should make one too...

[dann_west]

Pretty great guy!!!

[Jorbalax]

Quote:

Posted: Mon Mar 07, 2005 8:58 pm

----------------------------------------------------------------

Quote:

Necro posting
Okay people, there has been a lot of useless posting in old topics lately.

Please stop doing this unless you have a good point to add. All of the posts are tagged with a date, and if it's six months old, it's a safe call not to post in it.

Thanks.

Not 6 months, but still...