Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (2848)
2. C++ (915)
3. C# (817)
4. JavaScript (673)
5. Java (650)
6. Куча (409)
7. Си (337)
8. Pascal (310)
9. SQL (246)
10. ActionScript (216)
11. Python (166)
12. 1C (117)
13. Perl (110)
14. bash (85)
15. Ruby (83)
16. VisualBasic (81)
17. Objective C (66)
18. Assembler (39)

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

   −4

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6
   7. 7

   If Day(Date) = 1 Then
       PreviousDay =  DateSerial(Year(Date), Month(Date), 1) - 1
       date_past_normalized = CStr(PreviousDay)
   else
       PreviousDay = DateSerial(Year(Date), Month(Date), Day(Date)) - 1
       date_past_normalized = CStr(PreviousDay)
   End If

   sopromat, 03 Мая 2012

   Tweet
   Комментарии (2)

2. VisualBasic / Говнокод #10045

   +3

   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

   Sub Ìàêðîñ1()
     Sheets("Îò÷åò_Âêë.1_15-98").Select
       For i = 0 To 25 Step 1
           Sheets(Sheets.Count).Select
           If i = 0 Then
               Range("A:A, B:B").Select
           ElseIf i = 1 Then
               Range("A:A, C:C").Select
           ElseIf i = 2 Then
               Range("A:A, D:D").Select
           ElseIf i = 3 Then
               Range("A:A, E:E").Select
           ElseIf i = 4 Then
               Range("A:A, F:F").Select
           ElseIf i = 5 Then
               Range("A:A, G:G").Select
           ElseIf i = 6 Then
               Range("A:A, H:H").Select
           ElseIf i = 7 Then
               Range("A:A, I:I").Select
           ElseIf i = 8 Then
               Range("A:A, J:J").Select
           ElseIf i = 9 Then
               Range("A:A, K:K").Select
           ElseIf i = 10 Then
               Range("A:A, L:L").Select
           ElseIf i = 11 Then
               Range("A:A, M:M").Select
           ElseIf i = 12 Then
               Range("A:A, N:N").Select
           ElseIf i = 13 Then
               Range("A:A, O:O").Select
           ElseIf i = 14 Then
               Range("A:A, P:P").Select
           ElseIf i = 15 Then
               Range("A:A, Q:Q").Select
           ElseIf i = 16 Then
               Range("A:A, R:R").Select
           ElseIf i = 17 Then
               Range("A:A, S:S").Select
           ElseIf i = 18 Then
               Range("A:A, T:T").Select
           ElseIf i = 19 Then
               Range("A:A, U:U").Select
           ElseIf i = 20 Then
               Range("A:A, V:V").Select
           ElseIf i = 21 Then
               Range("A:A, W:W").Select
           ElseIf i = 22 Then
               Range("A:A, X:X").Select
           ElseIf i = 23 Then
               Range("A:A, Y:Y").Select
           ElseIf i = 24 Then
               Range("A:A, Z:Z").Select
           ElseIf i = 25 Then
               Range("A:A, AA:AA").Select
           End If
           Selection.Copy
           Sheets.Add
           Sheets(Sheets.Count - 1).Select
           Columns("A:A").Select
           ActiveSheet.Paste
       Next i
   End Sub

   Макрос для копирования подряд расположенных столбцов на отдельные листы

   usstass, 25 Апреля 2012

   Tweet
   Комментарии (12)

3. VisualBasic / Говнокод #10024

   +11

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5

   MdlСимметричность.Командная(СтИстБи, ФлагСим, КвоРабЧис)
               If ФлагСим = True Then ' тут мы сохраним столб истинности линейной функции и количество рабочих чисел
                   ФлагСим1 = True 'покажем, что хоть одна функция симметрична
                   СохранимНужнуюФункцию(СчетСим, КвоРабЧисЖмин, КвоРабЧис, СтИстБи, СтИстБиИскомыйСим)
               End If

   Как, пример, как нельзя называть и обзывать переменные и имена функций. Взято отсюда: http://www.sql.ru/forum/actualthread.aspx?tid=934300

   Ciana, 23 Апреля 2012

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

