Программа для перевода из одной системы счисления в другую

25.02.2009, 19:18. **Показов** 3844. **Ответов** 5

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

Короче нуна прога
чтобы переводить из одной системы счисления в другую
системы 2,8,10,16
=) нужен исходник
и желательно с рочно

помогите блин
icq 74447010
срочно

@oldpasp · 26.02.2009, 14:45

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
Function OSN(Число, Основание) As Long
Dim strRet As String
Dim lngResid As Long
 
    Do While Число > Основание - 1
    lngResid = Число - (Число  Основание) * Основание
    strRet = lngResid & strRet
    Число = Число  Основание
    Loop
    strRet = Число & strRet
    OSN = Val(strRet)
 
End Function

28.02.2009, 15:31

ещёёёёёёёёёёёёё!! блин =)))))))0

@oldpasp · 28.02.2009, 16:48

Для перевода из одной системы в другую - переведите сначала в десятичную, затем в нужную. перевод в десятичную систему также не представляет особой сложности (вспомните как из двоичной записи получают десятичное число)

@oldpasp · 28.02.2009, 18:25

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Option Explicit
'Text1 - исходное число
'Combo1 - система счисления исходного числа
'Text2 - результат
'Combo2 - система счисления результата
 
Const strSymb = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
 
Private Sub Form_Load()
Dim i As Long
    For i = 1 To Len(strSymb)
        Me.Combo1.AddItem CStr(i)
        Me.Combo2.AddItem CStr(i)
    Next i
End Sub
Private Sub Command1_Click()
    Call Recalculation
End Sub
Private Sub Text1_Change()
    Call Recalculation
End Sub
 
Private Sub Recalculation()
Dim Osn1 As Long, Osn2 As Long
Dim Num As String
Dim i As Long, pos As Long, lngLen As Long
Dim arrTemp() As String
Dim ret As Long
Dim lngResid As Long
Dim strRet As String
 
    If Len(Me.Text1.Text) = 0 Or Len(Me.Combo1.Text) = 0 Or Len(Me.Combo2.Text) = 0 Then Exit Sub
    Osn1 = Me.Combo1.ListIndex + 1: Osn2 = Me.Combo2.ListIndex + 1
    Num = Me.Text1.Text
    
    'переводим исходное число в десятичную систему счисления
    lngLen = Len(Num)
    For i = 1 To lngLen
        strRet = Mid$(Num, i, 1)
        pos = InStr(strSymb, strRet) - 1
        ret = ret + (Osn1 ^ (lngLen - i)) * pos
    Next i
    Do While ret > Osn2 - 1
        lngResid = ret - (ret  Osn2) * Osn2
        strRet = lngResid & ';' & strRet
        ret = ret  Osn2
        DoEvents
    Loop
    strRet = ret & ';' & strRet
    arrTemp() = Split(strRet, ';')
    strRet = ''
    For i = 0 To UBound(arrTemp()) - 1
        strRet = strRet & Mid$(strSymb, Val(arrTemp(i)) + 1, 1)
        DoEvents
    Next i
    Me.Text2.Text = strRet
End Sub

@Евген111 · 19.05.2013, 16:06

Смотрел программу и в некоторых операторах выдает ошибку:.. почему?(мне тоже такая прога нужна)

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Function OSN(Число, Основание) As Long
Dim strRet As String
Dim lngResid As Long
 
Do While Число > Основание - 1
[B]lngResid = Число - (Число Основание) * Основание[/B]
strRet = lngResid & strRet
[B]Число = Число Основание[/B]
Loop
strRet = Число & strRet
OSN = Val(strRet)
 
End Function
 
Private Sub Form_Load()
Dim i As Long
For i = 1 To Len(strSymb)
Me.Combo1.AddItem CStr(i)
Me.Combo2.AddItem CStr(i)
Next i
End Sub
Private Sub Command1_Click()
Call Recalculation
End Sub
Private Sub Text1_Change()
Call Recalculation
End Sub
 
Private Sub Recalculation()
Dim Osn1 As Long, Osn2 As Long
Dim Num As String
Dim i As Long, pos As Long, lngLen As Long
Dim arrTemp() As String
Dim ret As Long
Dim lngResid As Long
Dim strRet As String
 
If Len(Me.Text1.Text) = 0 Or Len(Me.Combo1.Text) = 0 Or Len(Me.Combo2.Text) = 0 Then Exit Sub
Osn1 = Me.Combo1.ListIndex + 1: Osn2 = Me.Combo2.ListIndex + 1
Num = Me.Text1.Text
 
'переводим исходное число в десятичную систему счисления
lngLen = Len(Num)
For i = 1 To lngLen
strRet = Mid$(Num, i, 1)
pos = InStr(strSymb, strRet) - 1
ret = ret + (Osn1 ^ (lngLen - i)) * pos
Next i
Do While ret > Osn2 - 1
[B]lngResid = ret - (ret Osn2) * Osn2
strRet = lngResid & ';' & strRet
ret = ret Osn2[/B]
DoEvents
Loop
[B]strRet = ret & ';' & strRet
arrTemp() = Split(strRet, ';')
strRet = ''[/B]
For i = 0 To UBound(arrTemp()) - 1
strRet = strRet & Mid$(strSymb, Val(arrTemp(i)) + 1, 1)
DoEvents
Next i
Me.Text2.Text = strRet
End Sub

Новые блоги и статьи Все статьи Все блоги /
std::span в C++: Производительность и лучшие практики NullReferenced 28.03.2025 std::span — одно из самых недооценённых нововведений стандарта C++20, которое радикально меняет подход к работе с непрерывными последовательностями данных. По сути, это невладеющее представление. . .	Многопоточность в C#: Threadpool UnmanagedCoder 28.03.2025 Пул потоков в C# — это коллекция заранее созданных и готовых к использованию потоков, которые находятся в распоряжении приложения. Вместо того чтобы создавать и уничтожать потоки для каждой небольшой. . .	Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel
Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточность в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .

Тузя

	Программа для перевода из одной системы счисления в другую 25.02.2009, 19:18. Показов 3844. Ответов 5 Метки нет (Все метки) Короче нуна прога чтобы переводить из одной системы счисления в другую системы 2,8,10,16 =) нужен исходник и желательно с рочно помогите блин icq 74447010 срочно

Тузя
	28.02.2009, 15:31
	ещёёёёёёёёёёёёё!! блин =)))))))0

@oldpasp 2 / 2 / 2 Регистрация: 23.06.2007 Сообщений: 399
	28.02.2009, 16:48
	Для перевода из одной системы в другую - переведите сначала в десятичную, затем в нужную. перевод в десятичную систему также не представляет особой сложности (вспомните как из двоичной записи получают десятичное число) 0

Программа для перевода из одной системы счисления в другую

Решение