Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

RusFAQ.ru: Программирование на Basic / VBA

Выпуск № 183
от 09.12.2004, 15:10

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 371
Отправлено ответов: 326
Активность: 87.87 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

DSota
Статус: Опытный
Общий рейтинг: 124.92
[Подробней >>]
Licvidator
Статус: Профессиональный
Общий рейтинг: 107.56
URL: PC Info
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 370. Имею байтовый массив в HEX. Как мне вывести десятичное значение, например 32-битного числа FF 00 00 ... (ответов: 2)

Вопросов: 1, ответов: 2


 Вопрос № 370

Имею байтовый массив в HEX. Как мне вывести десятичное значение, например 32-битного числа FF 00 00 00 ? Пользуясь этим Text1.Text = CLng("&H" & (Hex(buff(0)) & Hex(buff(1)) & Hex(buff(2)) & Hex(buff(3)))) у меня теряются по одному нулю из каждого байта и вместо 4278190080 я получаю 1044480.



Вопрос отправлен: 06.12.2004, 12:15
Отправитель: Victor

[Следующий вопрос >>] [Список вопросов]

Отвечает DSota

Добрый день, Victor!
А не подойдет, к примеру


Приложение:

Ответ отправлен: 06.12.2004, 13:33
Отправитель: DSota


Отвечает Licvidator

Добрый день, Victor!
Всегда пользовался нижеследующей функцией, правда для формата "хх.хх.хх", в результате чего выходное число и все операции можно было в типе Long проводить. При формате "хх.хх.хх.хх" она давала ошибку (Oveflow), поэтому пришлось немного исправить типы с Long на Variant. Вот Вам исправленный вариант:

Function HexToDec(strHex As String) As Variant
Dim strHx As String
Dim iHx As Integer, iDec As Integer
Dim lDec As Variant
For iHx = 1 To Len(strHex)
strHx = Mid(strHex, iHx, 1)
If IsNumeric(strHx) Then
iDec = Val(strHx)
Else
iDec = Asc(strHx) - 55
End If
lDec = lDec + iDec * 16 ^ (Len(strHex) - iHx)
Next
HexToDec = lDec
End Function


Ответ отправлен: 06.12.2004, 19:46
Отправитель: Licvidator



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (25)
C / C++ (24)
Perl (7)
Builder / Delphi (20)
Pascal (21)
Basic / VBA (15)
Java / JavaScript (7)
PHP (20)
Криптография (10)
WinAPI (22)
Радиоэлектроника (17)
Пользователю
Windows 95/98/Me (39)
Windows NT/2000/XP (60)
"Железо" (39)
Поиск информации (24)
Администратору
Windows NT/2000/XP (41)
Linux / Unix (18)
Юристу
Гражданское право (11)
Семейное право (6)
Трудовое право (10)
КоАП (6)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Web-студия "Kalashnikoff.ru"


hotlog_js="1.0";hotlog_d=document; hotlog_n=navigator;hotlog_rn=Math.random(); hotlog_n_n=(hotlog_n.appName.substring(0,3)=="Mic")?0:1; hotlog_r=""+hotlog_rn+"&s=25513&im=127&r="+escape(hotlog_d.referrer)+"&pg="+ escape(window.location.href); hotlog_d.cookie="hotlog=1"; hotlog_r+="&c="+(hotlog_d.cookie?"Y":"N"); hotlog_d.cookie="hotlog=1; expires=Thu, 01-Jan-70 00:00:01 GMT" hotlog_js="1.1";hotlog_r+="&j="+(navigator.javaEnabled()?"Y":"N") hotlog_js="1.2";hotlog_s=screen; hotlog_r+="&wh="+hotlog_s.width+'x'+hotlog_s.height+"&px="+((hotlog_n_n==0)? hotlog_s.colorDepth:hotlog_s.pixelDepth) hotlog_js="1.3" hotlog_r+="&js="+hotlog_js; hotlog_d.write("HotLog") Яндекс цитирования
© 2001-2004 Россия, Москва. Идея, дизайн, программирование: Калашников О.А. ICQ: 68951340
При перепечатке материалов ссылка на данный сайт обязательна!

http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Отписаться

В избранное