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

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

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

1. PHP (5703)
2. C++ (2737)
3. Куча (2343)
4. JavaScript (2028)
5. C# (1928)
6. Java (1502)
7. Си (1108)
8. Pascal (647)
9. Python (583)
10. 1C (535)
11. SQL (432)
12. ActionScript (292)
13. Objective C (202)
14. bash (198)
15. Perl (194)
16. Assembler (146)
17. Ruby (145)
18. VisualBasic (138)
19. Lua (49)
20. Go (30)
21. Swift (27)
22. Haskell (26)
23. Kotlin (14)

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

   −111

   1. 001
   2. 002
   3. 003
   4. 004
   5. 005
   6. 006
   7. 007
   8. 008
   9. 009
   10. 010
   11. 011
   12. 012
   13. 013
   14. 014
   15. 015
   16. 016
   17. 017
   18. 018
   19. 019
   20. 020
   21. 021
   22. 022
   23. 023
   24. 024
   25. 025
   26. 026
   27. 027
   28. 028
   29. 029
   30. 030
   31. 031
   32. 032
   33. 033
   34. 034
   35. 035
   36. 036
   37. 037
   38. 038
   39. 039
   40. 040
   41. 041
   42. 042
   43. 043
   44. 044
   45. 045
   46. 046
   47. 047
   48. 048
   49. 049
   50. 050
   51. 051
   52. 052
   53. 053
   54. 054
   55. 055
   56. 056
   57. 057
   58. 058
   59. 059
   60. 060
   61. 061
   62. 062
   63. 063
   64. 064
   65. 065
   66. 066
   67. 067
   68. 068
   69. 069
   70. 070
   71. 071
   72. 072
   73. 073
   74. 074
   75. 075
   76. 076
   77. 077
   78. 078
   79. 079
   80. 080
   81. 081
   82. 082
   83. 083
   84. 084
   85. 085
   86. 086
   87. 087
   88. 088
   89. 089
   90. 090
   91. 091
   92. 092
   93. 093
   94. 094
   95. 095
   96. 096
   97. 097
   98. 098
   99. 099
   100. 100

   Set rs = CurrentDb.OpenRecordset(sql, dbOpenDynaset)
       If rs.RecordCount > 0 Then
           rs.MoveLast
           rscnt = rs.RecordCount
           rs.MoveFirst
           If rscnt >= 2 Then
               ApllyActions = 1
               lActionText.Visible = True
               rs.Edit
               rs!Cost = rs!CostSrc * (100 - discount) / 100
               rs!Summa = rs!CostSrc * (100 - discount) / 100
               rs!discount = -discount
               rs.Update
               If rscnt >= 4 Then
                   rs.MoveNext
                   rs.Edit
                   rs!Cost = rs!CostSrc * (100 - discount) / 100
                   rs!Summa = rs!CostSrc * (100 - discount) / 100
                   rs!discount = -discount
                   rs.Update
                   If rscnt >= 6 Then
                       rs.MoveNext
                       rs.Edit
                       rs!Cost = rs!CostSrc * (100 - discount) / 100
                       rs!Summa = rs!CostSrc * (100 - discount) / 100
                       rs!discount = -discount
                       rs.Update
                       If rscnt >= 8 Then
                           rs.MoveNext
                           rs.Edit
                           rs!Cost = rs!CostSrc * (100 - discount) / 100
                           rs!Summa = rs!CostSrc * (100 - discount) / 100
                           rs!discount = -discount
                           rs.Update
                           If rscnt >= 10 Then
                               rs.MoveNext
                               rs.Edit
                               rs!Cost = rs!CostSrc * (100 - discount) / 100
                               rs!Summa = rs!CostSrc * (100 - discount) / 100
                               rs!discount = -discount
                               rs.Update
                               If rscnt >= 12 Then
                                   rs.MoveNext
                                   rs.Edit
                                   rs!Cost = rs!CostSrc * (100 - discount) / 100
                                   rs!Summa = rs!CostSrc * (100 - discount) / 100
                                   rs!discount = -discount
                                   rs.Update
                                   If rscnt >= 14 Then
                                       rs.MoveNext
                                       rs.Edit
                                       rs!Cost = rs!CostSrc * (100 - discount) / 100
                                       rs!Summa = rs!CostSrc * (100 - discount) / 100
                                       rs!discount = -discount
                                       rs.Update
                                       If rscnt >= 16 Then
                                           rs.MoveNext
                                           rs.Edit
                                           rs!Cost = rs!CostSrc * (100 - discount) / 100
                                           rs!Summa = rs!CostSrc * (100 - discount) / 100
                                           rs!discount = -discount
                                           rs.Update
                                           If rscnt >= 18 Then
                                               rs.MoveNext
                                               rs.Edit
                                               rs!Cost = rs!CostSrc * (100 - discount) / 100
                                               rs!Summa = rs!CostSrc * (100 - discount) / 100
                                               rs!discount = -discount
                                               rs.Update
                                               If rscnt >= 20 Then
                                                   rs.MoveNext
                                                   rs.Edit
                                                   rs!Cost = rs!CostSrc * (100 - discount) / 100
                                                   rs!Summa = rs!CostSrc * (100 - discount) / 100
                                                   rs!discount = -discount
                                                   rs.Update
                                                   If rscnt >= 22 Then
                                                       rs.MoveNext
                                                       rs.Edit
                                                       rs!Cost = rs!CostSrc * (100 - discount) / 100
                                                       rs!Summa = rs!CostSrc * (100 - discount) / 100
                                                       rs!discount = -discount
                                                       rs.Update
                                                       If rscnt >= 24 Then
                                                           rs.MoveNext
                                                           rs.Edit
                                                           rs!Cost = rs!CostSrc * (100 - discount) / 100
                                                           rs!Summa = rs!CostSrc * (100 - discount) / 100
                                                           rs!discount = -discount
                                                           rs.Update
                                                       End If
                                                   End If
                                               End If
                                           End If
                                       End If
                                   End If
                               End If
                           End If
                       End If
                   End If

   Код старшего программиста для проведения продажи "3 товара по цене двух". Опыт -10 лет. Если в чеке единиц товара больше 24, => не сработает.

   Запостил: Reg0804, 26 Января 2015

   Tweet

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

   • pushistayapodmyshka 26.01.2015 18:37 # +20

     Может быть, он прикалывается.
     И вообще, серьёзные программисты не занимаются подобным. Настоящий разработчик разрабатывает абстрактные фабрики, а вся эта мелочная возня с товарами, чеками и т.д. – удел студентиков-быдлокодеров.

     Ответить

     • Reg0804 26.01.2015 18:46 # +14

       Не прикалывается, а очень серьезно))

       Ответить

   • Vasiliy 26.01.2015 21:27 # +24

     > Код старшего программиста
     >VisualBasic
     Тонко

     Ответить

     • bormand 26.01.2015 21:35 # +22

       > старшего
       По возрасту.

       Ответить

       • Dummy00001 26.01.2015 22:20 # +22

         стаж работы - "-10 лет" - переполнился, или в минус скатывается с годами?

         Ответить

         • bormand 26.01.2015 22:48 # +17

           > переполнился, или в минус скатывается с годами
           Еще не начинал. Вот подрастёт, и через 10 лет начнёт.

           Ответить

           • 1024-- 27.01.2015 00:09 # +16

             superhackkiller1997 02.07.2013 18:42
             Живу сам по себе с 17лет, да и вообще какая тебе разница? Я конкретно описал тебе - почему твйо код говно, а ты начинаешь сливаться на родителей
             
             UncleAli 02.07.2013 22:33
             Слушай, а что значит число 1997 в твоем нике? Just curious.
             
             superhackkiller1997 02.07.2013 22:44
             То, что я в следующем году женюсь и ухожу из дома.
             
             http://govnokod.ru/13280#comment185346

             Ответить

             • 3.14159265 27.01.2015 04:30 # +14

               >Слушай, а что значит число 1997 в твоем нике? Just curious.
               >То, что я в следующем году женюсь и ухожу из дома.
               
               Бляя. Великолепно. Он поехавший абсолютно.

               Ответить

               • defecate-plusplus 27.01.2015 11:44 # +13

                 я приеду с лопатой...

                 Ответить

               • inkanus-gray 27.01.2015 14:11 # +11

                 Ну зачем? Все ж мы люди...

                 Ответить

             • kegdan 28.01.2015 00:40 # −8

               показать все, что скрытоМожет и правда женился и ушел...
               Поможем найти парня, родители волнуются поди

               Ответить

         • kegdan 28.01.2015 00:37 # −5

           показать все, что скрыто"-10" это аллюзия "гвоздь - костыль - колесо"

           Ответить

   • myaut 27.01.2015 00:45 # +18

     Так вот откуда эти "не больше X товаров в одни руки".

     Ответить

   • pl7ofit 31.01.2015 20:55 # +6

     вот не знаю вижуал бейсик, но ветвления такие сделать мог лишь говнокодер.

     Ответить

   • MAKAKA 21.05.2020 05:21 # 0

     End If
                                                     End If
                                                 End If
                                             End If
                                         End If
                                     End If
                                 End If
                             End If
                         End If
                     End If

     
     
     молчи, грусть, молчи

     Ответить

     • KOPOHABuPYC 21.05.2020 14:10 # 0

       А кашлять можно? Кхе-кхе-кхе!

       Ответить

       • jojaxon 21.05.2020 14:11 # 0

         можно, но только кровью

         Ответить

         • KOPOHABuPYC 21.05.2020 14:18 # +1

           Ваше желание скоро исполнится.

           Ответить

           • guest3 06.12.2020 19:17 # 0

             ЛОООЛ

             Ответить

         • guest8 21.05.2020 14:36 # −999

           показать все, что скрытоvanished

           Ответить

         • guest8 21.05.2020 14:38 # −999

           показать все, что скрытоvanished

           Ответить

         • MAKAKA 06.12.2020 15:59 # +1

           уёбку ответил

           Ответить

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

   Ошибка компиляции комментария:

   1. Гости могут высказаться только во вторник, пятницу или субботу

   Помни, guest, за тобой могут следить!

   А не использовать ли нам bbcode?

   • [b]жирный[/b] — жирный
   • [i]курсив[/i] — курсив
   • [u]подчеркнутый[/u] — подчеркнутый
   • [s]перечеркнутый[/s] — перечеркнутый
   • [blink]мигающий[/blink] — мигающий
   • [color=red]цвет[/color] — цвет (подробнее)
   • [size=20]размер[/size] — размер (подробнее)
   • [code=<language>]some code[/code] (подробнее)

   Проверочный код: *