1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

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

Статус темы:
Закрыта.
  1. StagerC

    StagerC Гость

    Репутация:
    0
    Помогите, пожалуйста, решить задачку:
    Числа по основанию 4 и 16. Выполнить операцию умножения.
    Вот у меня есть процедура, тока что дальше?
    Я с этой процедурой ничего не смог сделать :'(
    Процедура:
    Код:
    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. citizenfour
    Ответов:
    1
    Просмотров:
    65
  2. Tayrus
    Ответов:
    1
    Просмотров:
    73
  3. Lcf11
    Ответов:
    2
    Просмотров:
    81
  4. Tayrus
    Ответов:
    3
    Просмотров:
    102
  5. KanycTa
    Ответов:
    1
    Просмотров:
    77
Статус темы:
Закрыта.

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