Генерация слова по заданному алгоритму - Visual Basic .NET - Ответ 7399004

@artem0228 · 28.03.2015, 20:05 **[ТС]**

Добавлено через 33 минуты
Alex77755,Можно ли более компактно код сделать этот?

VB.NET

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Test(TextBox1.Text)
        TextBox2.Text = Test(TextBox1.Text)
 
    End Sub
 
    Public Function Test(ByVal T As String)
 
        Select Case (Hex((16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Asc(Mid(T, 3, 1)) - 97) Mod 256))
            Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
                bykva1 = "0" & (Hex((16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Asc(Mid(T, 3, 1)) - 97) Mod 256))
            Case Else
                bykva1 = (Hex((16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Asc(Mid(T, 3, 1)) - 97) Mod 256))
        End Select
 
        Select Case Hex(Asc(Strings.Mid(T, 4, 1)) - 97)
            Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
                bykva4 = "0" & Hex(Asc(Strings.Mid(T, 4, 1)) - 97)
            Case Else
                bykva4 = Hex(Asc(Strings.Mid(T, 4, 1)) - 97)
        End Select
        znach(9) = Hex(Asc(Strings.Mid(T, 5, 1)) - 97)
        Select Case Hex(Asc(Strings.Mid(T, 5, 1)) - 97)
            Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
                bykva5 = "0" & Hex(Asc(Strings.Mid(T, 5, 1)) - 97)
            Case Else
                bykva5 = Hex(Asc(Strings.Mid(T, 5, 1)) - 97)
        End Select
 
        znach(11) = Mid(T, 6)
 
        If IsNumeric(Strings.Mid(T, 3, 1)) = True And IsNumeric(Strings.Mid(T, 4, 1)) = True And IsNumeric(Strings.Mid(T, 5, 1)) = True Then
            If 9 < Mid(T, 6) And Mid(T, 6) < 20 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 6
            ElseIf 19 < Mid(T, 6) And Mid(T, 6) < 30 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 12
            ElseIf 29 < Mid(T, 6) And Mid(T, 6) < 40 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 18
            ElseIf 39 < Mid(T, 6) And Mid(T, 6) < 50 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 24
            ElseIf 49 < Mid(T, 6) And Mid(T, 6) < 60 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 30
            ElseIf 59 < Mid(T, 6) And Mid(T, 6) < 70 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 36
            ElseIf 69 < Mid(T, 6) And Mid(T, 6) < 80 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 42
            ElseIf 79 < Mid(T, 6) And Mid(T, 6) < 90 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 48
            ElseIf 89 < Mid(T, 6) And Mid(T, 6) < 100 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 54
            Else
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6)
            End If
 
            cifra(7) = cifra(6) Mod 256
            znach(3) = Hex(cifra(7))
 
            Select Case znach(3)
                Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
                    znach(3) = "0" & znach(3)
                Case Else
                    znach(3) = znach(3)
            End Select
            Test = (znach(3) & "00" & "00" & "00")
        ElseIf IsNumeric(Strings.Mid(T, 5, 1)) = True And IsNumeric(Strings.Mid(T, 4, 1)) = True Then
            Test = bykva1 & Mid(T, 6) & "00" & "00"
        ElseIf IsNumeric(Strings.Mid(T, 5, 1)) = True Then
            Test = bykva1 & bykva4 & Mid(T, 6) & "00"
        ElseIf IsNumeric(Strings.Mid(T, 4, 1)) = True Then
            Test = bykva1 & bykva5 & Mid(T, 6) & "00"
        Else
            Test = bykva1 & bykva4 & bykva5 & Mid(T, 6)
        End If
 
    End Function

Вернуться к обсуждению:
Генерация слова по заданному алгоритму Visual Basic .NET

Следующий ответ

