Как в VB переводить числа из десятичных в НЕХ?

@Дмитри5 · Регистрация: 28.09.2010

Студворк — интернет-сервис помощи студентам

Как в VB переводить числа из десятичных в НЕХ
и наоборот
из НЕХ в десятичное значение
Спасибо !

@ИльяН · 28.09.2010, 14:55

Hex(number)

@PMSSpy · 28.09.2010, 15:45

Code
1
2
3
4
5
6
7
function DecToHex(decimalvalue) as string
DecToHex = HEX(decimalvalue)
end function
 
Function HexToDec(hexvalue as string) as Long
HexToDec = VAL('&H' & hexvalue)
end function

28.09.2010, 21:07

Function HexToDec(hexvalue as string) as Long
HexToDec = VAL('&H' & hexvalue
end function

?????
Чушь полная...

@igor_c · 29.09.2010, 12:16

Почему чушь?
hex(45)=2D
val('&H2D')=45

@Дмитри5 · 29.09.2010, 16:47 **[ТС]**

Мужики, о чем спор:
Работает все правильно, в принципе.
Единственно вопрос в том, почему:
число = FFF, дает результат = 4095
а число >>FFF, например, FFFF = -1
и далее FFFFF, дает результ. = 1048575

Привет и спасибо, что включились в этот интересный детский вопрос

@palva · 29.09.2010, 17:09

Потому что если число небольшое, считается, что оно имеет тип Integer, а если в два байта не помещается, то получается Long

То есть FFFF это Integer = -1
а FFFFF это Long со всеми вытекающими. Мне помнится, был какой-то суффикс у константы, который сигнализировал о типе, но - не помню.

@palva · 29.09.2010, 17:14

Ага, победа над слерозом одержана.

Code
1
2
msgbox &HFFFF  ' -1
msgbox &HFFFF& ' 65535

@Дмитри5 · 30.09.2010, 08:26 **[ТС]**

Огромное всем спасибо: Я получил больше чем ожидал!!!
FFFFFFF = 268435455
FFFFFFF0 = -16
FFFFFFF1 = -15
... и т.д.
FFFFFFFF = -1

Кто больше!?
======================================== =========
Вот мой код на эту тему:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Command1_Click() ' Command1.Caption = DEC
  Text2.Text = ''
  On Error Resume Next
  If Trim(Text1.Text) <> '' Then Text2.Text = Val('&H' & Text1.Text & '&')
  Text1.SelStart = Len(Text1.Text)
End Sub
 
Private Sub Command2_Click() ' Command1.Caption = HEX
  Text1.Text = ''
  On Error Resume Next
  If Trim(Text2.Text) <> '' Then Text1.Text = Hex(Text2.Text)
  Text2.SelStart = Len(Text2.Text)
End Sub
 
Private Sub Form_Load()
'Dim k, l
'k = Hex(4500) '=2D
'l = Val('&H1194') ' = 45
 Text1.Text = '2D'
 Text2.Text = '45'
 Text1.SelStart = Len(Text1.Text)
End Sub
 
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
  Text1.Text = UCase(Text1.Text)
  Text1.SelStart = Len(Text1.Text)
End Sub
 
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
  Text2.Text = UCase(Text2.Text)
  Text2.SelStart = Len(Text2.Text)
End Sub

@Дмитри5 · 30.09.2010, 08:56 **[ТС]**

Pardon's, Ошибока вышла, исправьте у себя, кто попробует пример кода:

' Command2.Caption = HEX

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@Дмитри5 0 / 0 / 0 Регистрация: 28.09.2010 Сообщений: 139

	Как в VB переводить числа из десятичных в НЕХ? 28.09.2010, 08:35. Показов 1878. Ответов 9 Метки нет (Все метки) Как в VB переводить числа из десятичных в НЕХ и наоборот из НЕХ в десятичное значение Спасибо ! 0

@ИльяН 0 / 0 / 0 Регистрация: 22.07.2010 Сообщений: 19
	28.09.2010, 14:55
	Hex(number) 0

Black Star
	28.09.2010, 21:07
	Function HexToDec(hexvalue as string) as Long HexToDec = VAL('&H' & hexvalue end function ????? Чушь полная...

@igor_c 0 / 0 / 0 Регистрация: 04.03.2008 Сообщений: 250
	29.09.2010, 12:16
	Почему чушь? hex(45)=2D val('&H2D')=45 0

@Дмитри5 0 / 0 / 0 Регистрация: 28.09.2010 Сообщений: 139
	29.09.2010, 16:47 [ТС]
	Мужики, о чем спор: Работает все правильно, в принципе. Единственно вопрос в том, почему: число = FFF, дает результат = 4095 а число >>FFF, например, FFFF = -1 и далее FFFFF, дает результ. = 1048575 Привет и спасибо, что включились в этот интересный детский вопрос 0

@palva 4278 / 2970 / 693 Регистрация: 08.06.2007 Сообщений: 9,930 Записей в блоге: 5
	29.09.2010, 17:09
	Потому что если число небольшое, считается, что оно имеет тип Integer, а если в два байта не помещается, то получается Long То есть FFFF это Integer = -1 а FFFFF это Long со всеми вытекающими. Мне помнится, был какой-то суффикс у константы, который сигнализировал о типе, но - не помню. 0

@Дмитри5 0 / 0 / 0 Регистрация: 28.09.2010 Сообщений: 139
	30.09.2010, 08:56 [ТС]
	Pardon's, Ошибока вышла, исправьте у себя, кто попробует пример кода: ' Command2.Caption = HEX 0