Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim num As Integer
- Dim remainder As Integer
- Dim outString As String
- Dim letrs As String = "0123456789ABCDEF"
- 'we use these to convert the remainder to a single character
- For base As Integer = 16 To 16
- num = CInt(txtIn.Text)
- outString = " "
- Do While (num > 0)
- remainder = num Mod base
- num = num base
- outString = CStr(remainder) & outString
- Loop
- lstOutput.Items.Add(outString)
- Next
Add Comment
Please, Sign In to add comment