4. VisualBasic / Говнокод #9761

   +1

   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

   For Each elem In dicGroup.Keys
   	prbCurrent.Value = 0
   	prbCurrent.Maximum = dicGroup(elem).Quantit
   	For nS = 0 To dicGroup(elem).Quantit - 1
   		For nQ = 0 To QCount - 1
   			Dim colPL As New List(Of Integer)
   			For nA = 0 To ACount(nQ)
   				colPL.Add(Weight(nQ, nA))
   				For Each elem1 In colRules
   					With elem1
   						If .IsApplayable(elem) Then
   							Dim nEffect As Integer = .CanAffect(QIndexToQkey(nQ))
   							If nEffect > -1 Then colPL(colPL.Count - 1) = CInt(colPL.Last * .Effect(nEffect).GetWeight(.Effect(nEffect).Designator, AIndexToAKey(nQ, nA)) / 100)
   						End If
   					End With
   				Next
   			Next
   			mtxData(elem)(nS)(nQ) = RSelection(colPL)
   			If prbCurrent.Value < prbCurrent.Maximum Then prbCurrent.Value += 1
   			If prbTotal.Value < prbTotal.Maximum Then prbTotal.Value += 1
   			Application.DoEvents()
   		Next
   	Next
   Next

   Попадась на допил (в интерфейс парочку кнопок втыкнуть) и тестирование прога, с праздного любопытства заглянул в ядро, все оно из таких вот "портянок", в сумме почти 10К строчек, коментарии отсутствуют вообще, на весь код нету даже ни одной пустой строчки.
   
   Что самое странное, работает идеально. Поле допила итерфейса тестируем уже вторую неделю, повесить не получилось ни у кого, частично свалили (прервали обработку даных, а прога, впрочем, работала далее, восстановив 2/3 потеряного) тоько на ходу выдерув флешку с даными которые анализировались...
   
   С одной стороны - индусятина, но как хороша!

   DPNET, 26 Марта 2012

   Tweet
   Комментарии (1)

5. VisualBasic / Говнокод #9733

   +9

   1. 1

   Dim KolvoZnakov As String = IIf(SqlUser = "Beschastnova" Or SqlUser = "Rodionova", "00000", "00")

   Для двух привередливых бухов выводим аж 4 знака после запятой.

   axel1000, 22 Марта 2012

   Tweet
   Комментарии (2)

6. VisualBasic / Говнокод #9566

   +3

   1. 1

   Replace(Replace(Replace(Replace(Replace(sht1.Cells(i, 4).Value, "(кратность 4 шт)", ""), "O.F.", ""), "D1ECO", ""), "DECO", ""), "SK", "")

   Удаляем из ячейки Excel одно из возможно встречающихся в ней слов.
   
   Говнокод или вполне нормальный трюк?

   valemak, 28 Февраля 2012

   Tweet
   Комментарии (6)

7. VisualBasic / Говнокод #9440

   +14

   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

   L = InputBox("Введите номер вашего варианта", "Лабораторная работа №2")
   Label4.Caption = L
   
   If L > 50 Then
   MsgBox "Вы не ввели свой вариант, ввод варианта обязателен для корректной работы программы", vbExclamation, "Ошибка"
   L = InputBox("Введите номер вашего варианта", "Лабораторная работа №2")
   Label4.Caption = L
   End If
       If L > 50 Then
           MsgBox "Ошибка. Попробуйте запустить приложение снова и выполнить все действия", vbCritical, "Ошибка"
           End
   
   End If

   Третий раз не спрашиваем...

   vovams, 16 Февраля 2012

   Tweet
   Комментарии (2)

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

   −4

   1. 1
   2. 2

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

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

   ipro, 12 Февраля 2012

   Tweet
   Комментарии (1)

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

   +3

   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

   Tweet
   Комментарии (6)

10. VisualBasic / Говнокод #9220

    +5

    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

    Tweet
    Комментарии (5)

• ← влево
• вправо →

• 9
• 8
• 7
• 6
• 5
• …
• 1