Перевод в разные системы счисления

@Gro0oll · Регистрация: 17.04.2019

Студворк — интернет-сервис помощи студентам

Здравствуйте, столкнулся с проблемой при решении курсовой. Задача: перевести по-очереди в данные системы счисления 10->
2->16->10->8->2->10 и вывести результат. Написал для перевода из десятичной в двоичную, выдает ошибку "Run-time error:'424' Необходим объект"
Вот код:

Visual Basic
1
2
3
4
5
6
Dim i As Integer
Private Sub Command1_Click()
i = Text1.Text
Dim binary As String
binary = Convert.ToString(i, 2)
Text2.Text = b

@IDK · 29.06.2019, 15:12

Язык программирования vb или vb.net?

@Gro0oll · 29.06.2019, 15:20 **[ТС]**

VB.

@IDK · 29.06.2019, 15:29

В восмиричную систему счисления функция Oct$, в 16-ричную Hex$. Остальное руками через рядовые мат операции.

Convert.ToString(i, 2) - уже не VB.

@Sur_L · 30.06.2019, 01:55

Сообщение от Gro0oll

выдает ошибку "Run-time error:'424' Необходим объект"

Так дайте ему необходимый объект. Оболочка же подсказывает где ошибка.

Сообщение от IDK

Язык программирования vb или vb.net?

После объединения на форуме этот вопрос будет первым всегда, какой же ВБ у вопрошающего )

@Gro0oll · 30.06.2019, 02:31 **[ТС]**

Ошибка высвечивается на 5ой строке на знаке =

@Sur_L · 30.06.2019, 04:06

Сообщение от Gro0oll

Ошибка

Вы пытаетесь работаете в среде VB с кодом для среды VB.Net.

@Gro0oll · 30.06.2019, 13:38 **[ТС]**

Решил не использовать неизвестные мне функции перевода, переводить вручную, но уже на переводе в 2 сс напоролся на проблему. Создал массив для записи и вывода двоичного числа, но работать он явно не собирается. Можете подправить и указать на ошибки в коде

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim i, b, x As Integer
Private Sub Command1_Click()
i = Text1.Text
Dim two, eight, ten, sixteen As Integer
Dim M(100) As Integer
Dim g1 As Integer
two = 2
eight = 8
ten = 10
sixteen = 16
g1 = i
Do Until g1 = 0
x = 1
If g1 Mod two Then
g1 = g1 / 2
M(x) = 1
Else: M(x) = 0
x = x + 1
g1 = g1 / 2
Loop
Text2.Text = M(x)
End Sub

@Sur_L · 30.06.2019, 15:00

Вот например рекурсивная функция перевода в 2 сс

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
Debug.Print dec2bin(1970)
 
End Sub
Public Function dec2bin(ByVal DecNum As Long) As String
 
Select Case DecNum
Case Is > 1
    dec2bin = dec2bin(DecNum \ 2) & CStr(DecNum And 1)
Case Is > 0
    dec2bin = "1"
Case Else
    dec2bin = "0"
End Select
 
'dec2bin = Right("00000000" & dec2bin, 8) 'форматирование
End Function

@Gro0oll · 30.06.2019, 15:37 **[ТС]**

А как можно это двоичное число засунуть в переменную для дальнейших переводов?

@Sur_L · 30.06.2019, 17:41

Вместо Debug.Print приравняй к текстовой переменной.

@Gro0oll · 30.06.2019, 19:27 **[ТС]**

Теперь окончательно запутался... Я вывел в текстовой переменной двоичный код, но для перевода в 16сс нужна числовая переменная. Пытался создать отдельную числовую переменную, вывел в текстбокс двоичный код и попытался присвоить числовой переменной содержимое текстбокса, выдает ошибку несовместимости типов, не знаю теперь как двигаться дальше...

Добавлено через 8 минут
И этот код выводит одно и то же двоичное число

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
Debug.Print dec2bin(1970)
 
End Sub
Public Function dec2bin(ByVal DecNum As Long) As String
 
Select Case DecNum
Case Is > 1
    dec2bin = dec2bin(DecNum \ 2) & CStr(DecNum And 1)
Case Is > 0
    dec2bin = "1"
Case Else
    dec2bin = "0"
End Select
 
'dec2bin = Right("00000000" & dec2bin, 8) 'форматирование
End Function

Добавлено через 6 минут
Извиняюсь, протупил. Забыл добавить значение из первого текстбокса в эту функцию

Добавлено через 5 минут
Теперь при присваивании содержимого первого текстбокса выдает ошибку 28 (недостаточно места в стеке)

Добавлено через 13 минут
Ошибку выдает в этой строке

Visual Basic
1
dec2bin = dec2bin(DecNum \ 2) & CStr(DecNum And 1)

Остап Бонд · 30.06.2019, 19:46

Gro0oll, а поиском воспользоваться религия не позволяет? Вот недалекий пример - Перевод из двоичной системы счисления в десятичную

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .

@IDK 63 / 48 / 12 Регистрация: 28.12.2014 Сообщений: 270
	29.06.2019, 15:12
	Язык программирования vb или vb.net? 0

@Gro0oll 0 / 0 / 0 Регистрация: 17.04.2019 Сообщений: 25
	29.06.2019, 15:20 [ТС]
	VB. 0

@IDK 63 / 48 / 12 Регистрация: 28.12.2014 Сообщений: 270
	29.06.2019, 15:29
	В восмиричную систему счисления функция Oct$, в 16-ричную Hex$. Остальное руками через рядовые мат операции. Convert.ToString(i, 2) - уже не VB. 0

@Gro0oll 0 / 0 / 0 Регистрация: 17.04.2019 Сообщений: 25
	30.06.2019, 02:31 [ТС]
	Ошибка высвечивается на 5ой строке на знаке = 0

@Gro0oll 0 / 0 / 0 Регистрация: 17.04.2019 Сообщений: 25
	30.06.2019, 15:37 [ТС]
	А как можно это двоичное число засунуть в переменную для дальнейших переводов? 0

@Sur_L 103 / 63 / 10 Регистрация: 13.02.2017 Сообщений: 178
	30.06.2019, 17:41
	Вместо Debug.Print приравняй к текстовой переменной. 1

Остап Бонд Заблокирован
	30.06.2019, 19:46
	Сообщение было отмечено Gro0oll как решение Решение Gro0oll, а поиском воспользоваться религия не позволяет? Вот недалекий пример - Перевод из двоичной системы счисления в десятичную 1

Перевод в разные системы счисления

Решение