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

-
-
- Сообщения: 5346
- Зарегистрирован: 09.03.2003 (Вс) 9:26
-
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

-

-
- Сообщения: 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, вот этот вариант поизящнее, конечно. Нечто подобное и хотел увидеть.
Согласен, вариант

Никакую проблему невозможно решить на том же уровне, на каком она возникла. Нужно стать выше этой проблемы, поднявшись на следующий уровень.
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Majestic-12 [Bot], PetalBot и гости: 3