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

    −110

    1. 1
    2. 2
    If f <> "" Then Shell(Path, AppWinStyle.Hide)
            If f = "" Then Shell(Path)

    Угу, про Else тогда еще не слышали :)

    ipro, 12 Февраля 2012

    Комментарии (1)
  2. 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)
  3. VisualBasic / Говнокод #9220

    −98

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    For I = nrow_Start To nrow_Stop
        Do
            If Nrow_Frm1 = I Then Exit Do
            If Nrow_Frm2 = I Then Exit Do
            If Nrow_Frm3 = I Then Exit Do
            If Nrow_Frm4 = I Then Exit Do
        
            Cells(I, ncol_Period).FormulaR1C1 = formula
        Loop While False
    Next I

    И такое встречается..

    hexman, 25 Января 2012

    Комментарии (5)
  4. VisualBasic / Говнокод #9200

    −107

    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
    GraphicsWindow.Width = 640
    GraphicsWindow.Height = 480
    
    GraphicsWindow.PenColor = "Yellow" 
    For i = 0 To 250
      GraphicsWindow.DrawLine(0 + i, 480 - i, 640 - i, 480 - i )
    EndFor
    
    GraphicsWindow.PenColor = "Orange"
    For i = 0 To 250 Step 10
      GraphicsWindow.DrawLine(0 + i, 480 - i, 640 - i, 480 - i)
    EndFor
    
    GraphicsWindow.BrushColor = "SteelBlue"
    GraphicsWindow.FillRectangle (0,0, 640 , 230)
    GraphicsWindow.BrushColor = "lightGreen"
    GraphicsWindow.FillTriangle(0, 480, 0, 230, 250, 230)
    GraphicsWindow.FillTriangle(640, 480, 640, 230, 390, 230)
    
    GraphicsWindow.BrushColor = "Orange"
    GraphicsWindow.FillEllipse (10, 30, 50, 50)  
    
    GraphicsWindow.PenColor = "Yellow"
    Turtle.Show()
    y = 0
    For i = 0 To 360 Step 30
    Turtle.X =35
    Turtle.Y = 55
    Turtle.Angle = i
    Turtle.PenUp()
    Turtle.Move(25)
    Turtle.PenDown()
    If y = 1 Then
      Turtle.Move(10)
      y = 0
    else  
      Turtle.Move(20)
      y = 1
    endif
    endfor

    KotoFey1ch, 23 Января 2012

    Комментарии (4)
  5. VisualBasic / Говнокод #9199

    −106

    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
    Turtle.Show()
    Turtle.Move (200)
    Turtle.TurnRight()
    Turtle.TurnRight()
    Turtle.Move(100)
    Turtle.TurnLeft()
    Turtle.Move(100)
    Turtle.TurnRight()
    Turtle.Move(100)
    Turtle.TurnRight()
    Turtle.TurnRight()
    Turtle.Move(200)
    
    Turtle.PenUp()
    Turtle.MoveTo(500, 0)
    Turtle.MoveTo(500, 250)
    Turtle.PenDown()
    Turtle.Angle = 0
    Turtle.Move(180)
    Turtle.PenUp()
    Turtle.Move(10)
    Turtle.PenDown()
    Turtle.Move(3)

    KotoFey1ch, 23 Января 2012

    Комментарии (15)
  6. VisualBasic / Говнокод #8538

    −94

    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
    ' ==== Пример №1 ====
    strParentAsset = "Parent_Asset_OnetoOneRelationship_Child_NewEarlyStaged"
    strChildAsset = "ChildAssetArray_NewEarlyStaged"
    strArrAssetList = Split(strParentAsset & "," & strChildAsset, ",")
    
    ' ==== Пример №2 ====
    strProjectNames="" & strTODO_Project & "1," & strTODO_Project & "2," & strTODO_Project & "3," & strTODO_Project & "4," & strTODO_Project & "5," & strTODO_Project & "6," & strTODO_Project & "7," & strTODO_Project & "8," & strTODO_Project & "9," & strTODO_Project & "10," & strTODO_Project & "11," & strTODO_Project & "12," & strTODO_Project & "13," & strTODO_Project & "14," & strTODO_Project & "15," & strTODO_Project & "16," & strTODO_Project & "17," & strTODO_Project & "18," & strTODO_Project & "19," & strTODO_Project & "20," & strTODO_Project & "21," & strATG_TODO_PROJECT22
    strArrProjectNames= Split(strProjectNames,",")
    
    ' ==== Пример №3 ====
    Dim strWeekday
    ...
    ReDim strWeekday(7)
    strWeekday(1)= "Sun":strWeekday(2)= "Mon":strWeekday(3)= "Tue":strWeekday(4)= "Wed":strWeekday(5)= "Thu":strWeekday(6)= "Fri":strWeekday(7)= "Sat"

    Примеры создания массивов из QTP-проекта, написанного индусами

    Lurker, 16 Ноября 2011

    Комментарии (0)
  7. VisualBasic / Говнокод #8534

    −93

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    ' Return the current date & time converted to GMT in string format
    Public Function gf_GetGMTDateTimeString
    	Dim strDateTime
    	strDateTime=FormatDateTime(date(),vbgeneraldate) & " " & FormatDateTime(now(),vblongtime)
    	strDateTime=DateAdd("h", -5, strDateTime)
    	strDateTime=DateAdd("n", -30, strDateTime)
    	gf_GetGMTDateTimeString=strDateTime
    End Function

    Код из проекта на QTP, написанного индусами
    P.S. UTC+05:30 это Индия, для тех кто не понял

    Lurker, 16 Ноября 2011

    Комментарии (84)
  8. VisualBasic / Говнокод #8319

    −148

    1. 1
    2. 2
    Begin Brahman
    О чем молчат брахманы

    Брехем.

    alexoy, 27 Октября 2011

    Комментарии (4)
  9. VisualBasic / Говнокод #8248

    −149

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    Dim a as Stack
    Dim b as Stack
    
    For n :=8 to 1:
        a.Push 1
        b.Push 1 xor n
        if n xor 1 = 1 then
        begin
             a.push(b) b.push(a)
        end
    end

    Мультивложенные стеки
    Операции за О(1)
    Вставка, забывчивость
    О(1)
    Извлечение в От (1)
    От - О с чертой
    Константа, короче говоря.
    Настоящий стек.

    alexoy, 19 Октября 2011

    Комментарии (9)
  10. VisualBasic / Говнокод #8246

    −83

    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
    Sub Main()
            Dim MyArray() As Integer
            Dim start As Integer
            Dim ends As Integer
            Dim i As Integer
    
    
    
            For i = 0 To 10
    
    
    
                MyArray(i) = Console.ReadLine()
    
                i = i + 1
    
            Next
    
            'start = Console.Read
    
    
    
    
            Console.ReadKey()
        End Sub
    
    End Module

    как присвоить элементы массива значение введенное с клавиатуры?

    smitty, 19 Октября 2011

    Комментарии (11)