0 / 0 / 0
Регистрация: 17.04.2011
Сообщений: 9
1

из 8 в 16 и 2

05.05.2011, 13:55. Показов 596. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
имеется Text1 куда вводят и Text3 куда выводится результат. vb. Спасибо!
0
05.05.2011, 13:55
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
05.05.2011, 21:20 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
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
не скопировал.
1
Частенько бываю
 Аватар для Vlanib
750 / 331 / 42
Регистрация: 20.06.2007
Сообщений: 854
06.05.2011, 05:41 3
Вобще конечно очень сложно перевести по данному заданию! Ведь мало кто знает, что 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
1
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
06.05.2011, 09:34 4
Вобще конечно очень сложно перевести по данному заданию! Ведь мало кто знает, что 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)
спасибо.
0
Частенько бываю
 Аватар для Vlanib
750 / 331 / 42
Регистрация: 20.06.2007
Сообщений: 854
06.05.2011, 09:49 5
Да-да, там я опечатался. Надо > 7 написать. Я просто хотел привести пример встроенных ф-ций VB которые можно использовать для перевода СС. Val и Hex.
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
06.05.2011, 09:52 6
Ну строенные это хорошо конечно.Зачем изобретать велик.
Но думаю преподаватель этого не оценит.

Не по теме:

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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Отличия между venv, pyenv, pyvenv, virtualenv, pipenv, conda, virtualenvwrapp­­er, poetry и другими в Python
hw_wired 13.02.2025
В Python существует множество средств для управления зависимостями и виртуальными окружениями, что порой вызывает замешательство даже у опытных разработчиков. Каждый инструмент создавался для решения. . .
Навигация с помощью React Router
hw_wired 13.02.2025
React Router - это наиболее распространенное средство для создания навигации в React-приложениях, без которого сложно представить современную веб-разработку. Когда мы разрабатываем сложное. . .
Ошибка "error:0308010C­:digi­tal envelope routines::unsup­ported"
hw_wired 13.02.2025
Если вы сталкиваетесь с ошибкой "error:0308010C:digital envelope routines::unsupported" при разработке Node. js приложений, то наверняка уже успели поломать голову над её решением. Эта коварная ошибка. . .
Подключение к контейнеру Docker и работа с его содержимым
hw_wired 13.02.2025
В мире современной разработки контейнеры Docker изменили подход к созданию, развертыванию и масштабированию приложений. Эта технология позволяет упаковать приложение со всеми его зависимостями в. . .
Отличия интерфейсов и типов в TypeScript
hw_wired 13.02.2025
TypeScript - мощное средство для создания качественного и поддерживаемого кода, который расширяет возможности JavaScript, добавляя систему статической типизации. В отличие от динамической типизации. . .
Async/await в циклах JavaScript
hw_wired 13.02.2025
Современная веб-разработка немыслима без асинхронного программирования. Когда приложение выполняет длительные операции - загрузку данных с сервера, чтение файлов или обработку медиа-контента, важно. . .
Git не работает на MacOS после апдейта
hw_wired 13.02.2025
После очередного обновления MacOS многие разработчики сталкиваются с неприятным сюрпризом - Git перестает работать и выдает ошибку "xcrun: error: invalid active developer path". Эта проблема особенно. . .
Git отказывается объединять несвязанные истории
hw_wired 13.02.2025
Git работает безупречно, пока мы не сталкиваемся с особыми ситуациями вроде объединения веток с разными корнями истории. В таких случаях система контроля версий может преподнести неприятный сюрприз в. . .
Проверка email с помощью JavaScript
hw_wired 13.02.2025
Email-адреса имеют довольно запутанную спецификацию, которая допускает множество неочевидных вариантов написания. Например, знали ли вы, что адрес вида "name+tag@domain. com" или даже. . .
Замена всех вхождений строки с помощью JavaScript
hw_wired 13.02.2025
JavaScript предлагает несколько способов для выполнения операций замены в строках, каждый из которых имеет свои особенности и область применения. От простейшей замены первого найденного вхождения до. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru