С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Дмитри5
0 / 0 / 0
Регистрация: 28.09.2010
Сообщений: 139
1

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

28.09.2010, 08:35. Просмотров 1057. Ответов 9
Метки нет (Все метки)

Как в VB переводить числа из десятичных в НЕХ
и наоборот
из НЕХ в десятичное значение
Спасибо !
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.09.2010, 08:35
Ответы с готовыми решениями:

Как переводить числа из двоичной системы в десятичную и из десятичной в двоичную
Прошу объяснить мне как переводить числа из двоичной системы в десятичную и из...

Генерировать числа в разных с\с и переводить по горнеру и антигорнеру эти числа
Компилирую прогу, ввожу число, и Windows прекращает работу проги сама....

Числа до 100 десятичных знаков - это как?
Числа до 100 десятичных знаков - это как? Мне нужно написать программу для...

Нужен текстовый контрол такие как используются в НЕХ редакторах
Может кто видел или делал себе простенький контрол в виде HEX просмоторщика?

Научить нейросеть переводить двоичные числа в десятиричные
В общем. Задание :научить нейросеть переводить двоичные числа в десятиричные. С...

9
ИльяН
0 / 0 / 0
Регистрация: 22.07.2010
Сообщений: 19
28.09.2010, 14:55 2
Hex(number)
0
PMSSpy
0 / 0 / 0
Регистрация: 01.03.2010
Сообщений: 223
28.09.2010, 15:45 3
Код
function DecToHex(decimalvalue) as string
DecToHex = HEX(decimalvalue)
end function

Function HexToDec(hexvalue as string) as Long
HexToDec = VAL('&H' & hexvalue)
end function
0
Black Star
28.09.2010, 21:07 4
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 5
Почему чушь?
hex(45)=2D
val('&H2D')=45
0
Дмитри5
0 / 0 / 0
Регистрация: 28.09.2010
Сообщений: 139
29.09.2010, 16:47  [ТС] 6
Мужики, о чем спор:
Работает все правильно, в принципе.
Единственно вопрос в том, почему:
число = FFF, дает результат = 4095
а число >>FFF, например, FFFF = -1
и далее FFFFF, дает результ. = 1048575

Привет и спасибо, что включились в этот интересный детский вопрос
0
palva
3125 / 2252 / 455
Регистрация: 08.06.2007
Сообщений: 8,173
Записей в блоге: 4
29.09.2010, 17:09 7
Потому что если число небольшое, считается, что оно имеет тип Integer, а если в два байта не помещается, то получается Long

То есть FFFF это Integer = -1
а FFFFF это Long со всеми вытекающими. Мне помнится, был какой-то суффикс у константы, который сигнализировал о типе, но - не помню.
0
palva
3125 / 2252 / 455
Регистрация: 08.06.2007
Сообщений: 8,173
Записей в блоге: 4
29.09.2010, 17:14 8
Ага, победа над слерозом одержана.
Код
msgbox &HFFFF  ' -1
msgbox &HFFFF& ' 65535
0
Дмитри5
0 / 0 / 0
Регистрация: 28.09.2010
Сообщений: 139
30.09.2010, 08:26  [ТС] 9
Огромное всем спасибо: Я получил больше чем ожидал!!!
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
0
Дмитри5
0 / 0 / 0
Регистрация: 28.09.2010
Сообщений: 139
30.09.2010, 08:56  [ТС] 10
Pardon's, Ошибока вышла, исправьте у себя, кто попробует пример кода:

' Command2.Caption = HEX
0
30.09.2010, 08:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2010, 08:56

Написание функции, которая будет числа переводить в слова
Здравствуйте. Возникла проблема в написании функции для задачи. Требуется...

Написать программу, позволяющую переводить числа из 2,8, 16 системы исчисления в десятичную
Написать программу, позволяющую переводить числа из 2, 8, 16 системы исчисления...

Переводить числа в различные системы счисления, в зависимости от основания, в пределах от 0 до 16
Uses crt; const a:array of char=('0', '1', '2', '3', '4', '5', '6', '7',...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru