Pete's QBASIC Site

Re: Binary To Decimal

2016-03-01T16:08:40-05:00

Come back if you need more help.

Statistics: Posted by burger2227 — Tue Mar 01, 2016 4:08 pm

Re: Binary To Decimal

2016-03-01T10:46:08-05:00

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

Statistics: Posted by kidingwithlaura — Tue Mar 01, 2016 10:46 am

Binary To Decimal

2009-06-06T18:20:42-05:00

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

Statistics: Posted by MystikShadows — Sat Jun 06, 2009 6:20 pm

Binary To Decimal

2009-06-06T22:14:37-05:00

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

Statistics: Posted by burger2227 — Sat Jun 06, 2009 4:54 pm

Binary To Decimal

2009-06-06T00:35:55-05:00

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

Statistics: Posted by jimmy — Sat Jun 06, 2009 12:35 am

Binary To Decimal

2009-06-05T23:11:29-05:00

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

Ted

PS: Thanks Myst.

Statistics: Posted by burger2227 — Fri Jun 05, 2009 11:11 pm

Binary To Decimal

2009-06-05T20:48:17-05:00

Thanks heaps. Works really well.

Statistics: Posted by jimmy — Fri Jun 05, 2009 8:48 pm

Binary To Decimal

2009-06-05T20:03:59-05:00

nice piece of code ted. works as expected

Statistics: Posted by MystikShadows — Fri Jun 05, 2009 8:03 pm

Binary To Decimal

2009-06-05T20:47:37-05:00

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

Code:

SUB Bin2DecCOLOR 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 + decNEXTCOLOR 11: LOCATE 10, 30: PRINT "Decimal number ="; DecimalEND SUB

Statistics: Posted by burger2227 — Fri Jun 05, 2009 12:45 pm

Binary To Decimal

2009-06-05T11:42:22-05:00

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.

Statistics: Posted by Harry Potter — Fri Jun 05, 2009 11:42 am

Binary To Decimal

2009-06-05T08:03:31-05:00

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

Statistics: Posted by jimmy — Fri Jun 05, 2009 8:03 am