VBNet - Форум - Text to Binary

Вопрос: Text to Binary Добавлено: 03.10.08 15:17

Автор вопроса: Imperial Kashak | ICQ: 479713821

Народ!
Как перевести в VB текст в двоичный код?????
Есть ли такой алгоритмчик? Или функция?
Есть мысля такая, чтобы сначала в ANSI, но потом всё равно в BIN... Какие мысли есть?
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #1	Добавлено: 04.10.08 10:50
	Насколько я помню, всех на уроках информатики учили переводить десятичку в двоичку, стыдно не знать, имхо... Ответить

Номер ответа: 2 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #2	Добавлено: 06.10.08 16:36
	Так оно и было Ответить

Номер ответа: 3 Автор ответа: j3d1 ICQ: 8370005 Вопросов: 34 Ответов: 466	Профиль \| \| #3	Добавлено: 07.10.08 01:06
	остатком от деления Ответить

Номер ответа: 4 Автор ответа: Imperial Kashak ICQ: 479713821 Вопросов: 10 Ответов: 57	Профиль \| \| #4	Добавлено: 07.10.08 12:02
	Простите, я торможу немного... Поподробнее... С порядком действий. А что касается школ, то нам этого даже не пытались объяснить. Все мы в школе весело рисовали Турбо Паскале (( Ответить

Номер ответа: 5 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #5	Добавлено: 07.10.08 17:06
	Вот что я щас написал. Не самое лучшее исполнение рекурсии со сторожевым счетчиком, видимо, но работает. Только для положительных чисел. Комментировать код не буду, ибо простой он. Function Dec2Bin(ByVal Value As Long, Optional ByVal SafeCounter As Integer = 1) As String Select Case Value Case 0 Dec2Bin = "0" Case 1 Dec2Bin = "1" Case Else Dec2Bin = IIf(Value Mod 2, "1", "0") Dec2Bin = Dec2Bin & Dec2Bin(Value \ 2, SafeCounter + 1) SafeCounter = SafeCounter - 1 If SafeCounter = 0 Then Dec2Bin = String(8 - Len(Dec2Bin), "0") & StrReverse(Dec2Bin) End Select End Function Private Sub Form_Load() Dim ret As String Const strString As String = "Съешь еще этих мягких французских булок да выпей чаю." For i = 1 To Len(strString) ret = ret & Dec2Bin(Asc(Mid$(strString, i, 1))) & vbNewLine Next Me.AutoRedraw = True Me.Print ret End Sub Ответить

Номер ответа: 6 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #6	Добавлено: 07.10.08 20:21
	http://slil.ru/26215158 перевод из любой в любую систему счисления от 2 до 16 нужно было в универе) чтоб не париться сделал перевод сначала в 10ную, а потом в нужную. Ответить

Номер ответа: 7 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #7	Добавлено: 07.10.08 20:26
	а млин, тут-то вообще 256ричная ну и пофиг, мож пригодиццо) Ответить

Страница: 1 |