Tal til Binær

Du mener 1010 ikke ?

Hurtigt bixet kode:

Function ToBin(v As Integer) As String
    Dim tmp As Integer
    Dim res As String
    tmp = v
    res = ""
    While tmp > 0
        res = CStr(tmp Mod 2) & res
        tmp = tmp \ 2
    Wend
    ToBin = res
End Function

For at kunne omregne fra decimalt til binært skal du først kende de binære faktore. Disse er

1 2 4 8 16 23 64 128 256 512 1024 osv osv.

Hvis vi f.eks. skal omsætte tallet 100 til binært, kigger vi på faktorene og ser at det største tal vi kan dividerer helt op i 100 er 64

64 går 1 gang op i 100 og giver en rest på 36 så du starter med det første 1 tal (fra venster)

1

Resten på 36 kan også divideres med det næste tal i rækken (32 med en rest på 4. Du kan nu skrive det næste 1 tal

11

Resten på 4 kan ikke divideres med 16 og heller ikke med 8 så du kan nu skrive to 0'er

1100

Resten på 4 kan divideres med 4 og give en rest på 0, hvor for du kan skrive det næste 1 tal

11001

Og da resten 0 ikke kan divideres med hverken 2 eller 1 kan du nu skrive de sidste to 0'er og dermed færdigøre omregningen således

100 (decimalt) = 1100100 (binært)

Sådan kan du gøre med alle tal

Takker for hjælpen