Új hozzászólás Aktív témák

• #25277 Delila_1 veterán DasBoot #25262

  Új Válasz 2015-02-01 07:36:05 #25277

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz DasBoot #25262 üzenetére

  Nézd meg ezt:

  Function LongDec2Bin(ByVal nIn As Long, Optional nBits As Long = 0&) As Variant
  'J.E. McGimpsey műve, és Harlan Grove módosítása
  Dim nReqBits As Long
  Dim sOut As String
  Dim sBit As String
  Dim bNeg As Boolean
  Dim i As Long
  If nIn < 0& Then
  bNeg = True
  nIn = -(nIn + 1&)
  End If
  If nIn = 0& Then
  nReqBits = 1&
  Else
  nReqBits = Int(Log(nIn) / Log(2&)) + 1& - bNeg
  End If
  If nBits <= 0& Then nBits = nReqBits
  If nBits >= nReqBits Then
  If bNeg Then
  sOut = String(nBits, "1")
  sBit = "0"
  Else
  sOut = String(nBits, "0")
  sBit = "1"
  End If
  For i = nBits To (nBits - nReqBits + 1&) Step -1
  If (nIn - 2& * (nIn \ 2&)) > 0 _
  Then Mid(sOut, i, 1&) = sBit
  nIn = nIn \ 2&
  Next i
  LongDec2Bin = sOut
  Else
  LongDec2Bin = CVErr(xlErrNum)
  End If
  End Function

• #25268 Fire/SOUL/CD félisten DasBoot #25262

  Új Válasz 2015-01-31 18:33:05 #25268

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz DasBoot #25262 üzenetére

  Attól függ mekkora számokkal kellene dolgozni, mert pl ha elég 16bit (max 65535 a legnagyobb pozitív szám), akkor ez a képlet elintézi

  =DEC.BIN(INT(A1/2^8);8) & DEC.BIN(MARADÉK(A1;2^8);8)

  [link]

  UI: Ezen elven "akárhány" bites számokat is át meg lehet jeleníteni binárisan.

• #25263 slashing senior tag DasBoot #25262

  Új Válasz 2015-01-31 16:48:10 #25263

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  slashing

  senior tag

  válasz DasBoot #25262 üzenetére

  Mondjuk szövegként.... mielőtt beírod átrakod szövegre a cellát vagy csak simán aposztróffal írod be

  '0010101010010011

  vagy számformátum és leveszed a tizedeseket...

Új hozzászólás Aktív témák