VBNet - Форум - 010101010101001001000

Вопрос: 010101010101001001000 Добавлено: 06.02.03 17:45

Автор вопроса: AGR

mozete pomo4 plz nuzno napisatj programmu kotoraja ras6ifrovivajet eto :010101010101001001000100000010000101111100010011010110010100010101010010000100100101 (dvoi4nij kod) v 1 texbox vvodi6 eto vo 2 eto prevras4aetsja v normalnij text!!!

Ответить

Ответы Всего ответов: 11

Номер ответа: 1 Автор ответа: Tank Вопросов: 12 Ответов: 17	Профиль \| Цитата \| #1	Добавлено: 06.02.03 19:53
	Ну что ето: 010101010101001001000100000010000101111100010011010110010100010101010010000100100101 двоичный код ето понятно, ты напиши поподробнее по какому правилу ето должно превращаться в нормальный текст Ответить

Номер ответа: 2
Автор ответа:

Zeus

ICQ: 161801353

Вопросов: 63
Ответов: 220

Web-сайт: apirussia.by.ru
Профиль | Цитата | #2

Добавлено: 06.02.03 20:05

цитирую из учебника:

любое целое неотрицательное число с помощью степеней двойки запсывается так:
a(n)*2^n+a(n-1)*2^(n-1)++++++++a(1)*2^1+a(0)*2^0
где
каждый из коэффициентов a(n), a(n-1)...a(1), a(0) - один из 2-х двоичных цифр 0 или 1, причём a(n)=1

Надеюсь поймёте....

Ответить

Номер ответа: 3
Автор ответа:

Дeнис

Вопросов: 14
Ответов: 42

Профиль | Цитата | #3

Добавлено: 06.02.03 23:27

по 8 бит нарезай, потом по стд. функции переводи в 10ю систему, а затем chr(...)

Ответить

Номер ответа: 4
Автор ответа:

Tank

Вопросов: 12
Ответов: 17

Профиль | Цитата | #4

Добавлено: 06.02.03 23:27

Если правильно понял тогда так:

Private Sub Text1_Change()
Dim X, I, A As Long
Dim str As String

str = Text1.Text
X = Len(str)

For I = 0 To X - 1

A = A + CLng(Left(str, 1)) * 2 ^ I
str = Right(str, Len(str) - 1)
Text2.Text = A

Next I
End Sub

Ты попробуй и напиши!

Tank.

Ответить

Номер ответа: 5
Автор ответа:

AGR

Вопросов: 2
Ответов: 7

Профиль | Цитата | #5

Добавлено: 06.02.03 23:44

mne nuzno vsjo v AISCII!!! a ne v cifri )))

Ответить

Номер ответа: 6
Автор ответа:

Goul

Вопросов: 0
Ответов: 29

Профиль | Цитата | #6

Добавлено: 07.02.03 11:31

Тогда так:

Private Sub Command1_Click()
    Dim sRes As String
    Dim I As Long
    Dim N As Byte
    Dim T As Byte
    Dim lLen As Long
    Dim l2DegT As Long

    N = 0
    sRes = ""
    lLen = Len(Text1.Text)
    T = 0
    l2DegT = 1
    For I = 1 To lLen
        N = N + l2DegT * CLng(Mid(Text1.Text, lLen - I + 1, 1))
        T = T + 1
        l2DegT = l2DegT * 2
        If T = 8 Then
            T = 0
            l2DegT = 1
            s = Chr(N) & s
            N = 0
        End If
    Next I
    Text2.Text = s
End Sub

Ответить

Номер ответа: 7
Автор ответа:

AGR

Вопросов: 2
Ответов: 7

Профиль | Цитата | #7

Добавлено: 07.02.03 17:01

spasibo Goul no kak obratno s bukv v dvoi4nij kod L esli ne zatrudnit napi6i plz!!!

Ответить

Номер ответа: 8
Автор ответа:

Goul

Вопросов: 0
Ответов: 29

Профиль | Цитата | #8

Добавлено: 07.02.03 17:29

Добавим ещё одну кнопку:

Private Sub Command2_Click()
    Dim lLen As Long
    Dim I As Long
    Dim N As Byte
    Dim sRes As String
    Dim l2DegT As Byte

    lLen = Len(Text2.Text)
    sRes = ""
    For I = 1 To lLen
        N = Asc(Mid(Text2.Text, I, 1))
        l2DegT = 128
        While l2DegT >= 1
            If N >= l2DegT Then
                sRes = sRes & "1"
                N = N - l2DegT
            Else
                sRes = sRes & "0"
            End If
            l2DegT = l2DegT / 2
        Wend
    Next I
    Text1.Text = sRes
End Sub

Можно бы, конечно, и пооптимальнее...

Ответить

Номер ответа: 9 Автор ответа: Страшный Сон Вопросов: 46 Ответов: 848	Профиль \| Цитата \| #9	Добавлено: 09.02.03 15:16
	А я программку такую написал - преобразует десятичное число в шестнадцатеричное, восьмиричное, двоичное, а также в двухсотпятидесятишестеричное и в стадвадцативосьмиричное, и обратно! Классная вещь. Ответить

Номер ответа: 10
Автор ответа:

AGR

Вопросов: 2
Ответов: 7

Профиль | Цитата | #10

Добавлено: 10.02.03 00:03

stra6nij son moz kinutj ejo na mail agr@inbox.lv

Ответить

Номер ответа: 11 Автор ответа: Страшный Сон Вопросов: 46 Ответов: 848	Профиль \| Цитата \| #11	Добавлено: 10.02.03 21:54
	Выслал. Ответить

Страница: 1 |