DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

decimal to binary

•

Join Date: Mar 2009

Posts: 3

Reputation: sunderthomas is an unknown quantity at this point

Solved Threads: 0

sunderthomas sunderthomas is offline

Offline

Newbie Poster

decimal to binary

Jun 9th, 2009

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Dim a As Integer, i As Integer, b(20) As Integer, c As Integer, d As Integer
 
        i = 0
        a = TextBox1.Text
        While a > 1
            b(i) = a Mod 2
            a = a / 2
            i = i + 1
        End While
 
  b(i) = a
 
        While i >= 0
            c = c & b(i)
            i = i - 1
        End While
        Label5.Text = c
        Label5.Visible = True
Dim a As Integer, i As Integer, b(20) As Integer, c As Integer, d As Integer

        i = 0
        a = TextBox1.Text
        While a > 1
            b(i) = a Mod 2
            a = a / 2
            i = i + 1
        End While
        
  b(i) = a

        While i >= 0
            c = c & b(i)
            i = i - 1
        End While
        Label5.Text = c
        Label5.Visible = True

hey guys i wrote the above prog to convert decimal to binary the result i get is wrong for the last digit..

eg when converting 100 i get 10100100 instead of 1100100

thanks in advance..

•

Join Date: Feb 2008

Posts: 509

Reputation: selvaganapathy is an unknown quantity at this point

Solved Threads: 88

selvaganapathy selvaganapathy is offline

Offline

Posting Pro

Re: decimal to binary

Jun 10th, 2009

HI

Use \ operator instead of / operator, because / operator in vb gives floating result and \ operator gives integer result. so floating value will be rounded to integer.

For example

 Help with Code Tags 
 VB Syntax (Toggle Plain Text) 
   Dim a as Integer
 
   a = 3 / 2      
   MsgBox a     ' Gives 2
 
   a = 3 \ 2
   MsgBox a     ' Gives 1
   Dim a as Integer

   a = 3 / 2      
   MsgBox a     ' Gives 2

   a = 3 \ 2
   MsgBox a     ' Gives 1

3 / 2 gives 1.5 and it will be converted to 2