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

    • ava dreesto 11.02.2012 15:07 # 0

      Забыл описание от автора написать.
      Описание: Абсолютно бестолковая на первый взгляд прога ... Переводит текст на русском в другие символы. Прикольно работать когда имеешь дело с текстовыми документами, юзер не поймет что там в настройках ;)....
      Ответить

    • ava roman-kashitsyn 11.02.2012 15:22 # +4

      > massiv
      аррау
      Ответить

    • ava Lure Of Chaos 11.02.2012 15:43 # −2

      'http://www.govnodotnet.ru/9391
      Ответить

    • ava guest 11.02.2012 22:44 # −2

      Прога кагбэ фильтрует ввод и делает LowerCase. Причем в два этапа. По кнопке 1 кириллицу и цифры, по кнопке 2 все остальное. Говнище, да.
      Ответить

    • ava Serabas 04.05.2012 12:52 # 0

      > Public massiv(50), massiv1(50) As String
      разве massiv не будет типа Variant (Object)?
      Ответить

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