kONVERTER DECIMAL TALVÆRDI TIL BINÆR

http://www.eksperten.dk/spm/177571

Som du kan se her har jeg spurgt om det samme i det her spørgsmål og fået svar! Og det virker faktisk! Alletiders funktion ham der Jelzin har lavet! :D

Et binært tal er jo opbygget af 2^n

f.eks. 149 er det samme som 2^7 + 2^4 + 2^2 + 2^0

Det har jeg fundet det ved at sige hvilket tal er nærmest 149, men stadig ikke højere?
2^8 giver 256, det er for højt, så prøver jeg med 2^7 og det giver 128, så tager jeg 2^7 og finder resten, det er her 21! Så gentager jeg proceduren med resten, 2^5 giver 32, det er for højt, så prøver jeg med 2^4 og det giver 16, så tager jeg 2^4 og finder resten, det er her 5! Så gentager jeg proceduren med resten, 2^3 giver 8, det er for højt, så prøver jeg med 2^2 og det giver 4, så tager jeg 2^4 og finder resten, det er her 1! Og hvad er det der giver 1, ja det er 2^0, så det vælger jeg ;o)
Så decimaltallet 149 er binært 10010101
Så nemt er det ;o)

OK! Vil I sende mig koden I bruger. Bare klip den ud af jeres program og læg den som kommentar. Så sparer jeg tid på at kode.

Min kode ligger ope i hovedet ;o) Det er simpel hovedregning, du spurgte jo også om en med matematikken i orden ;o)

her er koden! Du skal bare kalde den sådan her:

decimaltallet = dec2bin(Binæretal)
msgbox decimaltallet

Public Function dec2bin(mynum As Variant) As String
Dim loopcounter As Integer
If mynum >= 2 ^ 31 Then
dec2bin = "Too big"
Exit Function
End If
Do
If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then
dec2bin = "1" & dec2bin
Else
dec2bin = "0" & dec2bin
End If
loopcounter = loopcounter + 1
Loop Until 2 ^ loopcounter > mynum
End Function

eller sådan her skal det være da der skal tjekkes om det er et tal:

if isnumeric(minstreng) then
decimaltallet =  dec2bin(asc(minstreng))
else
decimaltallet = dec2bin(minstreng) end if

det jeg har sagt virker! Hvorfor lukker du ikke spørgsmålet?

Sorry - Har haft travlt