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

@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, а поиском воспользоваться религия не позволяет? Вот недалекий пример - Перевод из двоичной системы счисления в десятичную

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@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

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

Решение