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

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

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

1. PHP (5703)
2. C++ (2740)
3. Куча (2337)
4. JavaScript (2030)
5. C# (1929)
6. Java (1503)
7. Си (1103)
8. Pascal (649)
9. Python (585)
10. 1C (536)
11. SQL (434)
12. ActionScript (294)
13. Objective C (204)
14. bash (200)
15. Perl (196)
16. Assembler (148)
17. Ruby (144)
18. VisualBasic (140)
19. Lua (51)
20. Go (32)
21. Swift (29)
22. Haskell (28)
23. Kotlin (15)

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

   −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
   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

   public static DateTime tString2DateTime(String sDateTime)
   {
   //var
   Int32 iYear=DateTime.Now.Year;
   Int32 iMonth=DateTime.Now.Month;
   Int32 iDay=DateTime.Now.Day;
   Int32 iHour=DateTime.Now.Hour;
   Int32 iMinute=DateTime.Now.Minute;
   Int32 iSecond=DateTime.Now.Second;
   //end var
   try
   {
   iYear=Convert.ToInt32(sDateTime.Substring(0,4));
   try
   {
   iMonth=Convert.ToInt32(sDateTime.Substring(4,2));
   try
   {
   iDay=Convert.ToInt32(sDateTime.Substring(6,2));
   try
   {
   iHour=Convert.ToInt32(sDateTime.Substring(8,2));
   try
   {
   iMinute=Convert.ToInt32(sDateTime.Substring(10,2));
   try
   {
   iSecond=Convert.ToInt32(sDateTime.Substring(12,2));
   }
   catch
   {
   }
   }
   catch
   {
   }
   }
   catch
   {
   }
   }
   catch
   {
   }
   }
   catch
   {
   }
   }
   catch
   {
   }
   return new DateTime(iYear,iMonth,iDay,iHour,iMinute,iSecond);
   }

   а вам слабо?
   Функция имени Максима Прохорова

   ursus, 22 Апреля 2010

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

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

   −94

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

   // Функция, проверяющая совпадение цветов. Переваривает любые типы
   public static Boolean bColor(Object oR1,Object oG1, Object oB1,Object oR2,Object oG2, Object oB2)
   {
   if(!IsByte(oR1) || !IsByte(oR2) || !IsByte(oG1) || !IsByte(oG2) || !IsByte(oB1) || !IsByte(oB2)) return false;
    }

   Имени Максима Прохорова функция

   ursus, 22 Апреля 2010

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

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

   −125.2

   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

   Sub Макрос2()
       Dim pos0, pos1, pos2, pos3, pos4, pos5, pos6, pos7, pos8, pos9, digitPos As Integer
   
       For Counter = 2 To 999999
           digitPos = 1000
       
           Set curCell = Worksheets("Лист1").Cells(Counter, 5)
           Set primCell = Worksheets("Лист1").Cells(Counter, 6)
       
           pos0 = InStr(1, primCell.Value, "0")
           pos1 = InStr(1, primCell.Value, "1")
           pos2 = InStr(1, primCell.Value, "2")
           pos3 = InStr(1, primCell.Value, "3")
           pos4 = InStr(1, primCell.Value, "4")
           pos5 = InStr(1, primCell.Value, "5")
           pos6 = InStr(1, primCell.Value, "6")
           pos7 = InStr(1, primCell.Value, "7")
           pos8 = InStr(1, primCell.Value, "8")
           pos9 = InStr(1, primCell.Value, "9")
           
           If pos0 > 0 And pos0 < digitPos Then
               digitPos = pos0
           End If
           
           If pos1 > 0 And pos1 < digitPos Then
               digitPos = pos1
           End If
           
           If pos2 > 0 And pos2 < digitPos Then
               digitPos = pos2
           End If
           
           If pos3 > 0 And pos3 < digitPos Then
               digitPos = pos3
           End If
           
           If pos4 > 0 And pos4 < digitPos Then
               digitPos = pos4
           End If
           
           If pos5 > 0 And pos5 < digitPos Then
               digitPos = pos5
           End If
           
           If pos6 > 0 And pos6 < digitPos Then
               digitPos = pos6
           End If
           
           If pos7 > 0 And pos7 < digitPos Then
               digitPos = pos7
           End If
           
           If pos8 > 0 And pos8 < digitPos Then
               digitPos = pos8
           End If
           
           If pos9 > 0 And pos9 < digitPos Then
               digitPos = pos9
           End If
           
           'MsgBox Left(primCell.Value, digitPos - 1)
           
           curCell.Value = Trim(Left(primCell.Value, digitPos - 1))
       Next Counter
   End Sub

   Я идиот и не умею программировать в excel!!
   Мне надо было отрезать текст до первой цифры в одной ячейке и засунуть его в другую.
   Наверное, надо было почитать про массивы в VB

   striker, 12 Апреля 2010

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

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

   −132.6

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

   If objRow.IsQuestion_SpecialismNull Then
               '--- ASK DEAN
               Return True
   End If

   Dean - наш тим лид

   6istik, 05 Апреля 2010

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

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

   −130.4

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

   Private Sub Form_AfterInsert() ' событие после вставки новой записи в таблицу table
     runSQL ("UPDATE table set TYPE= 9 where ID = (select max(p.ID) from table p )")
     Me.Form.Requery
   End Sub

   Событие на форме в Access
   А достаточно было просто повесить на форму поле с источником данных TYPE и дефолтовым значением 9.

   vie, 01 Марта 2010

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

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

   −122.2

   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

   Private Sub Form_Load()
   'загрузка изображения
   Dim xx(), yy(), zz()
   Dim i As Integer
   Dim maxx As Integer
   Dim maxy As Integer
   Dim minx As Integer
   Dim miny As Integer
   xx = Array(0#, 1#, 1#, 11#, 11#, 6#, 11#, 1#, 1#, 11#, 11#)
   yy = Array(0#, 11#, 1#, 1#, 6#, 11#, 11#, 11#, 1#, 1#, 11#)
   zz = Array(0#, 11#, 11#, 11#, 11#, 11#, 6#, 1#, 1#, 1#, 1#)
   For i = 1 To 10
    x(i) = xx(i) * 1.5
    y(i) = yy(i) * 1.5
    z(i) = zz(i) * 1.5
    x0(i) = xx(i)
    y0(i) = yy(i)
    z0(i) = zz(i)
   Next
   maxx = 20
   minx = -20
   maxy = 20
   miny = -20
   Picture1.ScaleMode = 0
   Picture1.Scale (minx, maxy)-(maxx, miny)
   Call Angle(210, 30)
   Call Cube(x(), y(), z())
   sd = False
   End Sub

   Вот такая вот куча малопонятного говна

   flash, 21 Января 2010

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

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

   −124.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

   '...
           Dim l0 As New List(Of Integer)
           Dim num = Convert.ToInt32(Console.ReadLine)
           For i = 1 To num Step 1
               Dim nn, nm As Double
               nn = num / i
               nm = Convert.ToInt32(num / i)
               If nn = nm Then
                   l0.Add(i)
               End If
           Next
           If l0.Count = 2 Then
               Console.WriteLine("Number {0} is simply.", num)
           Else
               Console.WriteLine("Number {0} is not simply.", num)
           End If
           Console.ReadKey()
   '...

   Эх, детство, детство... Когда-то нужно было написать программу проверки числа на простоту.

   psina-from-ua, 19 Января 2010

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

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

   −135.9

   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

   Module Module1
   
       Private Const VK_ENTER As UInt32 = &HD
       Private Const KEYEVENTF_KEYUP As UInt32 = &H2
       Declare Auto Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
       Declare Auto Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
       Declare Auto Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
   
   
       Sub Main()
           Console.Title = "AntiPornoAd"
           Console.Write("Подключение к серверу для загрузки списка запрещенных сайтов.")
           Sleep(500)
           Console.Write(".")
           Sleep(500)
           Console.Write(".")
           Sleep(500)
           Console.Write(".")
           Sleep(500)
           Console.Write(".")
           Sleep(500)
           Console.Write(".")
           Sleep(500)
           Console.WriteLine("")
           Console.Title = "Попытка сбора данных об ошибке..."
           Console.WriteLine("По неизвестной причине произошла ошибка в программе")
           Console.WriteLine("Начался сбор данных об ошибке")
           Console.WriteLine("Пожалуйста не закрывайте программу до завершения")
           Dim key As Integer
           Do While True
               key = GetAsyncKeyState(2)
               If key <> 0 Then
                   Sleep(90)
                   keybd_event(VK_ENTER, 0, 0, 0)
                   keybd_event(VK_ENTER, 0, KEYEVENTF_KEYUP, 0)
                   Sleep(50)
               End If
   
           Loop
       End Sub
   End Module

   Попробуйте запустить на компе подруги - масса эмоций гарантирована
   (не будет работать правая кнопка мыши :))

   x0wl, 16 Декабря 2009

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

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

   −124.6

   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

   Function DosToKoi ( TextBlock )
   	FOR TXB = 1 TO LEN( TextBlock )
   		Select Case Asc( Mid( TextBlock, TXB, 1 ) )
   			Case 192 DosToKoi = DosToKoi & Chr(225)
   			Case 193 DosToKoi = DosToKoi & Chr(226)
   			Case 194 DosToKoi = DosToKoi & Chr(247)
   			Case 195 DosToKoi = DosToKoi & Chr(231)
   			Case 196 DosToKoi = DosToKoi & Chr(228)
   			Case 197 DosToKoi = DosToKoi & Chr(229)
   			Case 168 DosToKoi = DosToKoi & Chr(179)
   			Case 198 DosToKoi = DosToKoi & Chr(246)
   			Case 199 DosToKoi = DosToKoi & Chr(250)
   			Case 200 DosToKoi = DosToKoi & Chr(233)
   			Case 201 DosToKoi = DosToKoi & Chr(234)
   			Case 202 DosToKoi = DosToKoi & Chr(235)
   			Case 203 DosToKoi = DosToKoi & Chr(236)
   			Case 204 DosToKoi = DosToKoi & Chr(237)
   			Case 205 DosToKoi = DosToKoi & Chr(238)
   			Case 206 DosToKoi = DosToKoi & Chr(239)
   			Case 207 DosToKoi = DosToKoi & Chr(240)
   			Case 208 DosToKoi = DosToKoi & Chr(242)
   			Case 209 DosToKoi = DosToKoi & Chr(243)
   			Case 210 DosToKoi = DosToKoi & Chr(244)
   			Case 211 DosToKoi = DosToKoi & Chr(245)
   			Case 212 DosToKoi = DosToKoi & Chr(230)
   			Case 213 DosToKoi = DosToKoi & Chr(232)
   			Case 214 DosToKoi = DosToKoi & Chr(227)
   			Case 215 DosToKoi = DosToKoi & Chr(254)
   			Case 216 DosToKoi = DosToKoi & Chr(251)
   			Case 217 DosToKoi = DosToKoi & Chr(253)
   			Case 220 DosToKoi = DosToKoi & Chr(248)
   			Case 219 DosToKoi = DosToKoi & Chr(249)
   			Case 218 DosToKoi = DosToKoi & Chr(255)
   			Case 221 DosToKoi = DosToKoi & Chr(252)
   			Case 222 DosToKoi = DosToKoi & Chr(224)
   			Case 223 DosToKoi = DosToKoi & Chr(241)
   			Case 224 DosToKoi = DosToKoi & Chr(193)
   			Case 225 DosToKoi = DosToKoi & Chr(194)
   			Case 226 DosToKoi = DosToKoi & Chr(215)
   			Case 227 DosToKoi = DosToKoi & Chr(199)
   			Case 228 DosToKoi = DosToKoi & Chr(196)
   			Case 229 DosToKoi = DosToKoi & Chr(197)
   			Case 184 DosToKoi = DosToKoi & Chr(163)
   			Case 230 DosToKoi = DosToKoi & Chr(214)
   			Case 231 DosToKoi = DosToKoi & Chr(218)
   			Case 232 DosToKoi = DosToKoi & Chr(201)
   			Case 233 DosToKoi = DosToKoi & Chr(202)
   			Case 234 DosToKoi = DosToKoi & Chr(203)
   			Case 235 DosToKoi = DosToKoi & Chr(204)
   			Case 236 DosToKoi = DosToKoi & Chr(205)
   			Case 237 DosToKoi = DosToKoi & Chr(206)
   			Case 238 DosToKoi = DosToKoi & Chr(207)
   			Case 239 DosToKoi = DosToKoi & Chr(208)
   			Case 240 DosToKoi = DosToKoi & Chr(210)
   			Case 241 DosToKoi = DosToKoi & Chr(211)
   			Case 242 DosToKoi = DosToKoi & Chr(212)
   			Case 243 DosToKoi = DosToKoi & Chr(213)
   			Case 244 DosToKoi = DosToKoi & Chr(198)
   			Case 245 DosToKoi = DosToKoi & Chr(200)
   			Case 246 DosToKoi = DosToKoi & Chr(195)
   			Case 247 DosToKoi = DosToKoi & Chr(222)
   			Case 248 DosToKoi = DosToKoi & Chr(219)
   			Case 249 DosToKoi = DosToKoi & Chr(221)
   			Case 252 DosToKoi = DosToKoi & Chr(216)
   			Case 251 DosToKoi = DosToKoi & Chr(217)
   			Case 250 DosToKoi = DosToKoi & Chr(223)
   			Case 253 DosToKoi = DosToKoi & Chr(220)
   			Case 254 DosToKoi = DosToKoi & Chr(192)
   			Case 255 DosToKoi = DosToKoi & Chr(209)
   			Case Else DosToKoi = DosToKoi & Mid( TextBlock, TXB, 1 )
   		End Select
   	NEXT
   End Function

   mephist, 27 Ноября 2009

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

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

    −366.8

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

    Public Overrides Function DataChanged() As Boolean
            Const CONST_PROC_NAME = "DataChanged"
            Try
                Return False
            Catch objExcp As Exception
                Me.DisplayMessageBox("Unexpected Exception in " & CONST_CLASS_NAME & "." & CONST_PROC_NAME & " : " & objExcp.Message.ToString, MessageBoxIcon.Error)
            End Try
        End Function

    По суровому закону нашего проекта каждая функция должна быть обернута ловлей эксепшиона. Каждая. Всегда.

    6istik, 24 Ноября 2009

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

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

• 14
• …
• 8
• 7
• 6
• 5
• 4
• 3
• 2
• 1