Код программы по переводу из 10-ой сс в 2-ую

@Divil · Регистрация: 11.04.2012

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

Помогите исправить ошибку!

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Private Sub Button35_Click(sender As System.Object, e As System.EventArgs) Handles Button35.Click
        Dim a As String
        value1 = TextBox1.Text
        Do While value1 <> 1 And value1 <> 0
            chis &= Math.IEEERemainder(value1, 2).ToString
            value2 = Math.Round(value1 / 2, 0)
            value1 = value2
        Loop
        For i = 1 To chis.Length
            For j = chis.Length To 1 Step -1
                a = chis(i)
                chis(i) = chis(j)
                chis(j) = a
            Next
        Next
        result = chis
        TextBox1.Text = result.ToString
    End Sub

это код программы которая переводит числа из 10-ой сс в 2-ую.
вот в этих строках:

VB.NET
1
2
                chis(i) = chis(j)
                chis(j) = a

выходят ошибки: Ошибка 1 Свойство "Chars" помечено как "ReadOnly".
Что это означает и как это исправить???
Заранее благодарен!

@ZuMiks · 08.08.2012, 19:42

посмотри в FAQ там все просто и ясно Visual Basic .NET FAQ

@Divil · 08.08.2012, 19:52 **[ТС]**

ну вот мой код

VB.NET
1
2
3
4
5
    Private Sub Button32_Click(sender As System.Object, e As System.EventArgs) Handles Button32.Click
        Dim a As String = Convert.ToString(2, 16)
        a = TextBox1.Text
        TextBox1.Text = a.ToString
    End Sub

и он нифига не работает...где ошибка? или что неправильно

@Akiva · 08.08.2012, 20:46

Вот функция:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function(ByVal DeciValue As Long,Optional ByVal NoOfBits As Integer = 8) As String
                      Dim i As Integer
                  Do While DeciValue > (2 ^ NeOfBits) - 1
                  NoOfBits = NoOfBits + 8
                  Loop
                  DecToBin = vbNullString
                  For i = 0 To (NoOfBits -1)
             DecToBin = CStr((DeciValue And 2 ^ i) / 2 ^ i) & DecToBin
                  Next
             End Function
             Private Sub btn_Click(ByVal...)   ' Примерно, применительно так.
             txt1.Text = DectoBin(CStr(12))
             End Sub

@Akiva · 08.08.2012, 20:59

Привет.
Вот здесь эта функция работоспособна

@ZuMiks · 08.08.2012, 21:47

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

и он нифига не работает...где ошибка? или что неправильно

Вот смотри, есть textbox и кнопка, в textbox пишем цифру, нажимаем на кнопку и он переводит ее в двоичную систему:

VB.NET
1
2
3
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Convert.ToString(CInt(TextBox1.Text), 2)
    End Sub

@Divil · 08.08.2012, 22:21 **[ТС]**

ZuMiks, а

VB.NET
1
TextBox1.Text = Convert.ToString(CInt(TextBox1.Text), 2)

двойку можно же менять на другие числа?(8,10,16)?

@ZuMiks · 08.08.2012, 22:29

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

двойку можно же менять на другие числа

Да можно.

в зависимости в какую систему счисления надо перевести.

@Divil · 09.08.2012, 10:19 **[ТС]**

огромное спасибо!))

Добавлено через 3 минуты
а что делать чтобы можно было из 16 в другие сс переводить? в текст бокс набрал A 16 в 10 и выдал ошибку : Приведение строки "A" к типу "Integer" является недопустимым.
или там как то по другому?

@ZuMiks · 09.08.2012, 10:31

да, там надо по другому, это перевод из 10 в любую. А чтобы из других переводить нужно использовать другой код. Какой сказать не могу. Посмотрите на форуме. Думаю есть примеры.

@PAnT0P · 09.08.2012, 11:33

Перевод числа в 20-ю систему счисления
Перевод числа в 20-ю систему счисления

@DenisWD94 · 09.08.2012, 22:02

Мой самый легкий способ перевода(безотказно работает):

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Dim X, W, Q As Double
Dim BinS As String = ""
 
      X = 'ваше десятичное число'
      BinS = "" 
      Do While X >= 1
        W = Int(X / 2)
        Q = X - (W * 2)
        X = W
        BinS = BinS + Q.ToString
      Loop
      BinS = StrReverse(BinS) 'результат в текстовом виде

@Divil · 10.08.2012, 20:48 **[ТС]**

а все-таки может кто ответить на мой выше написанный вопрос?

@fatalistt · 11.08.2012, 19:30

Перевод в 10сс из 2,8,16:

VB.NET
1
Convert.ToInt32(TextBox1.Text,16) '16 - из какой переводить

Ну а из 16сс в любые можно через 10сс, например

VB.NET
1
Convert.ToString(Convert.ToInt32(TextBox1.Text,16),8) 'из 16сс в 8сс, например

@Divil · 13.08.2012, 19:58 **[ТС]**

fatalistt, а

VB.NET
1
Convert.ToString(Convert.ToInt32(TextBox1.Text,16),8) 'из 16сс в 8сс, например

можно использовать этот код для перевода из 2 в 8,10,16???8 в 2,10,16

Добавлено через 13 минут
если кому надо, вот перевод из 2 в 8 по таблице:

Перевод из 2 сс в 8

