Помогите с процедурой, Plz.

Тема в разделе "Visual Basic", создана пользователем StagerC, 21 янв 2009.

Наш партнер Genesis Hackspace
Статус темы:
Закрыта.
  1. StagerC

    StagerC Гость

    Помогите, пожалуйста, решить задачку:
    Числа по основанию 4 и 16. Выполнить операцию умножения.
    Вот у меня есть процедура, тока что дальше?
    Я с этой процедурой ничего не смог сделать :'(
    Процедура:
    Код (Text):
    Public Function Cvt16to4(src As String)
    Dim n As Long, i As Long, s As String, flg As Long

    i = Val("&H" & src & "&")
    s = "(4)"
    n = (i And &H7FFFFFFF) ' Давим старший бит
    flg = (i = n)        ' True, если бита не было
    For i = 1 To 15
    s = CStr(n And 3) & s
    n = n \ 4
    Next
    If Not flg Then n = (n Or 2)
    s = CStr(n And 3) & s

    Cvt16to4 = s
    End Function
     
Загрузка...
Похожие Темы - Помогите процедурой Plz
  1. сергей799
    Ответов:
    2
    Просмотров:
    41
  2. komodikus
    Ответов:
    11
    Просмотров:
    134
  3. donny555
    Ответов:
    1
    Просмотров:
    42
  4. Brat
    Ответов:
    27
    Просмотров:
    287
  5. artem4486
    Ответов:
    34
    Просмотров:
    322
Статус темы:
Закрыта.

Поделиться этой страницей