Перевод чисел в двоичную систему

[Ramzes]

Уважаемый All помогите плиз.

Как перевести число в двоичную систему ищесления.

[EvilCoder]

<DELETE>

[v-adix]

кстати уже обсуждалось в форуме - как переводить из 10й в 2ю и обратно. ищи по ключевому слову Bin.

[Ramzes]

Не знаю как я искал, но ничего стоящего не нашел!!! А исходник улетел!!!! Либо админы стерлы, либо кто-то его не закачал. Если не трудно исходник прислать на мыло сделайт еожалуйста это... Спасибо...
mer-amon-ramzes@mail.ru
hroostovskiy@mail.ru

[Kostyan]

Помести на форму Text1 и Text2. В 1-й введи десятичное число, во-втором будет отображаться его 2-чный вид.

Код: Выделить всё

Dim bin As String, dec As Long
dec = Val(Text1.Text)
Do While dec > 1
  bin = Str$(dec Mod 2) & bin
  dec = dec \ 2
Loop
bin = Str$(dec) & bin
Text2.Text = bin


[Danya aka Spiridon]

Я тоже когда-то такую прогу писал... если нужен исходник - пишите на e-mail!

[alibek]

Прога??? Для перевода из десятичной системы счисления в двоичную??? Уж не Shareware ли?

[Danya aka Spiridon]

Хватит глумиться! Я её сам писал зато... Одна из моих первых прог!

[gjghjc]

А я такое еще на "Парусе" делал Вот только исходники не сохранились . Кассету где-то посеял

[Vitaly1]

ну вот тебе перевод из 10тичной в ричную chislo - переводимое число, por - порядок системы, для перевода в двоичную систему por=2

Код: Выделить всё

function DesR(byval chislo as long,byval por as long)
Dim bin As String 
if por <0 or por>16 then
msgbox "Неправельный порядок системы"
end
end if
prevod = array("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F")
bin=""
Do While chislo >= por
  bin = perevod(chislo Mod por) & bin
  chislo = chislo \ por
Loop
DesR= Str$(chislo) & bin
end function

а вот тебе обратный перевод из ричной в десятичную

Код: Выделить всё

function RDes(byval chislo as string,byval por as long)
Dim mn as long, per as long,i as long, j as long
if por <0 or por>16 then
msgbox "Неправельный порядок системы"
end
end if

prevod = array("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F")
mn = 1
per=0
for i=len(chislo) to 1 step -1
   for j=0 to 15
    if prevod(j) =mid(chislo,i,1) then
      per =per+ j*mn   
      exit for   
    end if
   next j
mn= mn* por
next i
RDes =per
end function

[young]

Точно не помню, но если разделить число на 2 до тех пор, пока не будет остатка и записать наоборот это и будет искомый двоичный вид.