VB.NET
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
        Dim a, b, chop As String
        Dim i As Integer = 0
        Dim t As Integer
        a = ""
        b = ""
        chop = TextBox1.Text
        If chop.Length - 3 * Math.Round(chop.Length / 3, 0) = 0 Then
            For i = 0 To chop.Length - 1
                a &= chop.Chars(i)
                If a.Length = 3 Then
                    Select Case a
                        Case "000" : b &= 0
                        Case "001" : b &= 1
                        Case "010" : b &= 2
                        Case "011" : b &= 3
                        Case "100" : b &= 4
                        Case "101" : b &= 5
                        Case "110" : b &= 6
                        Case "111" : b &= 7
                    End Select
                    a = ""
                End If
            Next
        Else
            t = chop.Length
            For i = 0 To chop.Length - 1
                a &= chop.Chars(i)
                t = t - 1
                If t - 3 * Math.Round(t / 3, 0) = 0 And i <= 1 Then
                    Select Case a
                        Case "1" : b &= 1
                        Case "10" : b &= 2
                        Case "11" : b &= 3
                    End Select
                    a = ""
                End If
                If a.Length = 3 Then
                    Select Case a
                        Case "000" : b &= 0
                        Case "001" : b &= 1
                        Case "010" : b &= 2
                        Case "011" : b &= 3
                        Case "100" : b &= 4
                        Case "101" : b &= 5
                        Case "110" : b &= 6
                        Case "111" : b &= 7
                    End Select
                    a = ""
                End If
            Next
        End If
        TextBox1.Text = b
    End Sub

Добавлено через 49 минут

Перевод из 2 сс в 16

VB.NET
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
64
65
66
67
68
69
70
71
72
73
74
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim a, b, chop As String
        Dim i As Integer = 0
        Dim t As Integer
        a = ""
        b = ""
        chop = TextBox1.Text
        If chop.Length - 4 * Math.Round(chop.Length / 4, 0) = 0 Then
            For i = 0 To chop.Length - 1
                a &= chop.Chars(i)
                If a.Length = 4 Then
                    Select Case a
                        Case "0000" : b &= 0
                        Case "0001" : b &= 1
                        Case "0010" : b &= 2
                        Case "0011" : b &= 3
                        Case "0100" : b &= 4
                        Case "0101" : b &= 5
                        Case "0110" : b &= 6
                        Case "0111" : b &= 7
                        Case "1000" : b &= 8
                        Case "1001" : b &= 9
                        Case "1010" : b &= "A"
                        Case "1011" : b &= "B"
                        Case "1100" : b &= "C"
                        Case "1101" : b &= "D"
                        Case "1110" : b &= "E"
                        Case "1111" : b &= "F"
                    End Select
                    a = ""
                End If
            Next
        Else
            t = chop.Length
            For i = 0 To chop.Length - 1
                a &= chop.Chars(i)
                t = t - 1
                If t - 4 * Math.Round(t / 4, 0) = 0 And i <= 2 Then
                    Select Case a
                        Case "1" : b &= 1
                        Case "10" : b &= 2
                        Case "11" : b &= 3
                        Case "100" : b &= 4
                        Case "101" : b &= 5
                        Case "110" : b &= 6
                        Case "111" : b &= 7
                    End Select
                    a = ""
                End If
                If a.Length = 4 Then
                    Select Case a
                        Case "000" : b &= 0
                        Case "001" : b &= 1
                        Case "010" : b &= 2
                        Case "011" : b &= 3
                        Case "100" : b &= 4
                        Case "101" : b &= 5
                        Case "110" : b &= 6
                        Case "111" : b &= 7
                        Case "1000" : b &= 8
                        Case "1001" : b &= 9
                        Case "1010" : b &= "A"
                        Case "1011" : b &= "B"
                        Case "1100" : b &= "C"
                        Case "1101" : b &= "D"
                        Case "1110" : b &= "E"
                        Case "1111" : b &= "F"
                    End Select
                    a = ""
                End If
            Next
        End If
        TextBox1.Text = b
    End Sub

@fatalistt · 14.08.2012, 01:31

Divil, можно.
Рассмотри по шагам как у тебя перевод осуществляется:

VB.NET
1
Convert.ToString(Convert.ToInt32(TextBox1.Text,16),8)

1. Берется значение TextBox1
2. Переводится из какой-то системы в десятеричную
2. После чего, полученное число на 2 шаге переводится в нужную систему.

VB.NET
1
2
Convert.ToInt32(TextBox1.Text,16) 'вместо 16 указываешь ИЗ какой системы переводишь
Convert.ToString(Convert.ToInt32(TextBox1.Text,16),8) 'вместо 8 указываешь в какую систему переводить.

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@ZuMiks 124 / 102 / 5 Регистрация: 25.03.2012 Сообщений: 153
	08.08.2012, 19:42
	посмотри в FAQ там все просто и ясно Visual Basic .NET FAQ 2

@Divil 8 / 8 / 10 Регистрация: 11.04.2012 Сообщений: 611
	09.08.2012, 10:19 [ТС]
	огромное спасибо!)) Добавлено через 3 минуты а что делать чтобы можно было из 16 в другие сс переводить? в текст бокс набрал A 16 в 10 и выдал ошибку : Приведение строки "A" к типу "Integer" является недопустимым. или там как то по другому? 0

@ZuMiks 124 / 102 / 5 Регистрация: 25.03.2012 Сообщений: 153
	09.08.2012, 10:31
	да, там надо по другому, это перевод из 10 в любую. А чтобы из других переводить нужно использовать другой код. Какой сказать не могу. Посмотрите на форуме. Думаю есть примеры. 0

@PAnT0P 1492 / 587 / 107 Регистрация: 26.03.2012 Сообщений: 1,039
	09.08.2012, 11:33
	Перевод числа в 20-ю систему счисления Перевод числа в 20-ю систему счисления 0

@Divil 8 / 8 / 10 Регистрация: 11.04.2012 Сообщений: 611
	10.08.2012, 20:48 [ТС]
	а все-таки может кто ответить на мой выше написанный вопрос? 0