Question

How to convert octal to binary in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Sub Main()
        Dim decimal_number As Integer = 0, oct As Integer = 23
        Dim _base As Integer = 1, tmp As Integer = oct

        While tmp > 0
            Dim last_digit As Integer = tmp Mod 10
			tmp = tmp / 10
            decimal_number += last_digit * _base
			_base = _base * 8
        End While

        Dim mulby10 As Integer = 1, binary_number As Integer = 0
		Dim i As Integer = decimal_number

    	While i > 0
			binary_number = binary_number + (decimal_number Mod 2) * mulby10
            mulby10 = mulby10 * 10
            decimal_number = decimal_number \ 2
			i = i \ 2
    	End While

        Console.Write(binary_number)
    End Sub
End Class





' run:
'
' 10011
'

 

70+ SQL courses for beginners and professionals