Binary To Decimal

[jimmy]

Hi
How do you convert 7bit binary to decimal in QBASIC?
Thanks in advance.

[Harry Potter]

Follow these steps:

1. Set the output number to 0 and variable A to 1.
2. Get the right-most digit of input.
3. If it is 1, add A to the output.
4. Multiply A by 2 and shift right input one bit.
5. If input<>0, go to step 2.
6. Return output.

[burger2227]

The following routine will work for up to 15 binary places:

Code: Select all

SUB Bin2Dec
COLOR 14: LOCATE 2, 30: PRINT "Binary to Decimal"
COLOR 10: LOCATE 5, 20: PRINT "Enter a binary number (1's or 0's):"

DO: Bin$ = INKEY$ 'string number entry 1 or 0 with backspace
  IF Bin$ = "1" OR Bin$ = "0" THEN Binary$ = Binary$ + Bin$
  L = LEN(Binary$)
  IF L > 0 AND Bin$ = CHR$(8) THEN Binary$ = MID$(Binary$, 1, L - 1)
  COLOR 14: LOCATE 5, 57: PRINT Binary$; " "
LOOP UNTIL L > 0 AND Bin$ = CHR$(13) 'enter quits 

FOR i = 0 TO L - 1
     place = VAL(MID$(Binary$, L - i, 1))
     dec = place * 2 ^ i
     Decimal = Decimal + dec
NEXT
COLOR 11: LOCATE 10, 30: PRINT "Decimal number ="; Decimal

END SUB

[MystikShadows]

nice piece of code ted. works as expected

[jimmy]

Thanks heaps. Works really well.

[burger2227]

You're welcome. I like to use INKEY$ loops better than INPUT. You can filter out bad entries better.

Ted

PS: Thanks Myst.

[jimmy]

Also, how would you split binary up into 7 to convert it?

[burger2227]

What do you mean? Please explain...........convert it to what?

[MystikShadows]

I think he wants to know more details about how the second loop in your code work.

[kidingwithlaura]

Hello,

I am not a programmer. I was just searching for a binary to decimal converter tool and landed here. Although here is not tool and I found one resource as well but just want to thank you all coders for making our lives easy by creating such useful tools.

Laura

[burger2227]

Come back if you need more help.