ifix的字的拆位程序 点击：619 | 回复：2
发表于：2008-08-06 15:14:10
楼主
Public Function GET_BIT(DecimalValue As Long, bitN As Long) As Long '取位
Dim land As Long
land = 2 ^ bitN
GET_BIT = (DecimalValue And land) / land
End Function
Public Function SET_BIT(DecimalValue As Long, bitN As Long) As Long '置位
Dim land As Long
land = 2 ^ bitN
If GET_BIT(DecimalValue, bitN) = 0 Then
SET_BIT = DecimalValue + land
Else: SET_BIT = DecimalValue
End If
End Function
Public Function RESET_BIT(DecimalValue As Long, bitN As Long) As Long '复位
Dim land As Long
land = 2 ^ bitN
If GET_BIT(DecimalValue, bitN) = 1 Then
RESET_BIT = DecimalValue - land
Else: RESET_BIT = DecimalValue
End If
End Function
Public Function CHANGE_BIT(DecimalValue As Long, bitN As Long) As Long '复位
Dim land As Long
land = 2 ^ bitN
If GET_BIT(DecimalValue, bitN) = 1 Then
CHANGE_BIT = DecimalValue - land
Else: RESET_BIT = DecimalValue + land
End If
End Function
Dim land As Long
land = 2 ^ bitN
GET_BIT = (DecimalValue And land) / land
End Function
Public Function SET_BIT(DecimalValue As Long, bitN As Long) As Long '置位
Dim land As Long
land = 2 ^ bitN
If GET_BIT(DecimalValue, bitN) = 0 Then
SET_BIT = DecimalValue + land
Else: SET_BIT = DecimalValue
End If
End Function
Public Function RESET_BIT(DecimalValue As Long, bitN As Long) As Long '复位
Dim land As Long
land = 2 ^ bitN
If GET_BIT(DecimalValue, bitN) = 1 Then
RESET_BIT = DecimalValue - land
Else: RESET_BIT = DecimalValue
End If
End Function
Public Function CHANGE_BIT(DecimalValue As Long, bitN As Long) As Long '复位
Dim land As Long
land = 2 ^ bitN
If GET_BIT(DecimalValue, bitN) = 1 Then
CHANGE_BIT = DecimalValue - land
Else: RESET_BIT = DecimalValue + land
End If
End Function
发表于：2008-08-06 15:14:46
1楼
Public Function GET_BIT(DecimalValue As Long, bitN As Long) As Long '取位
Dim land As Long
land = 2 ^ bitN
GET_BIT = (DecimalValue And land) / land
End Function
Public Function SET_BIT(DecimalValue As Long, bitN As Long) As Long '置位
Dim land As Long
land = 2 ^ bitN
If GET_BIT(DecimalValue, bitN) = 0 Then
SET_BIT = DecimalValue + land
Else: SET_BIT = DecimalValue
End If
End Function
Public Function RESET_BIT(DecimalValue As Long, bitN As Long) As Long '复位
Dim land As Long
land = 2 ^ bitN
If GET_BIT(DecimalValue, bitN) = 1 Then
RESET_BIT = DecimalValue - land
Else: RESET_BIT = DecimalValue
End If
End Function
Public Function CHANGE_BIT(DecimalValue As Long, bitN As Long) As Long '换位
Dim land As Long
land = 2 ^ bitN
If GET_BIT(DecimalValue, bitN) = 1 Then
CHANGE_BIT = DecimalValue - land
Else: RESET_BIT = DecimalValue + land
End If
End Function
Dim land As Long
land = 2 ^ bitN
GET_BIT = (DecimalValue And land) / land
End Function
Public Function SET_BIT(DecimalValue As Long, bitN As Long) As Long '置位
Dim land As Long
land = 2 ^ bitN
If GET_BIT(DecimalValue, bitN) = 0 Then
SET_BIT = DecimalValue + land
Else: SET_BIT = DecimalValue
End If
End Function
Public Function RESET_BIT(DecimalValue As Long, bitN As Long) As Long '复位
Dim land As Long
land = 2 ^ bitN
If GET_BIT(DecimalValue, bitN) = 1 Then
RESET_BIT = DecimalValue - land
Else: RESET_BIT = DecimalValue
End If
End Function
Public Function CHANGE_BIT(DecimalValue As Long, bitN As Long) As Long '换位
Dim land As Long
land = 2 ^ bitN
If GET_BIT(DecimalValue, bitN) = 1 Then
CHANGE_BIT = DecimalValue - land
Else: RESET_BIT = DecimalValue + land
End If
End Function
热门招聘
相关主题
- VB实现modbus通信
[4052] - 三菱PLC系统的故障排雷技巧[8333]
- TRACE MODE推出WinCE.Net环境...[4365]
- 学雷锋免费提供三菱编程软件...[10454]
- 谈一谈电力组态软件.[5398]
- 实时数据库与组态软件、DCS系...[2729]
- 请教上位机和下位机英文怎么...[2433]
- 三维组态，啥也不说，上图分享...[13602]
- 创联天工推出天工组态5.5通用...[3166]
- 输煤控制系统[3060]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
