Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Олимпиады

Страница: 1 |

 

  Вопрос: Памагите !!! очень сложная задача! Добавлено: 09.08.07 17:40  

Автор вопроса:  Aganemnam | Web-сайт: None | ICQ: 269000203 
Доброго времени суток, Программисты!
у меня есть токой вопрос:
Надо перевести число с дисятичной на шестнадцатиричную систему счисления !!!
Число в диапазоне от
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
Ответов: 736
 Профиль | | #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-сайт: 123
 Профиль | | #4
Добавлено: 13.08.07 15:36
5 грамматических ошибок... Кошмар.
Пользуйся статьёй, ссылку на которую тебе так любезно предоставил BUMM ®.
Мне она однажды помогла в аналогичной ситуации.

Ответить

Номер ответа: 5
Автор ответа:
 Aganemnam



ICQ: 269000203 

Вопросов: 2
Ответов: 5
 Web-сайт: None
 Профиль | | #5
Добавлено: 15.08.07 16:13
Empro вообщето я программист а не лингвист .... и мне глубоко фиолетово на эти 5 ошыбок.... да хоть 65`536 штук .... на слово!! а вот код я нашел точнее помогли ........потом написал другую но для более большых диапазонов......
могу привести код:::::
Function dec_to_hex$(dec$)
    '
    ;Dim c_dec$, n_dec$
    ;Dim s_dec&
    ;Dim result$
    '
    c_dec = dec
    result = ""
    '
    ;Do
        ;Dim i&
        ;Dim 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
        '
        ;Do 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
за свободное время и комменты!!!
так что ППЦ!!!!

Ответить

Страница: 1 |

Поиск по форуму





© Copyright 2002-2011 VBNet.RU | Пишите нам