Operator Shr (Shift Right)
Shifts the bits of a numeric expression to the right
Declare Operator Shr ( ByRef lhs As Integer, ByRef rhs As Integer ) As Integer
Declare Operator Shr ( ByRef lhs As UInteger, ByRef rhs As UInteger ) As UInteger
Declare Operator Shr ( ByRef lhs As LongInt, ByRef rhs As LongInt ) As LongInt
Declare Operator Shr ( ByRef lhs As ULongInt, ByRef rhs As ULongInt ) As ULongInt
result = lhs Shr rhs
lhs
Returns the result of lhs being shifted right rhs number of times.
Operator Shr (Shift right) shifts all of the bits in the left-hand side expression (lhs) right a number of times specified by the right-hand side expression (rhs). This has the effect of dividing lhs by two for each shift. For example, "&b0101 Shr 1" returns the binary number &b010, and "5 Shr 1" returns 2.
If the left-hand side expression is signed, the sign bit is copied in the newly created bits on the left after the shift.
Neither of the operands are modified in any way.
This operator can be overloaded for user-defined types.
Output:
Syntax
Declare Operator Shr ( ByRef lhs As Integer, ByRef rhs As Integer ) As Integer
Declare Operator Shr ( ByRef lhs As UInteger, ByRef rhs As UInteger ) As UInteger
Declare Operator Shr ( ByRef lhs As LongInt, ByRef rhs As LongInt ) As LongInt
Declare Operator Shr ( ByRef lhs As ULongInt, ByRef rhs As ULongInt ) As ULongInt
Usage
result = lhs Shr rhs
Parameters
lhs
The left-hand side expression.
rhsThe right-hand side shift expression.
Return Value
Returns the result of lhs being shifted right rhs number of times.
Description
Operator Shr (Shift right) shifts all of the bits in the left-hand side expression (lhs) right a number of times specified by the right-hand side expression (rhs). This has the effect of dividing lhs by two for each shift. For example, "&b0101 Shr 1" returns the binary number &b010, and "5 Shr 1" returns 2.
If the left-hand side expression is signed, the sign bit is copied in the newly created bits on the left after the shift.
Neither of the operands are modified in any way.
This operator can be overloaded for user-defined types.
Example
'Halve a number
For i As Integer = 0 To 10
Print 1000 Shr i, Bin(1000 Shr i, 16)
Next i
For i As Integer = 0 To 10
Print 1000 Shr i, Bin(1000 Shr i, 16)
Next i
Output:
1000 0000001111101000 500 0000000111110100 250 0000000011111010 125 0000000001111101 62 0000000000111110 31 0000000000011111 15 0000000000001111 7 0000000000000111 3 0000000000000011 1 0000000000000001 0 0000000000000000
Dialect Differences
- Not available in the -lang qb dialect unless referenced with the alias __Shr.
Differences from QB
- New to FreeBASIC
See also
