Как перевести число из одной системы счисления в другую. - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д