ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / bin2hex
7 сообщений из 7, страница 1 из 1
bin2hex
    #34344488
Фотография chii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chii
Участник
Помогите новичку!
Есть ли в Visual Basic 6.0 какое-нибудь встроенное средство преобразования введенной пользователем строки из 0 и 1 в шестнадцатиричное представление ?
...
Рейтинг: 0 / 0
20.02.2007, 16:16
| Ответить | Цитировать | Написать  
bin2hex
    #34344674
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Ф-я Hex.
...
Рейтинг: 0 / 0
20.02.2007, 17:01
| Ответить | Цитировать | Написать  
bin2hex
    #34344779
Фотография chii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chii
Участник
ага... а Bin - это обратно?
...
Рейтинг: 0 / 0
20.02.2007, 17:22
| Ответить | Цитировать | Написать  
bin2hex
    #34345076
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
из целых в hex

Код: plaintext
hex

из строки в hex
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
  Dim s As String, i As Integer, ss As String
  s = "110111101111"
  While Len(s) Mod  4  <>  0 
    s = "0" & s
  Wend
  
  For i = Len(s) To  1  Step - 4 
    ss = Hex(Mid$(s, i -  3 ,  1 ) *  8  + Mid$(s, i -  2 ,  1 ) *  4  + Mid$(s, i -  1 ,  1 ) *  2  + Mid$(s, i,  1 )) & ss
  Next i
  
  MsgBox ss

ну и т.д.

аффтопитезь: объект либо именован, либо не существует
...
Рейтинг: 0 / 0
20.02.2007, 19:00
| Ответить | Цитировать | Написать  
bin2hex
    #34345875
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Обратно - CInt.
...
Рейтинг: 0 / 0
21.02.2007, 09:49
| Ответить | Цитировать | Написать  
bin2hex
    #34372462
Фотография chii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chii
Участник
не понимаю, почему у мну при вызове этой процедуры все время выскакивает Run Time error 5: неправильный вызов процедуры или аргумент
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub Bin2Hex()
Dim s, s1 As String, i1, i2 As Integer, ss As String
  For i1 =  0  To  31  Step  1 
  ss=""
  s = Mid$(BinText.Text, i1,  8 )
  For i2 =  8  To  1  Step - 4 
  ss = Hex(Mid$(s, i2 -  3 ,  1 ) *  8  + Mid$(s, i2 -  2 ,  1 ) *  4  + Mid$(s, i2 -  1 ,  1 ) *  2  + Mid$(s, i2,  1 )) & ss
  Next i2
  s1 = s1 & ss
  Next i1
KeyText.Text = s1
End Sub

Код: plaintext
1.
2.
3.
Private Sub GenBtn_Click()
BinText.Text = "0010010011101011111100110011010110011110100110000000101110000111000100010001011010101000101011110011100110111101111000100011010010010011010011011100101010111110011101010110001111101110011101100111111011001001010111111101000011000100010010011111110111111010"
Hex2Bin
End Sub
...
Рейтинг: 0 / 0
05.03.2007, 19:10
| Ответить | Цитировать | Написать  
bin2hex
    #34372464
Фотография chii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chii
Участник
Там, в последнем, опечатка )) Не hex2Bin, а Bin2Hex (так что не в этом дело)
...
Рейтинг: 0 / 0
05.03.2007, 19:11
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / bin2hex
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=243&tid=2164390]:
 0ms
get settings:
 7ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 353ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 202ms
total:  638ms
созд. / загр.: 638ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]