Перевод десятичных чисел в двоичные

[SK4]

Дайте пожалуста код для перевода чисел от 0 до 255 из десятичной системы в двоичную

[Konst_One]

возьми сам, в поиске все это уже давно лежит

[d3drm]

там прям функция такая есть )

http://bbs.vbstreets.ru/viewtopic.php?t=17473

[CORBA]

А самому слабо написать?
Привожу алгоритм перевода числа 25 в "двоичку".

25/2=12 остаток 1
12/2=6 остаток 0
6/2=3 остаток 0
3/2=1 остаток 1


Читаем с конца 11001 = 16 + 8 + 0 + 0 + 1 = 25

Функция HEX которая в 16ричную перегоняет 100% есть, а вот BIN под вопросом.

[Vinechka]

Дайте пожалуста код для перевода чисел от 0 до 255 из десятичной системы в двоичную

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

Public Function GetBin (decimal as byte) as Double
    If decimal = 0 then return 0
    If decimal = 1 then return 1
    If decimal = 2 then return 10
    If decimal = 3 then return 11

    ...
    if decimal = 255 then return 11111111
End Function

Простите, не сдержался

[neic]

Vinechka
Ну зачем же так много, а Select Case никак чтоли?