Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Bit manipulation
- Thread starter brassy
- Start date
Guest_imported
New member
- Jan 1, 1970
- 0
DEFINT A-Z
x = 8
y = shr(x,3)
if y<>1 then print "shr failed"
z = shl(x,2)
if z<>32 then print "shl failed"
END
'shifting bits left
function shl%(x%,howmuch%)
if howmuch%<0 then beep:end
shl% = x% * (2^howmuch%)
end function
'shifting bits to the right
function shr%(x%,howmuch%)
if howmuch%<0 then beep:end
shr% = x% \ (2^howmuch%)
end function
x = 8
y = shr(x,3)
if y<>1 then print "shr failed"
z = shl(x,2)
if z<>32 then print "shl failed"
END
'shifting bits left
function shl%(x%,howmuch%)
if howmuch%<0 then beep:end
shl% = x% * (2^howmuch%)
end function
'shifting bits to the right
function shr%(x%,howmuch%)
if howmuch%<0 then beep:end
shr% = x% \ (2^howmuch%)
end function
- Status