Decimal / Binary converter

[Jaze]

Code: QB64: [Select]

1. CONST TRUE = 1
2. CONST FALSE = 0
3. DIM decimal AS LONG
4. DIM binaryNum$
5.  
6. CALL Menu
7.  
8. SUB Menu
9.     DO
10.         DO
11.             COLOR 10, 0
12.             PRINT: PRINT: PRINT
13.             PRINT "1 - Decimal to binary"
14.  
15.             PRINT "2 - Binary to decimal"
16.             which$ = INPUT$(1)
17.         LOOP UNTIL which$ = "1" OR which$ = "2"
18.         IF which$ = "1" THEN
19.             CALL DtoB
20.         ELSE
21.             CALL BtoD
22.         END IF
23.     LOOP
24. END SUB
25.  
26. SUB BtoD
27.     PRINT: PRINT: PRINT
28.     INPUT "Type in the binary number: ", binaryNumber$
29.     power = 0
30.     FOR digit = LEN(binaryNumber$) TO 1 STEP -1
31.         onOff = VAL(MID$(binaryNumber$, digit, 1))
32.         decimal = decimal + (onOff * (2 ^ power))
33.         power = power + 1
34.     NEXT digit
35.     PRINT
36.     PRINT
37.     PRINT "Decimal equivalent is " + S$(decimal)
38.     PRINT
39.     PRINT
40.     PRINT
41.     PRINT "Press any key for another conversion or [ESC] to end.": CALL P(TRUE)
42. END SUB
43.  
44. SUB DtoB
45.     PRINT: PRINT: PRINT
46.     INPUT "Type in a decimal number: ", decimal
47.     binaryString$ = ""
48.     DO
49.         q = INT(decimal / 2): r = decimal MOD 2
50.         binaryString$ = S$(r) + binaryString$
51.         decimal = q
52.     LOOP UNTIL q = 0
53.     PRINT binaryString$
54.     PRINT
55.     PRINT
56.     PRINT
57.     PRINT "Press any key for another conversion or [ESC] to end.": CALL P(TRUE)
58. END SUB
59.  
60. SUB P (escOrNot)
61.     pause$ = INPUT$(1)
62.     IF pause$ = CHR$(27) AND escOrNot = TRUE THEN END
63. END SUB
64.  
65. FUNCTION S$ (number)
66.     rtn$ = ""
67.     rtn$ = STR$(number)
68.     rtn$ = LTRIM$(rtn$)
69.     S$ = rtn$
70. END FUNCTION
71.  

[TempodiBasic]

Hi Jaze
fine tool!
What do you think about an Inform version?

[johnno56]

Cool converter. Nicely done!

[bplus]

For tickles compare: https://www.qb64.org/forum/index.php?topic=1602.0

[johnno56]

bplus: Point well made... Counterpoint. Will BIN$() teach the user 'how' it is converted? Nothing wrong with using the command but knowing how it is done is beneficial if one is using a 'basic' that does not utilize the BIN$() function...

[bplus]

bplus: Point well made... Counterpoint. Will BIN$() teach the user 'how' it is converted? Nothing wrong with using the command but knowing how it is done is beneficial if one is using a 'basic' that does not utilize the BIN$() function...

Code: QB64: [Select]

1.     DIM temp~&&, charPos%, highPos%
2.     '--- init ---
3.     temp~&& = value&&
4.     BIN$ = STRING$(64, "0"): charPos% = 64: highPos% = 64  
5. 'BIN$ is 0's with 1's to be inserted by way of MID$
6.   DO
7.  ' starting left and working right insert 1's where AND 1 is True then move place variables down 1 to right.
8.         IF (temp~&& AND 1) THEN MID$(BIN$, charPos%, 1) = "1": highPos% = charPos%
9.         charPos% = charPos% - 1: temp~&& = temp~&& \ 2 ' << tracking positions
10.     LOOP UNTIL temp~&& = 0
11.  

It's all Basic even those scary looking suffix :)

The adjustment for negative numbers is honestly over my head :( but this allows negative number conversions :).

Code: QB64: [Select]

1.     IF value&& < 0 THEN
2.         IF -value&& < &H0080000000~&& THEN highPos% = 33
3.         IF -value&& < &H0000008000~&& THEN highPos% = 49
4.         IF -value&& < &H0000000080~&& THEN highPos% = 57
5.     END IF

Do you have to know how a TV works before you use it?

The final line cuts BIN$ down to size before returning BIN$ by function name.

Code: QB64: [Select]

1. BIN$ = MID$(BIN$, highPos%)

[johnno56]

CRT, Plasma, LCD or OLED? Nah, kidding! Just curious as to how some commands work... lol

[bplus]

You can make some cool patterns by converting fractions (same denominator) to binary and letting 0 make a white square and 1 make a black square ( or for Johnno56 a Blue square ). eg 1/15, 2/15, 3/15... 14/15 stacked down the page.

[TempodiBasic]

@bplus
please Screenshot!

[bplus]

@bplus
please Screenshot!

  [ You are not allowed to view this attachment ]  

Also makes for cool optical illusion, looks like non parallel lines (specially last set) :)

[Cobalt]

Something tells me this work would all be a lot easier if you guys used the BIT routines; _SETBIT and _READBIT.

Just saying.

[bplus]

Something tells me this work would all be a lot easier if you guys used the BIT routines; _SETBIT and _READBIT.

Just saying.

Yeah? so show us 27/101 in Binary :)

[bplus]

This is start of what I am getting:
.0100010001101111100001100101011000101101100111111011

What are you guys getting?

[Bert22306]

For 27/101, and if I set the value of the MSbit to 1, I get:

0010 0010 0011 0111 1100 0011 0010 1011 0001 0110 1100 1111 11011

which are then followed by binary zeroes. Which implies to me that I've reached the limit of the accuracy of _Float.

This is where I compute the binary numbers, bit by bit. Also, my super duper program also gives the hex equivalent.

hex 2237C32B16CFD800

[Cobalt]

Yeah? so show us 27/101 in Binary :)

you do realize that binary only deals in 1 and 0 right. 27/101 is not a 1 or a 0