Составить программу для перевода чисел из шестнадцатеричной системы счисления в двоичную - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Помогите решить задание: Составить программу для перевода чисел из шестнадцатеричной системы счисления в двоичную. Заранее спасибо. З.Ы. Только начал осваивать Visual Basic, так что строго не судите.

Решение задачи: «Составить программу для перевода чисел из шестнадцатеричной системы счисления в двоичную»

textual
Листинг программы
Option Explicit
 
Function LngToStr(ByVal Value As Long, Baza As Byte) As String
Dim M As Byte
Do
  M = Value Mod Baza + 48
  If M > 57 Then M = M + 7
  Value = Value \ Baza
  LngToStr = Chr$(M) & LngToStr
Loop While Value > 0
End Function
 
Function StrToLng(Value As String, Baza As Byte) As Long
Dim M As Byte, I As Byte
For I = 1 To Len(Value)
  M = Asc(Mid$(Value, I, 1)) - 48
  If M > 9 Then M = M - 7
  StrToLng = StrToLng * Baza + M
Next I
End Function
 
Sub Example() 'перевод из двоичной в 16-ричную и обратно
Debug.Print LngToStr(StrToLng("10011001", 2), 16)
Debug.Print LngToStr(StrToLng("ABCDEF", 16), 2)
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.357 из 5
Похожие ответы