Другие темы раздела
Visual Basic .NET Заполнение TextBox из БД в соответствии с выбором в ListBox Здравствуйте. Помогите, пожалуйста в проблемке, а то я совсем запутался: Есть БД(Access) с одной таблицей, к примеру: #код - Фамилия - Имя - Отчество - Возраст. На форме ListBox при загрузке заполняется содержимым колонки "Фамилия". Это я сделал. Рядом три TextBox'а соответственно для Имени, Отчества и Возраста. Не могу добиться, чтобы при выборе в ListBox какой либо позиции, в... https://www.cyberforum.ru/ vb-net/ thread1403900.html	Перевести часы в минуты и секунды Visual Basic .NET возникла необходимость в переводе часов в минуты и секунды. Допустим получилось у меня 729 минут вот по такому принципу Minute = DateDiff(DateInterval.Minute, D, T_34_2) как перевести их в понятные для человека формат 12:15:00
Visual Basic .NET Вычислить значение функции Составить программу по формуле y=cosx https://www.cyberforum.ru/ vb-net/ thread1403610.html	Visual Basic .NET Решить ребус, при условии, что разным буквам соответствует разные цифры https://www.cyberforum.ru/ vb-net/ thread1403609.html Решить ребус, при условии, что разным буквам соответствует разные цифры. В VB.NET
Visual Basic .NET Вывести все простые числа до заданного числа включительно Дано натуральное число. Вывести все простые числа до числа заданного включительно. Помогите решить, пожалуйста. Visual Basic 2010 Написать код надо в " Приложение Windows Form "	Visual Basic .NET Проверить, является ли заданное четырехзначное число палиндромом https://www.cyberforum.ru/ vb-net/ thread1403485.html Дано четырехзначное число. Проверить, является ли оно палиндромом (палиндромом называется число, слово или текст, которые одинакового читаются слева направо и справа налево, например, числа 1441, 5555, 7117 и т. д.) Помогите решить, пожалуйста. Visual Basic 2010 Написать код надо в " Приложение Windows Form "
Visual Basic .NET Сохранение данных в word Добрый день. Подскажите пожалуйста как можно решить следующую здачу. На форме имеется PictureBox с картинкой, TextBox с именем картинки и RichTextBox с открытым документом .RTF, имеющим вложенные изображения и таблицы. Каким образом все это сохранить в word? У меня получается или создать документ word и передать в него все, но из RichTextBox передается только текст, или... https://www.cyberforum.ru/ vb-net/ thread1403468.html	Visual Basic .NET Можно ли в открытых файлах txt добавить текст на первую строку? можно ли в открытых файлах txt добавить текст на первую строку? есть несколько открытых файлов txt. необходимо при выборе из combobox записи (текста) и нажатии на кнопку, текст добавлялся во все открытые файлы на первую строку. заранее спасибо за помощь! буду рад любой помощи
Visual Basic .NET Вычислить сумму ряда Вычислить сумму ряда 1+1/2+1/3+⋯+1/n Помогите решить, пожалуйста. Visual Basic 2010 Написать код надо в " Приложение Windows Form " https://www.cyberforum.ru/ vb-net/ thread1403420.html	Visual Basic .NET Изменение размера UserControl при изменении размера элемента на нем https://www.cyberforum.ru/ vb-net/ thread1403343.html Здравствуйте. У меня на UserControl находится TextBox. Выполняю построение. В конструкторе переношу мой UserControl на форму. Меняю в меню свойств UserControl размер шрифта. Изменяются размеры UserControl и TextBox. Как сделать чтобы размер UserControl, в данном случае, жестко зависел от размера TextBox? Например, всегда был на 10 пикселей по ширине и высоте больше TextBox.
Visual Basic .NET Как программно скрыть/показать созданные в конструкторе вкладки TabPages Собственно в названии все понятно. почемуто свойства Show и Hide не хотят этого делать. Кто-нибудь сталкивался?	Visual Basic .NET Вычислить количество положительных, отрицательных и нулевых чисел 26 целых чисел из диапазона вводятся с помощью генератора случайных чисел. Вычис-лить количество положительных, отрицательных и нулевых чисел. Помогите решить, пж. Visual Basic 2010 Написать код надо в " Приложение Windows Form " https://www.cyberforum.ru/ vb-net/ thread1402938.html

	28.03.2015, 20:05