Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: NOVARSEG on January 05, 2021, 01:49:45 am

Title: Base 10 to base x convertor
Post by: NOVARSEG on January 05, 2021, 01:49:45 am
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]
  7.  
  8.  
  9. t = ""
  11.  
  12. INPUT "Enter a base 10 number"; m
  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
  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
  32. PRINT "Base 10 number = "; m
  34. PRINT "converted to base"; b; "= "; t
  35.  
  36.  
  38.  
Title: Re: Base 10 to base x convertor
Post by: NOVARSEG on January 05, 2021, 04:15:44 pm
Converts base 10 number to any base from 2 to 16


Code: QB64: [Select]
  7.  
  8.  
  9. t = ""
  11.  
  12. INPUT "Enter a base 10 number"; m
  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.  
  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.  
  48. PRINT "Base 10 number = "; m
  50. PRINT "converted to base"; b; "= "; t
  51.  
  52.  
  54.  
Title: Re: Base 10 to base x convertor
Post by: bplus on January 05, 2021, 05:07:50 pm
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

 
Title: Re: Base 10 to base x convertor
Post by: NOVARSEG on January 05, 2021, 09:52:39 pm
Some minor bugs
 wrong variable type  - fixed

Can now convert from base 2 to base 36

Code: QB64: [Select]
  7.  
  8.  
  9. t = ""
  11.  
  12. INPUT "Enter a base 10 number"; m
  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.  
  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.  
  46. PRINT "Base 10 number = "; m
  48. PRINT "converted to base"; b; "= "; t
  49.  
  50.  
  52.  
Title: Re: Base 10 to base x convertor
Post by: STxAxTIC on January 09, 2021, 01:55:14 pm
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.
Text Only | Text with Attachments