из 8 в 16 и 2

@Иван2po06 · Регистрация: 17.04.2011

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

имеется Text1 куда вводят и Text3 куда выводится результат. vb. Спасибо!

@SuPeR XaKer · 05.05.2011, 21:20

Вот.Правда не проверял:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Command1_Click()
Dim i As Long, mas As Variant, mas2 As Variant, j As Integer, s As String, s2 As String
mas = Array("000", "001", "010", "011", "100", "101", "110", "111")
mas2 = Array("0000", "0001", "0010", "0011", "0100", "0101", "0110", "0111", "1000", "1001", "1010", "1011", "1100", "1101", "1110", "1111")
mas3 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F")
i = Val(Text1.Text)
Cls
Do Until i = 0
 s = mas(i Mod 10) & s
 i = i / 10
Loop
Print "×èñëî èç 8-é ÑÑ â 2-þ ÑÑ:=" & s
Do Until Len(s) Mod 4 = 0
 s = "0" & s
Loop
i = 0
Do Until i >= Len(s)
For j = 0 To 15
If Mid(s, i + 1, 4) = mas2(j) Then s2 = s2 & mas3(j)
Next j
i = i + 4
Loop

тебе лишь остаётся проверку ввода сделать чтобы числа вводились от 0 до 7

Добавлено через 19 минут
внизу допиши print s2
end sub
не скопировал.

@Vlanib · 06.05.2011, 05:41

Вобще конечно очень сложно перевести по данному заданию! Ведь мало кто знает, что 0 в восм. и дес. и шест. тоже 0,... и 7 тоже 7, а больше 7 чисел в восм. СС нет.
И даже если предположить, что преподу это неизвестно, то зачем такой сложный код?

Visual Basic
1
2
3
4
5
6
7
8
9
10
'Вводим число в восм. CC
octNum = Text1.Text
'Проверяем на корректность ввода
If Val(octNum) > 8 Then MsgBox "Íåâåðíûé ââîä": Exit Sub
'Переводим в дес.СС
iNum = Val("&O" & octNum)
'Переводим в шест.СС
sHex = Hex(iNum)
'Вывод результата:
Text3.Text = "8СС - " & octNum & ", 16СС - " & sHex & ",  10CC - " & iNum

@SuPeR XaKer · 06.05.2011, 09:34

Вобще конечно очень сложно перевести по данному заданию! Ведь мало кто знает, что 0 в восм. и дес. и шест. тоже 0,... и 7 тоже 7, а больше 7 чисел в восм. СС нет.

Не понял что вы имеете ввиду.Восмеричная содержит числа от 0 до семи.

If Val(octNum) > 8 Then MsgBox "Неверный ввод": Exit Sub

http://ru.wikipedia.org/wiki/%... 0%B8%D1%8F
если я не прав то извиняюсь.
А вот за это

Hex(iNum)

спасибо.

@Vlanib · 06.05.2011, 09:49

Да-да, там я опечатался. Надо > 7 написать. Я просто хотел привести пример встроенных ф-ций VB которые можно использовать для перевода СС. Val и Hex.

@SuPeR XaKer · 06.05.2011, 09:52

Ну строенные это хорошо конечно.Зачем изобретать велик.
Но думаю преподаватель этого не оценит.

Не по теме:

Vlanib
а встроенных функций для перевода в двоичную нет?

@Vlanib · 06.05.2011, 11:19

На сколько я знаю нет. Это ручками уже надо.

Новые блоги и статьи Все статьи Все блоги /
Настройки 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 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@Иван2po06 0 / 0 / 0 Регистрация: 17.04.2011 Сообщений: 9

	из 8 в 16 и 2 05.05.2011, 13:55. Показов 748. Ответов 6 Метки нет (Все метки) имеется Text1 куда вводят и Text3 куда выводится результат. vb. Спасибо! 0

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	06.05.2011, 09:49
	Да-да, там я опечатался. Надо > 7 написать. Я просто хотел привести пример встроенных ф-ций VB которые можно использовать для перевода СС. Val и Hex. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,875
	06.05.2011, 09:52
	Ну строенные это хорошо конечно.Зачем изобретать велик. Но думаю преподаватель этого не оценит. Не по теме: Vlanib а встроенных функций для перевода в двоичную нет? 0

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	06.05.2011, 11:19
	На сколько я знаю нет. Это ручками уже надо. 1