Question

How to convert decimal to binary in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Sub Main(ByVal args As String())
        Dim _decimal As Integer = 23
        Dim binary As Integer() = New Integer(7) {}
        Dim bi As Integer = 0

        While _decimal > 0
            binary(bi) = _decimal Mod 2
			bi = bi + 1
            _decimal = _decimal / 2
			
        End While

		For i As Integer = binary.Length - 1 To 0 step -1
            Console.Write(binary(i))
        Next
    End Sub
End Class





' run:
'
' 00101001
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Program
    Public Shared Sub Main(ByVal args As String())
        Dim _decimal As Integer = 23
		
		Console.WriteLine(Convert.ToString(_decimal, 2))
		
		Console.WriteLine(Convert.ToString(_decimal, 2).PadLeft(8, "0"c))
    End Sub
End Class





' run:
'
' 10111
' 00010111
'

 

70+ SQL courses for beginners and professionals