整数位移操作模块(By:家新de粽子)

wszjljx · 发表于 2011-7-27 14:08:42

本帖最后由 wszjljx 于 2011-7-27 14:09 编辑

本模块可以实现整数(Long)位移就是C中的>>和<<运算符

模块作者:家新de粽子
制作时间:2011-07-26

使用方法:
1.向左位移:(C中的<<)
Number2=LeftBitMove(Number1,MoveValue)
Number1:Long类型,要位移的整数
MoveValue:Long类型,向左位移的位数(范围1-31,小于0则返回原数)
返回值:位移后的结果

2.向右位移:(C中的>>)
Number2=RightBitMove(Number1,MoveValue)
Number1:Long类型,要位移的整数
MoveValue:Long类型,向右位移的位数(范围1-31,小于0则返回原数)
返回值:位移后的结果

BitMove_Module.zip (978 Bytes, 下载次数: 5368)

马大哈 · 发表于 2011-7-28 19:01:18

这些功能确实很实用,感谢分享{:soso_e113:}

wszjljx · 发表于 2011-7-29 14:51:21

本帖最后由 wszjljx 于 2011-7-29 14:52 编辑

本来做这个是为了做千千静听歌词服务器的Code计算
网上说VB的移位就是/2或*2
但我尝试了下首位(符号位)不参与移位,经常溢出
于是就做了这个模块~~~:lol
函数的功能完全参照C和易语言来做...
并经过多次测试确定无误...

Tesla.Angela · 发表于 2011-8-2 00:30:13

是原创的吗？
如果是的话，给与加精处理。
精华达到两篇后，给与加入核心会员。

wszjljx · 发表于 2011-9-19 20:22:37

Tesla.Angela 发表于 2011-8-2 00:30
是原创的吗？
如果是的话，给与加精处理。
精华达到两篇后，给与加入核心会员。

本人原创的上次为了搞千千静听服务器看到VB里没位移的功能所以就自己做了个...
除了这里没另外任何地方可以搜索到此代码....

Tesla.Angela · 发表于 2011-9-20 21:46:51

wszjljx 发表于 2011-9-19 20:22
本人原创的上次为了搞千千静听服务器看到VB里没位移的功能所以就自己做了个...
除了这里没另外任何地 ...

很好，加精。

拓海狂命 · 发表于 2011-9-20 23:53:36

支持一下,功能实用哈

帐号		自动登录	找回密码
密码			加入我们

整数位移操作模块(By:家新de粽子)

评分

论坛牛人

贡献奖

关注奖

最佳版主

进步奖

人气王

疯狂作品奖

精英奖

赞助论坛勋章

乐于助人勋章