Как перевести число из одной системы счисления в другую. - VB

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

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

Добрый день! Помогите пожалуйста, нужно создать программку: TextBox1.Text - вводится любое число в любой СС (от двоичной до 16) TextBox2.Text - задается СС в которой ввели число TextBox3.Text - задается СС в которую нужно перевести введенной выше число (СС от 2 до 16) TextBox4.Text - выводится число в той СС, которая введена в TextBox3.Text Есть программа, но она не доделана. Не могу допереть как дальше Не переводит из 16-ричн. системы в любую другую и т.д. Помогите пожалуйста!

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

textual
Листинг программы
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 
 
Private Sub CommandButton1_Click()
  TextBox4=LngToStr(StrToLng(TextBox1.text, val(TextBox2.Text)), val(TextBox3.Text))
End Sub

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


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

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

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