| Вопрос: как получить остаток от деления числа | Добавлено: 07.08.07 17:34 |
Автор вопроса:  KreAtoR
|
|
Подскажите плиз как называется функция при которой возврацается остаток от деления???
Если кто знает как можно проще перевести Decimal в Hexadecimal подскажите тоже плиз, а если есть модуль то дайте плиз. |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 07.08.07 17:40 |
|
'BaseConv 'R.Stewart '16/05/2007 'Converts decimal number to base of choice. 'Returns a string. 'UPDATED FROM DecToBin Private Function BaseConv(intNumber, intBase) 'Specification: Base 2 (Bin), Base 8 (Oct), Base 16 (Hex) Dim intOffset As Integer Dim strConv As String intOffset = 55 Do Until intNumber = 0 If intNumber Mod intBase < 10 Then strConv = intNumber Mod intBase & strConv Else strConv = Chr(intNumber Mod intBase + intOffset) & strConv End If intNumber = (intNumber - intNumber Mod intBase) / intBase Loop BaseConv = strConv End Function Private Sub Form_Load() MsgBox (BaseConv(13, 2)) End Sub |
||
|
Номер ответа: 2 Автор ответа:  shuffle Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #2 | Добавлено: 07.08.07 17:51 |
|
Остаток от деления
ret = a mod b
|
||
|
Номер ответа: 3 Автор ответа:  KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #3 | Добавлено: 07.08.07 18:05 |
| Примножественно благодарен | ||
|
Номер ответа: 4 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #4 | Добавлено: 07.08.07 18:09 |
|
Есть еще такой вот вопросик
дано число 1802244 если пропускаю его через данную функцию, то получаю 1В8004 Все правильно. Вопрос в следующем, а можно ли сделать чтоб выводило в таком виде 0x001b8004 это надо для программы. |
||
|
Номер ответа: 5 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #5 | Добавлено: 07.08.07 18:15 |
1. Все буквы маленькие: Lcase("1B8004"
2. Смотрим, сколько нулей не хватает до 8 символов: 8 - len("1b8004" )
3. Добавляем нули в начале циклом 4. Приписываем "0x" |
||
|
Номер ответа: 6 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #6 | Добавлено: 07.08.07 18:17 |
|
И еще: перевод в шестнадцатеричную систему осуществляется методом Hex, встроенным в VB:
a = Hex(b) |
||
|
Номер ответа: 7 Автор ответа: shuffleАдминистратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #7 | Добавлено: 07.08.07 18:21 |
|
Да. Вместо "BaseConv = strConv" напиши:
strConv = LCase(strConv)
While (Len(strConv) And (Len(strConv) - 1)) <> 0 strConv = "0" & strConv Wend BaseConv = "0x" & strConv |
||
|
Номер ответа: 8 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #8 | Добавлено: 08.08.07 10:25 |
|
@VBD: а какие еще есть еще
Hex 16 Oct 8 как два непомню, подскажи спасибо всем, все сделано, все решено. Сенкс |
||
|
Номер ответа: 9 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #9 | Добавлено: 08.08.07 10:28 |
| и еще не подскажите буквы сделать маленькими? | ||
|
Номер ответа: 10 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #10 | Добавлено: 08.08.07 12:37 |
| lcase | ||
Страница: 1 |