Guest_imported
New member
- Jan 1, 1970
- 0
Is there any qbasic program which convert decimal numbers to binary?
Thanks
Thanks
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Decimal to Binary Converter
- Thread starter Guest_imported
- Start date
- Status
trollacious
Programmer
This should do it for you:
FUNCTION Dec2Bin$(onenumber AS INTEGER)
DIM binstring AS STRING
DIM onedigit AS INTEGER, decnumber AS INTEGER
decnumber = onenumber
binstring = ""
DO
onedigit = decnumber MOD 2
binstring = STR$(onedigit) + binstring
decnumber = decnumber \ 2
LOOP WHILE decnumber > 0
Dec2Bin$ = binstring
END FUNCTION
FUNCTION Dec2Bin$(onenumber AS INTEGER)
DIM binstring AS STRING
DIM onedigit AS INTEGER, decnumber AS INTEGER
decnumber = onenumber
binstring = ""
DO
onedigit = decnumber MOD 2
binstring = STR$(onedigit) + binstring
decnumber = decnumber \ 2
LOOP WHILE decnumber > 0
Dec2Bin$ = binstring
END FUNCTION
- Status