Konvertering fra decimal til binær og tilbage

Har desværre ikke noget svar på den. Men jeg kan nu alligevel ikke lade være med at skrive. Det lyder godt som noget "hidsigt" du har gang i :)

Jeg havde lige den her liggende:

Private Function Dec2Bin(Dec As Long) As String
buf = Dec
Dec2Bin = ""
For I = 15 To 0 Step -1
    If 2 ^ I <= Dec Then
        Dec2Bin = Dec2Bin + "1"
        Dec = Dec - 2 ^ I
    Else
        Dec2Bin = Dec2Bin + "0"
    End If
Next I
Dec = buf
Do
    If Left(Dec2Bin, 1) = "0" Then Dec2Bin = Right(Dec2Bin, Len(Dec2Bin) - 1)
Loop Until Not Left(Dec2Bin, 1) = "0" Or Len(Dec2Bin) = 1
End Function

Hvis du bruger VB7 er det meget nemt:
brug Convert.ToString(mittal, base)
hvor mittal er det tal der skal konverteres (f.eks. 12) og base er 2 for binær, 8 for oktal, 16 for hexadecimal.
Når du skal konvertere strengen til separate variable kan du loope igennem strengen med mid() funktionen, men jeg ville foretrække at lave en array vha. split() funktionen.

kunne du eventuelt hjælpe med at få dec2bin() delt ud i 8 variabler ?

Mit første svar var noget jeg lavede for meget lang tid siden, det kan selvfølgelig laves meget simplere (den tager kun de første 8 bit, men du kan nok se hvor det skal tilpasses) :

Dim i, val As Integer
Dim bin(8) As Byte
val = CInt(Text1.Text)
i = 0

While (i < 8)
    If (val And 2 ^ i) Then bin(i) = 1 Else bin(i) = 0
    i = i + 1
Wend

val = CInt(text1.text)
skal selvf. erstattes af det tal / variabel du vil have konverteret.