Koodit: VB6: Lukujärjestelmien muunnokset

Function luvuksi(normaaliarvo As Long, kanta As Integer) As String

    ne = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    If normaaliarvo = 0 Then
        luku = "0"
    ElseIf normaaliarvo > 0 Then
        arvo = 1 'enemmän kuin 0 jotta päästään while-looppiin sisään
        i = normaaliarvo 'arvo josta lasketaan jakojäännöstä
        While arvo > 0
            arvo = i \ kanta 'laskeskellaan vähän
            jakojäännös = i - kanta * arvo 'jakojäännös on tärkeä osa tässä
            i = arvo
            palautus = Mid(ne, jakojäännös + 1, 1) + palautus 'palautusarvon kasvatus
        Wend
        luvuksi = palautus
    End If

End Function

Function takaisin(arvo As String, kanta As Integer) As Long

    ne = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    For i = 0 To Len(arvo) - 1 'käydään kaikki merkit läpi
        'katsotaan monesko se on ne-merkkijonossa eli napataan sen arvo
        luku = InStr(ne, UCase(Mid(arvo, Len(arvo) - i, 1))) - 1
        If luku = -1 Then Exit Function 'jos on väärä merkki niin mennään pois
        palautus = palautus + luku * kanta ^ i 'kasvatetaan yhteensäarvo-muuttujaa
    Next
    takaisin = palautus

End Function

Private Sub Form_Load()

    MsgBox luvuksi(takaisin("123", 10), 10) 'ulostaa 123
    MsgBox luvuksi(255, 16) 'ulostaa FF, sama kuin hex(255) koska hexa on 16lukujärjestelmä
    MsgBox takaisin("FF", 16) ' 255
    End

End Sub