0xC -> 0x0C

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

0xC -> 0x0C

Сообщение Amed » 11.02.2006 (Сб) 19:30

Как с помощью Format$ записать преобразование байта в hex-виде к стандартному?
Написал Format$(Hex$(number), "00").

Если имеем 5, к примеру, то получаем '05'. Если 25, то '19'. 125 - '7D'. А если 15, то 'F'. Как получить '0F'?

VVitafresh
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1641
Зарегистрирован: 12.05.2005 (Чт) 14:44
Откуда: Херсон, UA

Сообщение VVitafresh » 11.02.2006 (Сб) 19:44

Я бы написал:
Код: Выделить всё
s = Format$(Hex$(number), "00")
If Len(s) = 1 Then s = "0" & s

и не парился.
Никакую проблему невозможно решить на том же уровне, на каком она возникла. Нужно стать выше этой проблемы, поднявшись на следующий уровень.

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 11.02.2006 (Сб) 21:59

VVitafresh писал(а):Я бы написал:
Код: Выделить всё
s = Format$(Hex$(number), "00")
If Len(s) = 1 Then s = "0" & s

и не парился.

Я всегда пишу:
Код: Выделить всё
s = Right("00" & Hex$(number), 2)

Но это дело вкуса.
Изображение

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 11.02.2006 (Сб) 22:50

VVitafresh, я примерно так и написал.
tyomitch, вот этот вариант поизящнее, конечно. Нечто подобное и хотел увидеть.

VVitafresh
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1641
Зарегистрирован: 12.05.2005 (Чт) 14:44
Откуда: Херсон, UA

Сообщение VVitafresh » 12.02.2006 (Вс) 1:22

Amed писал(а):tyomitch, вот этот вариант поизящнее, конечно. Нечто подобное и хотел увидеть.

Согласен, вариант :thumright:
Никакую проблему невозможно решить на том же уровне, на каком она возникла. Нужно стать выше этой проблемы, поднявшись на следующий уровень.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, SemrushBot и гости: 40

    TopList