All my life waiting for ‘&B’ and now is comming :-)

Imports System.Text

Module Module1

    Private encoding As New UTF8Encoding

 

    Sub Main()

        ‘int 64

        Dim my_nibbles = &B0111_0011_0110_1001_0111_0101_0100_1100_0100_1100_0101_0000_0110_0101_0101_0000

       

        Console.WriteLine(“My hex  : “ + Hex(my_nibbles).ToString)

        ‘ byte array

        Dim btes As Byte() = BitConverter.GetBytes(my_nibbles)

        ‘ retrieve string

        Dim myName = encoding.GetString(btes)

        Console.WriteLine(“My name : “ + myName)

 

        Console.ReadLine()

    End Sub
End Module

Regards!,
PepLluis,

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.