2 tals systemet

Prøv denne her:

<%
Function ToTal(tal)
ToTal=tal&tal
End Function


Response.Write ToTal(10)
%>

/LP

Response.Write ToTal(10)
kunne også være:
Response.Write ToTal(rs("dit_tal"))

lp, hvis man kalder din rutine med

response.write total(8)

for man så ikke bare 88 tilbage ?

Det er vist ikke det grenz er ude efter, men det binære system han mener:

00001010 binært er 10 decimalt.

jamen det kan jeg sgu ikke se han skriver noget som helst om nogen som helst steder, han beder om at få returneret værdien af et tal 2 gange?????

Jeg ved ikke om der findes en funktion til at lave decimaltal om til binære tal, og hvis der gør arbejder den formentligt kun med 8 eller max 16 bit.

Ellers er det at lave en funktion hvor man har 8, 16 eller 32 bytes i en streng man sætter til 0-er, og derefter hhv. tester på om taller er større end en værdi, og hvis den er så sætter den tilsvarende byte til 1, og derefter trækker værdien fra tallet.

eks.

if tal > 128 then byte-8 = 1
tal = tal - 128
if tal > 64 then byte-7 = 1
tal = tal - 64
o.s.v

grenz>> gider du ikke lade være med at spilde min tid næste gang, ved at specificere dit spørgsmål lidt bedre.......

/LP

Jeg synes lige at jeg ville vise hvordan jeg ville gøre. Det sparer en del copy/paste kode. Alle de bit du kunne ønske dig!

Function Bin(tal)
str=""
while tal > 0
    if (tal mod 2) = 1 then
        str= "1"+str
        tal=tal-1   
    else str = "0"+str
    end if
    tal=tal/2
Wend
Bin = str
end Function

>>runesoft

du skulle vel ikke have den der kan omregne dec->oktan  /  dec->hex?


hehe står lige og mangler den, min skod TI-83 kan ikke omregne (synes det er for dårligt hehe)

127144146281 ->  Hvad, kan TI-83 ikke det? (alle de lommeregnere jeg kender kan det).

Jeg kigger lige på det senere og vender tilbage...

Her er lidt til ære for 127144146281

princippet til okt og hex er ligesom det til binære tal. man knækker bit af bagfra. Ved binære tal var det en bit af gangen. Ved oct 3 bit og ved hex fire bit af gangen.

funktionen her virker til 8 tals systemet. Ved at ændre 8 til 16 i koden og skifte CStr(rest) ud med et lookup i et array, skulle det ikke være svært at få det til at funke med hex.

Bemærk at funktionen kun virker på positive tal, da man er nødt til at bruge et fast antal bits for at bruge negative tal.

Function oct(tal)
str=""
tal=Round(abs(tal))            'Jeg vil kun beskæftige mig med hele, positive tal.
while tal > 0
    rest=tal mod 8            'nup det mindst betydende (oct)ciffer ud af tal
    if rest <> 0 then
        tal=tal-rest        'fjern rest fra tal
        str = CStr(rest) + str    'tilføj tal til streng
    else str="0"+str        'sørg for at også 0 bliver skrevet i strengen
    end if
    tal=tal/8                'right shift tal tre pladser
Wend
oct = str
end Function


Enjoy...   

-runesoft

Faktisk skal der bare stå det tal system du vil have på 8-tallets plads. Så kan du lave det om til et hvilket som helst talsystem.

tror jeg...?

Lyder spændene kigger på det, det må da være muligt at konvertere det til det BASIC TI'en kan

Jeg faldt lige over et Javascript som kan gøre dette.....det er jo Open Source, så måske der kan hentes inspiration til hvordan det kan kodes i asp.....

http://javascripts.earthweb.com/openscript.cfm?OpenScript=28387

Det kunne også være denn var nok?

/LP