Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / bin2hex / 7 сообщений из 7, страница 1 из 1
20.02.2007, 16:16
    #34344488
chii
chii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bin2hex
Помогите новичку!
Есть ли в Visual Basic 6.0 какое-нибудь встроенное средство преобразования введенной пользователем строки из 0 и 1 в шестнадцатиричное представление ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.02.2007, 17:01
    #34344674
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bin2hex
Ф-я Hex.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.02.2007, 17:22
    #34344779
chii
chii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bin2hex
ага... а Bin - это обратно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.02.2007, 19:00
    #34345076
Aklin
Aklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bin2hex
из целых в 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
| Ответить | Цитировать | Написать  
21.02.2007, 09:49
    #34345875
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bin2hex
Обратно - CInt.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.03.2007, 19:10
    #34372462
chii
chii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bin2hex
не понимаю, почему у мну при вызове этой процедуры все время выскакивает 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:11
    #34372464
chii
chii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bin2hex
Там, в последнем, опечатка )) Не hex2Bin, а Bin2Hex (так что не в этом дело)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / bin2hex / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 408ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164390]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 144ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 196ms
total:  408ms
x
x
Закрыть


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