Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.02.2012, 21:40   #1
Randy.Mandy
Пользователь
 
Регистрация: 26.12.2011
Сообщений: 45
По умолчанию перевод в ASCII код и в двоичный код

Скажите,пожалуйста, как перевести данные, вводимые в текстовое поле в Аски-код, а потом привести это в двоичный вид?
реализую скремблеры, хочу чтобы кодировка была ASCII.
Файл приложил.

код в ASCII:
Код:
Dim k As Long, tex As String, T As String
tex = TextBox1.Text
T = ""
For k = 1 To Len(s)
T = T & Asc(Mid(tex, k, 1)) & vbNewLine
Next
TextBox2.Text = T
и в двоичный:
Код:
Function ByteToBin(ByVal Byy As Byte) As String
TextBox2.Text = I
Dim T As Byte
For T = 1 To 8
  ByteToBin = (Byy Mod 2) & ByteToBin
  Byy = Byy / 2
Next I
TextBox3.Text = B
Вложения
Тип файла: zip ASCII.zip (22.6 Кб, 15 просмотров)
Randy.Mandy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
двоичный код Иван 666 Помощь студентам 9 15.07.2010 08:52
двоичный код Артэс Общие вопросы C/C++ 2 20.05.2010 19:15
Перевод в двоичный код (Pascal -> C++) МартинИ Помощь студентам 11 22.04.2010 23:53
Перевод вещественного числа в двоичный код shepelin Свободное общение 9 06.07.2008 10:00
Двоичный код masterx13 Паскаль, Turbo Pascal, PascalABC.NET 4 14.11.2007 20:08