Страница: 1 |
Страница: 1 |
Вопрос: Памагите !!! очень сложная задача!
Добавлено: 09.08.07 17:40
Автор вопроса: Aganemnam | Web-сайт:
Доброго времени суток, Программисты!
у меня есть токой вопрос:
Надо перевести число с дисятичной на шестнадцатиричную систему счисления !!!
Число в диапазоне от
10,000,000,000,000,000,000 до 99,999,999,999,999,999,999!
Код желателен на Visual Basic 6.0!
Ни одна функция не смогла решить это!Пробовал: "HEX(число)" пишет "Ovwerflow"!
Как организована Windows-ский калькулятор??? Он с легкостью эти числа переводит!!! а мне как программисту и лень и гордости не хватает чтоб каждый раз капировать в калькулятор потом переводить на НЕХ капировать в блокнот!!! помогите а???? + или - одна задача на ваш баланс не помешает!!! спасибо за внимание!
Если у кого есть вопросы прошу либо писать на мыло или в асю!!!
Ася : 269000203
Мыло: Aganemnam@mail.ru
Еще раз спасибо!
Ответы
Всего ответов: 5
Номер ответа: 1
Автор ответа:
VβÐUηìt
Вопросов: 246
Ответов: 3333
Web-сайт:
Профиль | | #1
Добавлено: 12.08.07 09:20
Мой совет: пиши заново калькулятор на уровне двоичных вычислений на вб. Будет очень медленно работать, зато количество знаков - скоко хошь
Номер ответа: 2
Автор ответа:
shuffle
Администратор
ICQ: 201502381
Вопросов: 15
Ответов: 737
Профиль | | #2
Добавлено: 12.08.07 16:45
Номер ответа: 3
Автор ответа:
BUMM ®
Вопросов: 8
Ответов: 482
Профиль | | #3
Добавлено: 13.08.07 04:23
интересно, а результат в какую переменную засунешь?
тут только длинная арифметика поможет
глянь вот статью
http://vbnet.ru/articles/showarticle.aspx?id=92
Номер ответа: 4
Автор ответа:
someone
Вопросов: 215
Ответов: 1596
Web-сайт:
Профиль | | #4
Добавлено: 13.08.07 15:36
5 грамматических ошибок... Кошмар.
Пользуйся статьёй, ссылку на которую тебе так любезно предоставил BUMM ®.
Мне она однажды помогла в аналогичной ситуации.
Номер ответа: 5
Автор ответа:
Aganemnam
ICQ: 269000203
Вопросов: 2
Ответов: 5
Web-сайт:
Профиль | | #5
Добавлено: 15.08.07 16:13
Empro вообщето я программист а не лингвист .... и мне глубоко фиолетово на эти 5 ошыбок.... да хоть 65`536 штук .... на слово!! а вот код я нашел точнее помогли ........потом написал другую но для более большых диапазонов......
могу привести код:::::
Function dec_to_hex$(dec$)
'
 im c_dec$, n_dec$
 im s_dec&
 im result$
'
c_dec = dec
result = ""
'
 o
 im i&
 im i_max&
'
i_max = Len(c_dec)
n_dec = ""
s_dec = 0
'
For i = 1 To i_max
'
s_dec = CLng(s_dec & Mid$(c_dec, i, 1))
'
n_dec = n_dec & (s_dec \ 16)
s_dec = s_dec Mod 16
'
Next i
'
 o While Mid$(n_dec, 1, 1) = "0": n_dec = Mid$(n_dec, 2): Loop
c_dec = n_dec
'
result = Hex$(s_dec) & result
'
Loop Until c_dec = ""
'
dec_to_hex = result
'
End Function
усе работает..... переводит .... спасибо EL_Passo
за свободное время и комменты!!!
так что ППЦ!!!!