Base 10 to base x convertor

[NOVARSEG]

Got the idea from other post that used the MOD operator.    STxAxTIC

Ok removed some bugs.   might add features later.

Will post a base 10 to hexadecimal (base 16) convertor as well. Got the code working but want to double check it.

It turns out that it is possible to convert anywhere from base 2 to base 16 and maybe above that but base 16 is kinda standard.

Code: QB64: [Select]

1. DIM n AS DOUBLE
2. DIM r AS INTEGER
3. DIM t AS STRING
4. DIM b AS INTEGER
5. DIM m AS DOUBLE
6. _FULLSCREEN
7.  
8.  
9. t = ""
10. PRINT
11.  
12. INPUT "Enter a base 10 number"; m
13. PRINT
14. INPUT "Convert to what base?  2 to 9  "; b
15. n = m
16. IF b <= 1 OR b > 10 THEN PRINT " Can't process": END
17. DO
18.  
19.     r = n MOD b
20.  
21.     t = CHR$(r + 48) + t
22.  
23.     n = n - r
24.     n = n / b
25.     IF n < b THEN
26.         t = CHR$(n + 48) + t
27.         EXIT DO
28.     END IF
29. LOOP
30. PRINT
31. PRINT
32. PRINT "Base 10 number = "; m
33. PRINT
34. PRINT "converted to base"; b; "= "; t
35.  
36.  
37. END
38.  

[NOVARSEG]

Converts base 10 number to any base from 2 to 16

Code: QB64: [Select]

1. DIM n AS DOUBLE
2. DIM r AS INTEGER
3. DIM t AS STRING
4. DIM b AS INTEGER
5. DIM m AS DOUBLE
6. _FULLSCREEN
7.  
8.  
9. t = ""
10. PRINT
11.  
12. INPUT "Enter a base 10 number"; m
13. PRINT
14. INPUT "Convert to what base?  2 to 16 "; b
15. n = m
16. IF b <= 1 OR b > 17 THEN PRINT " Can't process": END
17.  
18.  
19. DO
20.  
21.     r = n MOD b
22.  
23.  
24.     IF r <= 9 THEN
25.         t = CHR$(r + 48) + t
26.     END IF
27.     IF r > 9 THEN
28.         t = CHR$(r + 55) + t
29.     END IF
30.  
31.     n = n - r
32.     n = n / b
33.     IF n < b THEN
34.  
35.         IF n <= 9 THEN
36.             t = CHR$(n + 48) + t
37.         END IF
38.         IF n > 9 THEN
39.             t = CHR$(n + 55) + t
40.         END IF
41.  
42.         EXIT DO
43.     END IF
44.  
45. LOOP
46. PRINT
47. PRINT
48. PRINT "Base 10 number = "; m
49. PRINT
50. PRINT "converted to base"; b; "= "; t
51.  
52.  
53. END
54.  

[bplus]

Have you considered extending this through decimals?

I have tried binary and drew some interesting designs when I changed 0, 1's to black and white blocks then stacked (0 to m-1) / m (rational numbers) on top of each other.

1/m  = black and white boxes like a bar code
2/m  = ...
3/m
.
.
.
m-1/m

 

[NOVARSEG]

Some minor bugs
 wrong variable type  - fixed

Can now convert from base 2 to base 36

Code: QB64: [Select]

1. DIM n AS _UNSIGNED LONG
2. DIM r AS INTEGER
3. DIM t AS STRING
4. DIM b AS INTEGER
5. DIM m AS _UNSIGNED LONG
6. _FULLSCREEN
7.  
8.  
9. t = ""
10. PRINT
11.  
12. INPUT "Enter a base 10 number"; m
13. PRINT
14. INPUT "Convert to what base?  2 to 36 "; b
15. n = m
16. IF b <= 1 OR b > 36 THEN PRINT " Can't process, base out of range": END
17.  
18.  
19. DO
20.  
21.     r = n MOD b '
22.     IF r <= 9 THEN
23.         t = CHR$(r + 48) + t
24.     END IF
25.     IF r > 9 THEN
26.         t = CHR$(r + 55) + t
27.     END IF
28.  
29.     n = n - r
30.     n = n / b
31.     IF n < b THEN
32.  
33.         IF n <= 9 THEN
34.             t = CHR$(n + 48) + t
35.         END IF
36.         IF n > 9 THEN
37.             t = CHR$(n + 55) + t
38.         END IF
39.  
40.         EXIT DO
41.     END IF
42.  
43. LOOP
44. PRINT
45. PRINT
46. PRINT "Base 10 number = "; m
47. PRINT
48. PRINT "converted to base"; b; "= "; t
49.  
50.  
51. END
52.  

[STxAxTIC]

I just re-checked this thread. Nice job folks.

bplus - have you considered putting all your stuff together in one place, or are you satisfied with writing your words in water?

You need a website and flashy github right now.