decimal to binary

Expand Post »

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..

Similar Threads

Help With Decimal to Binary conversion in IT Professionals' Lounge
Converting Decimal Value to Binary (MIPS) in Assembly
decimal to binary conversion in C++
Convert decimal to binary and with base the 8 in C
decimal to binary conversion in C++

sunderthomas

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

3 posts
since Mar 2009

Permalink

Jun 10th, 2009

Re: decimal to binary

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

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

Last edited by selvaganapathy; Jun 10th, 2009 at 2:00 pm.

selvaganapathy

Reputation Points: 44

Solved Threads: 101

Posting Pro

Offline

547 posts
since Feb 2008

Permalink

Jun 15th, 2009

Re: decimal to binary

thanks you prob solved...

sunderthomas

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

3 posts
since Mar 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Deleting Record from Listbox and Sorting a list box

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Listview issue

DaniWeb Message

Cancel Changes

User Name
Password