1. VisualBasic / Говнокод #9391

    −112

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    'http://www.gotdotnet.ru/files/1003/
    Public Class Form1
        Public massiv(50), massiv1(50) As String
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim a As String
            a = " " + TextBox1.Text
            For i As Integer = 1 To a.Length - 1
                For j As Integer = 1 To 44
                    If a.Substring(i, 1).ToLower = massiv(j) Then
                        TextBox2.Text = TextBox2.Text + massiv1(j)
                        Exit For
                    End If
                Next
            Next
        End Sub
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            massiv(1) = "а"
            massiv(2) = "б"
            massiv(3) = "в"
            massiv(4) = "г"
            massiv(5) = "д"
            massiv(6) = "е"
            massiv(7) = "ё"
            massiv(8) = "ж"
            '...
            massiv(31) = "э"
            massiv(32) = "ю"
            massiv(33) = "я"
            massiv(34) = "1"
            massiv(35) = "2"
            massiv(36) = "3"
            massiv(37) = "4"
            massiv(38) = "5"
            massiv(39) = "6"
            massiv(40) = "7"
            massiv(41) = "8"
            massiv(42) = "9"
            massiv(43) = "0"
            massiv(44) = " "
            '  ////////////////////////////////////////////////////////////////////////////////////
            massiv1(1) = "1"
            massiv1(2) = "2"
            massiv1(3) = "3"
            massiv1(4) = "4"
            massiv1(5) = "5"
            massiv1(6) = "6"
            massiv1(7) = "7"
            massiv1(8) = "8"
            massiv1(9) = "9"
            massiv1(10) = "a"
            massiv1(11) = "b"
            massiv1(12) = "c"
            massiv1(13) = "d"
            '...
            massiv1(31) = "v"
            massiv1(32) = "w"
            massiv1(33) = "x"
            massiv1(34) = "<"
            massiv1(35) = ">"
            massiv1(36) = "!"
            massiv1(37) = "="
            massiv1(38) = "?"
            massiv1(39) = "/"
            massiv1(40) = "@"
            massiv1(41) = "~"
            massiv1(42) = "\"
            massiv1(43) = "-"
            massiv1(44) = "_"
    
        End Sub
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Dim g As String
            g = " " + TextBox1.Text
            For i As Integer = 1 To g.Length - 1
                For j As Integer = 1 To 44
                    If g.Substring(i, 1).ToLower = massiv1(j) Then
                        TextBox2.Text = TextBox2.Text + massiv(j)
                        Exit For
                    End If
                Next
            Next
        End Sub
    End Class

    Запостил: dreesto, 11 Февраля 2012

    Комментарии (7) RSS

    • Забыл описание от автора написать.
      Описание: Абсолютно бестолковая на первый взгляд прога ... Переводит текст на русском в другие символы. Прикольно работать когда имеешь дело с текстовыми документами, юзер не поймет что там в настройках ;)....
      Ответить
    • > massiv
      аррау
      Ответить
    • 'http://www.govnodotnet.ru/9391
      Ответить
    • Прога кагбэ фильтрует ввод и делает LowerCase. Причем в два этапа. По кнопке 1 кириллицу и цифры, по кнопке 2 все остальное. Говнище, да.
      Ответить
    • > Public massiv(50), massiv1(50) As String
      разве massiv не будет типа Variant (Object)?
      Ответить

    Добавить комментарий