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

    −103

    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
    Dim tmpStr As String = ""
    
            If E >= 100 And E <= 109 Then tmpStr = "Жёлтый"
            If E >= 110 And E <= 119 Then tmpStr = "Оранжевый"
            If E >= 120 And E <= 129 Then tmpStr = "Красный"
            If E >= 130 And E <= 139 Then tmpStr = "Синий/Фиолетовый"
            If E >= 140 And E <= 149 Then tmpStr = "Зелёный"
            If E >= 150 And E <= 159 Then tmpStr = "Коричневый/Чёрный"
            If E >= 160 And E <= 199 Then tmpStr = "Другие"
    
            If E >= 200 And E <= 209 Then tmpStr = "Сорбат"
            If E >= 210 And E <= 219 Then tmpStr = "Бензоат"
            If E >= 220 And E <= 229 Then tmpStr = "Сульфит"
            If E >= 230 And E <= 239 Then tmpStr = "Фенол/Формиат(метаноат)"
            If E >= 240 And E <= 259 Then tmpStr = "Нитрат"
            If E >= 260 And E <= 269 Then tmpStr = "Ацетат (этаноат)"
            If E >= 270 And E <= 279 Then tmpStr = "Лактат"
            If E >= 280 And E <= 289 Then tmpStr = "Пропиноат (пропаноат)"
            If E >= 290 And E <= 299 Then tmpStr = "Другие"
    
            If E >= 300 And E <= 305 Then tmpStr = "Сорбат"
            If E >= 306 And E <= 309 Then tmpStr = "Бензоат"
            If E >= 310 And E <= 319 Then tmpStr = "Сульфит"
            If E >= 320 And E <= 329 Then tmpStr = "Фенол/Формиат(метаноат)"
            If E >= 330 And E <= 339 Then tmpStr = "Нитрат"
            If E >= 340 And E <= 349 Then tmpStr = "Ацетат (этаноат)"
            If E >= 350 And E <= 359 Then tmpStr = "Лактат"
            If E >= 360 And E <= 369 Then tmpStr = "Пропиноат (пропаноат)"
            If E >= 370 And E <= 399 Then tmpStr = "Другие"
    
            If E >= 400 And E <= 409 Then tmpStr = "Альгинат"
            If E >= 410 And E <= 419 Then tmpStr = "Камедь"
            If E >= 420 And E <= 429 Then tmpStr = "Природное вещество"
            If E >= 430 And E <= 439 Then tmpStr = "Соединение полиоксиэтилена"
            If E >= 440 And E <= 449 Then tmpStr = "Природный эмульгатор"
            If E >= 450 And E <= 459 Then tmpStr = "Фосфат"
            If E >= 460 And E <= 469 Then tmpStr = "Соединение целлюлозы"
            If E >= 470 And E <= 489 Then tmpStr = "Соединение жирных кислот"
            If E >= 490 And E <= 499 Then tmpStr = "Другие"
    
            If E >= 500 And E <= 509 Then tmpStr = "Неорганическая кислота/основание"
            If E >= 510 And E <= 519 Then tmpStr = "Хлорид/Сульфат"
            If E >= 520 And E <= 529 Then tmpStr = "Сульфат/Гидроксид"
            If E >= 530 And E <= 549 Then tmpStr = "Соединение щелочных металлов"
            If E >= 550 And E <= 559 Then tmpStr = "Силикат"
            If E >= 570 And E <= 579 Then tmpStr = "Стеарат/Глюконат"
            If E >= 580 And E <= 599 Then tmpStr = "Другие"
    
            If E >= 620 And E <= 629 Then tmpStr = "Глютамат"
            If E >= 630 And E <= 639 Then tmpStr = "Инозинат"
            If E >= 640 And E <= 649 Then tmpStr = "Другие"
    
            If E >= 900 And E <= 909 Then tmpStr = "Воск"
            If E >= 910 And E <= 919 Then tmpStr = "Глазирователь"
            If E >= 920 And E <= 929 Then tmpStr = "Вещество, улучшающее мучное изделие"
            If E >= 930 And E <= 949 Then tmpStr = "Газ для упаковки"
            If E >= 950 And E <= 969 Then tmpStr = "Подсластитель"
            If E >= 990 And E <= 999 Then tmpStr = "Пенообразователь"

    Мой очень древний высер - программка на определение пищевых добавок "Е". Похожих фрагментов есть ещё несколько. И не лень было печатать! Select Case сюда бы больше подошёл, но я о нём тогда не знал.

    RaZeR, 10 Января 2011

    Комментарии (3)
  2. VisualBasic / Говнокод #5198

    −102

    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
    Private Sub DoIt()
            System.Threading.Thread.Sleep(3000)
            SetCursorPos(1012, 373)
            LeftClick()
            
            System.Threading.Thread.Sleep(4000)
            SetCursorPos(526, 273)
            LeftClick()
            
            System.Threading.Thread.Sleep(2000)
            SetCursorPos(412, 330)
            LeftClick()
           
            System.Threading.Thread.Sleep(3000)
            SetCursorPos(414, 503)
            LeftClick()
            
            System.Threading.Thread.Sleep(5000)
            SetCursorPos(659, 333)
            LeftClick()
           
            System.Threading.Thread.Sleep(3000)
            SetCursorPos(622, 390)
            LeftClick()
            
            System.Threading.Thread.Sleep(7000)
            SetCursorPos(659, 333)
            LeftClick()
    
            System.Threading.Thread.Sleep(3000)
            SetCursorPos(622, 390)
            LeftClick()
    
            System.Threading.Thread.Sleep(8000)
            SetCursorPos(659, 333)
            LeftClick()
    
            System.Threading.Thread.Sleep(2000)
            SetCursorPos(622, 390)
            LeftClick()
    
            System.Threading.Thread.Sleep(6000)
            SetCursorPos(659, 333)
            LeftClick()
    
            System.Threading.Thread.Sleep(3000)
            SetCursorPos(622, 390)
            LeftClick()
    
            System.Threading.Thread.Sleep(5000)
            SetCursorPos(660, 533)
            LeftClick()
        End Sub

    Мой древний код одного кликера. Обратите внимание на отличный способ таймаута между командами (а ведь у проги и GUI есть, как его так обновлять?) Как потом позже скажет один мой знакомый - "Время между командами - важно".

    RaZeR, 10 Января 2011

    Комментарии (1)
  3. VisualBasic / Говнокод #4759

    −109

    1. 1
    23, 0x8e, 0xc9, 0x5a, 0x19, 0x1f, 0x5d, 0xea, 0xe7, 0xb1, 0xae, 0x72, 0xf8, 0x8f, 0xed, 0x54, 0x45, 0x5f, 0x29, 0xf, 0xee, 0x3f, 0xb8, 0xe0, 0xfc, 0x53, 0x3d, 0x9c, 0xa4, 0x75, 0xb7, 0xee, 0x58, 0xda, 0xf1, 0x35, 0x9b, 0x26, 0xb6, 0x35, 0x8d, 0x46, 0xbb, 0x52, 0xf5, 0x44, 0x4e, 0x8a, 0x5, 0x7f, 0x20, 0xda, 0x99, 0xc4, 0xec, 0xd3, 0xdd, 0xb6, 0x89, 0x1f, 0x1b, 0x1d, 0x26, 0x89, 0x61, 0x73, 0x95, 0x51, 0xdf, 0xcd, 0xa7, 0x3e, 0x56, 0xaa, 0x22, 0xe7, 0x26, 0x93, 0x94, 0xef, 0xcb, 0xb4, 0x6d, 0x1f, 0x68, 0x83, 0xef, 0x36, 0x15, 0x19, 0x5f, 0x3d, 0x74, 0xab, 0x93, 0x2a, 0xf5, 0x4f, 0x9a, 0x9e, 0x9c, 0x14, 0xaf, 0xda, 0x79, 0x1f, 0x25, 0xbd, 0x5e, 0x4d, 0xea, 0x16, 0x52, 0xdb, 0xab, 0xbb, 0x57, 0x82, 0xd5, 0x4d, 0x4f, 0xf3, 0xa6, 0x35, 0x39, 0x72, 0xb8, 0xc6, 0x57, 0x18, 0xf2, 0x21, 0xeb, 0x9d, 0xfb, 0xcf, 0x63, 0x6c, 0x9f, 0x41, 0xe2, 0xbb, 0x3e, 0x6f, 0x8f, 0x16, 0xaf, 0x40, 0x13, 0xed, 0x1c, 0x2a, 0xac, 0x91, 0x36, 0xee, 0xfb, 0xae, 0xe5, 0xf9, 0xf0, 0xf9, 0x1a, 0xf7, 0xb9, 0x1a, 0xc5, 0x5e, 0xb8, 0x5d, 0x2a, 0x8a, 0xe5, 0xf3, 0xf5, 0xc1, 0xef, 0x77, 0xe0, 0xdb, 0x64, 0xb5, 0xdf, 0x2e, 0xd4, 0xc7, 0x54, 0xbb, 0x1a, 0x6a, 0x8b, 0x43, 0xdc, 0xad, 0x73, 0x9b, 0xd5, 0x11, 0x75, 0x2a, 0xe3, 0x3e, 0x74, 0x35, 0x66, 0x5a, 0xc7, 0x2b, 0xde, 0x61, 0xb1, 0x2c, 0x4c, 0xe3, 0xd6, 0x65, 0x64, 0x6f, 0x73, 0x5b, 0x22, 0x2c, 0x98, 0x7a, 0x35, 0x70, 0x8e, 0x4c, 0x40, 0xbd, 0xa0, 0x58, 0x71, 0x6b, 0x9b, 0x95, 0xbd, 0xa6, 0x37, 0x6e, 0x71, 0x49, 0x15, 0x98, 0xd5, 0x58, 0xae, 0x95, 0xaa, 0xc7, 0x48, 0xd4, 0x44, 0x56, 0xbf, 0xb, 0xde, 0x5c, 0x94, 0x7c, 0x6b, 0x91, 0xae, 0xfc, 0xcb, 0x2e, 0x5a, 0xdf, 0x65, 0x5a, 0xce, 0x6b, 0x55, 0xaa, 0xff, 0x0, 0x13, 0x3a, 0xb3, 0xf3, 0x19, 0x8c, 0x60, 0xbc, 0x0, 0x0, 0x0, 0x0, 0x3, 0x19, 0xf9, 0xfd, 0x9d, 0xa7, 0x96, 0xda, 0xad, 0xbb, 0xd8, 0x72, 0x6d, 0xf2, 0xb5, 0x56, 0xbe, 0xaf, 0xa3, 0x66, 0xbd, 0x2e, 0x62, 0xf4, 0x4e, 0xce, 0x8a, 0xd3, 0x9e, 0xfd, 0xca, 0xfc, 0x83, 0x97, 0xed, 0x6c, 0xdb, 0x55, 0x66, 0x8a, 0x92, 0xb6, 0x49, 0x66, 0x44, 0x54, 0x6f, 0xa8, 0xff, 0x0, 0x11, 0xdd, 0xbe, 0x4e, 0x88, 0x99, 0xf3, 0xa9, 0xb2, 0xbb, 0xb7, 0x50, 0xbe, 0xd4, 0x65, 0xda, 0xf1, 0xd8, 0x46, 0xfc, 0x5d, 0x6d, 0x45, 0x56, 0xf7, 0x2f, 0x6a, 0xa, 0x5b, 0x6d, 0xa, 0xd, 0x56, 0xd2, 0xaf, 0x1d, 0x74, 0x77, 0xc6, 0xd0, 0xd4, 0x45, 0x77, 0x7a, 0xf6, 0xa8, 0x19, 0xbf, 0xdc, 0x7f, 0x71, 0xc1, 0xf8, 0xa6, 0x7b, 0x39, 0x4d, 0x35, 0x1f, 0xb9, 0x57, 0xfa, 0xa6, 0x7f, 0x6a, 0x1f, 0x6c, 0xd4, 0xab, 0x6d, 0x89, 0x1d, 0xb8, 0x23, 0xb1, 0x1a, 0x2e, 0xa4, 0x64, 0xac, 0x6c, 0x8d, 0x47, 0x22, 0x63, 0x38, 0x72, 0x2f, 0x5e, 0xa4, 0xad, 0x6b, 0x5a, 0xd4, 0x6b, 0x51, 0x1a, 0xd6, 0xa6, 0x11, 0x13, 0xa2, 0x22, 0x20, 0x1f, 0x4a, 0x2e, 0x5b, 0xb1, 0xbf, 0x79, 0xdb, 0x34, 0xc1, 0xf7, 0xba, 0xee, 0xf1, 0x20, 0x4e, 0xcd, 0x4b, 0x8c, 0x39, 0x99, 0xf8, 0x53, 0xd3, 0x82, 0xf4, 0x1, 0x94, 0xda, 0x39, 0xad, 0x3f, 0xd, 0xb4, 0xf7, 0xad, 0x54, 0xaf, 0xc2, 0x88, 0xc9, 0x56, 0x46, 0xae, 0x97, 0xb9, 0x3c, 0xbd, 0x13, 0xd5, 0x55, 0xf2, 0xe7, 0xa7, 0xc2, 0x75, 0x5f, 0xe7, 0x1b, 0x5, 0x48, 0xd5, 0x62, 0x9d, 0x6d, 0x4b, 0x8f, 0x56, 0x38, 0x91, 0x57, 0x3d, 0xee, 0x54, 0x46, 0xa1, 0x6f, 0x73, 0x6c, 0xdb, 0xaf, 0x63, 0xed, 0x95, 0xa2, 0x9d, 0x53, 0xa2, 0x2b, 0xd8, 0x8e, 0x72, 0x77, 0x2f, 0x6a, 0x10, 0xd5, 0xd8, 0xb6, 0x6a, 0x8f, 0xf1, 0x2b, 0xd2, 0x86, 0x39, 0x13, 0xb1, 0xe8, 0xc4, 0x57, 0x27, 0x72, 0xae, 0x55, 0x0, 0xa1, 0xe0, 0x14, 0xae, 0x57, 0xad, 0x72, 0xcd, 0x98, 0x5d, 0xb, 0x2d, 0x48, 0xd7, 0x44, 0x8f, 0xe8, 0xaa, 0x89, 0xab, 0x2b, 0x85, 0xeb, 0x8f, 0x58, 0xd7, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x7, 0xff, 0xd9").Split(", ").Select(Function(x) Byte.Parse(x)).ToArray()

    jpeg

    nCdy, 26 Ноября 2010

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

    −102

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    flagnum=Isnumeric(pSum$) 'сумма к погашению
    If flagnum=False Then
    	If Instr(pSum$,",")=0 Then
    		flagnum1$=Strleft(pSum$,".")
    		flagnum2$=Strrightback(pSum$,".")
    		pSum$=flagnum1$&","&flagnum2$
    	Else
    		flagnum1$=Strleft(pSum$,",")
    		flagnum2$=Strrightback(pSum$,",")
    		pSum$=flagnum1$&"."&flagnum2$
    	End If
    End If

    LotusScript
    Преобразования строкового представления числа в число. При входе "0" на выходе строка ".", которая пытается безусловно быть преображена в число.

    Dimly, 25 Ноября 2010

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

    −93

    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
    Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click
    
            RadioButton1.Checked = False
            RadioButton2.Checked = False
            RadioButton3.Checked = False
            RadioButton4.Checked = False
            RadioButton5.Checked = False
            RadioButton6.Checked = False
            RadioButton7.Checked = False
            RadioButton8.Checked = False
            RadioButton9.Checked = False
            RadioButton10.Checked = False
    
            RadioButton11.Checked = False
            RadioButton12.Checked = False
            RadioButton13.Checked = False
            RadioButton14.Checked = False
            RadioButton15.Checked = False
            RadioButton16.Checked = False
            RadioButton17.Checked = False
            RadioButton18.Checked = False
            RadioButton19.Checked = False
            RadioButton20.Checked = False
    
            RadioButton21.Checked = False
            RadioButton22.Checked = False
            RadioButton23.Checked = False
            RadioButton24.Checked = False
            RadioButton25.Checked = False
            RadioButton26.Checked = False
            RadioButton27.Checked = False
            RadioButton28.Checked = False
            RadioButton29.Checked = False
            RadioButton30.Checked = False
    
            RadioButton31.Checked = False
    
            RadioButton33.Checked = False
            RadioButton34.Checked = False
            RadioButton35.Checked = False
            RadioButton36.Checked = False
            RadioButton37.Checked = False
            RadioButton38.Checked = False
            RadioButton39.Checked = False
            RadioButton40.Checked = False
            RadioButton41.Checked = False
            RadioButton44.Checked = False
    
            Button1.Enabled = True
            Panel5.Visible = True
            Panel7.Visible = False
            Panel3.Visible = False
            Panel4.Visible = False
            Panel6.Visible = False
            Panel8.Visible = False
            Panel10.Visible = False
            Panel2.Visible = False
            Panel14.Visible = False
            Panel16.Visible = False
            Panel1.Visible = False
    
    
        End Sub

    А вот так кодят ценные специалисты, работающие за неплохие деньги в столичных ВУЗах .

    non_def, 23 Ноября 2010

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

    −103

    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
    '==========================================================================
                'обновляю таблицу okFIO
                lcSQl = "UPDATE okFIO SET"
                If Not (Me.DS_ExportFIO.okFIO.Rows(0)!dateBegin Is System.DBNull.Value) Then
                    lcSQl &= " dateBegin = '" & Format(Me.DS_ExportFIO.okFIO.Rows(0)!dateBegin, "yyyyMMdd") & "'"
                End If
                If Not (Me.DS_ExportFIO.okFIO.Rows(0)!Prim Is System.DBNull.Value) Then
                    lcSQl &= ", Prim = '" & Me.DS_ExportFIO.okFIO.Rows(0)!Prim.ToString & "'"
                End If
               If Not (Me.DS_ExportFIO.okFIO.Rows(0)!oldFam Is System.DBNull.Value) Then
                    lcSQl &= ", oldFam = '" & Me.DS_ExportFIO.okFIO.Rows(0)!oldFam.ToString & "'"
                End If
                'If Not (Format(Me.DS_ExportFIO.okFIO.Rows(0)!dateFill.ToString, "yyyyMMdd")) = "" Then
                '    lcSQl &= ", dateFill = " & Format(Me.DS_ExportFIO.okFIO.Rows(0)!dateFill.ToString, "yyyyMMdd") & ""
                'End If
                If Not (Me.DS_ExportFIO.okFIO.Rows(0)!FIOR Is System.DBNull.Value) Then
                    lcSQl &= ", FIOR = '" & Me.DS_ExportFIO.okFIO.Rows(0)!FIOR.ToString & "'"
                End If
                If Not (Me.DS_ExportFIO.okFIO.Rows(0)!FIOD Is System.DBNull.Value) Then
                    lcSQl &= ", FIOD = '" & Me.DS_ExportFIO.okFIO.Rows(0)!FIOD.ToString & "'"
                End If
    
                ......
    
                If Not (Me.DS_ExportFIO.okFIO.Rows(0)!isSoprPF Is System.DBNull.Value) Then
                    lcSQl &= ", isSoprPF = " & Me.DS_ExportFIO.okFIO.Rows(0)!isSoprPF.ToString & ""
                End If
                If Not (Me.DS_ExportFIO.okFIO.Rows(0)!isReadyFotoPC Is System.DBNull.Value) Then
                    lcSQl &= ", isReadyFotoPC = " & Me.DS_ExportFIO.okFIO.Rows(0)!isReadyFotoPC.ToString & ""
                End If
                If Not (Me.DS_ExportFIO.okFIO.Rows(0)!isReadySignPC Is System.DBNull.Value) Then
                    lcSQl &= ", isReadySignPC = " & Me.DS_ExportFIO.okFIO.Rows(0)!isReadySignPC.ToString & ""
                End If
                If Not (Me.DS_ExportFIO.okFIO.Rows(0)!SNILS Is System.DBNull.Value) Then
                    lcSQl &= ", SNILS = '" & Me.DS_ExportFIO.okFIO.Rows(0)!SNILS.ToString & "'"
                End If
                If Not (Me.DS_ExportFIO.okFIO.Rows(0)!idPrivilege Is System.DBNull.Value) Then
                    lcSQl &= ", idPrivilege = " & Me.DS_ExportFIO.okFIO.Rows(0)!idPrivilege.ToString & ""
                End If
                lcSQl &= " WHERE(id = " & Me.idFIO & ")"
                myCommand = New SqlClient.SqlCommand(lcSQl, myConn)
                myCommand.CommandTimeout = 0
                myCommand.ExecuteNonQuery(

    И так далее... всего около 150ти строк кода (весь сюда запихнуть не могу) на формирования SQL-запроса.

    HellMaster_HaiL, 18 Ноября 2010

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

    −154

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    Public appWorld As Excel.Application
    Public wbWorld As Excel.Workbook
    Sub Setup() 
    On Error Resume Next 'ignore errors
    Set appWorld = GetObject("Excel.Application")
    If Err.Number <> 0 Then
    Set appWorld = CreateObject("Excel.Application") 'run it
    End If
    Err.Clear
    End Sub

    свиснул с бигресорс

    TEEN, 18 Ноября 2010

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

    −101

    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
    Dim lcIsCheck As Boolean = False
    
            Dim lcImages As DS_ExportFIO.sdImageRow = Me.DS_ExportFIO1.sdImage.Rows(0)
    
            If lcImages!Photo Is DBNull.Value Then
    
                lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)
    
            Else
    
                lcIsCheck = True
    
            End If
    
            If lcImages!PhotoIshodn Is DBNull.Value Then
    
                lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)
    
            Else
    
                lcIsCheck = True
    
            End If
    
            If lcImages!Sign Is DBNull.Value Then
    
                lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)
    
            Else
    
                lcIsCheck = True
    
            End If
    
            If lcImages!SignIshod Is DBNull.Value Then
    
                lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)
    
            Else
    
                lcIsCheck = True
    
            End If
    
            Return lcIsCheck

    хм... даже не знаю, как окоментить =)

    HellMaster_HaiL, 15 Ноября 2010

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

    −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
    Public Class Form1...
    
    Dim isClicked as Integer = false
    
    End class
    
    if isClicked = true then
    me.left = mouseposition.x - Me.width / 2
    me.top = mouseposition.y - me.height / 2
    end if
    
    if isClicked = false Then
    isClicked = true
    else
    isClicked = false
    end if...

    Код не мой... Но integer в виде false очень улыбнул ))) да собственно говоря и не только он )))

    psyhco1219, 31 Октября 2010

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

    −84

    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
    If Not CheckX Then Goto 1
        For i = 0 to USecX
    	Goto 2
    1:
        For i2 = 0 to USecY
    2:
      	...
    	If CheckX Then Goto 3
        Next
        If Not CheckX then Goto 4
    3:
        Next
    4:

    Как-то потребовалось выполнить немалый участок кода, но в двух разных случаях нужно было использовать два разных фора. В отдельную процедуру было очень неудобно выносить (пришлось бы передавать слишком много переменных), так что пришлось сделать этот... свичджампинг форов :)

    DragDen, 28 Октября 2010

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