Question

How to extract N bits from a given position in a number with VB.NET

Answer 1

Imports System
 
Public Class myProgram
    Private Shared Function extract_bits(ByVal number As Integer, ByVal N As Integer, ByVal pos As Integer) As Integer
        Return (((1 << N) - 1) AND (number >> (pos - 1)))
    End Function
 
    Public Shared Sub Main()
        Dim number As Integer = 441
        Dim N As Integer = 6
        Dim pos As Integer = 5
         
        Console.WriteLine(Convert.ToString(number, 2).PadLeft(16, "0"c))
         
        Dim extracted_bits As Integer = extract_bits(number, N, pos)
         
        Console.WriteLine(Convert.ToString(extracted_bits, 2).PadLeft(16, "0"c))
    End Sub
End Class
 
 
 
' run:
'
' 0000000110111001
' 0000000000011011
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class myProgram
    Private Shared Function extract_bits(ByVal number As Integer, ByVal N As Integer, ByVal pos As Integer) As Integer
		Return (CInt(2 ^ N - 1) And (number >> (pos - 1)))
    End Function

    Public Shared Sub Main()
        Dim number As Integer = 441
        Dim N As Integer = 6
        Dim pos As Integer = 5
		
        Console.WriteLine(Convert.ToString(number, 2).PadLeft(16, "0"c))
		
        Dim extracted_bits As Integer = extract_bits(number, N, pos)
		
        Console.WriteLine(Convert.ToString(extracted_bits, 2).PadLeft(16, "0"c))
    End Sub
End Class



' run:
'
' 0000000110111001
' 0000000000011011
'

 

70+ SQL courses for beginners and professionals