VisualBasic — Говнокод.ру

VisualBasic / Говнокод #5201

−101

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74

Combo1.AddItem "RaZeR", 0
Combo1.AddItem "Serg", 1
Combo1.AddItem "Nikton", 2
Combo1.AddItem "Raider", 3
Combo1.AddItem "Andrew_18", 4
Combo1.AddItem "Gnum", 5
Combo1.AddItem "Iron Man", 6
Combo1.AddItem "Anakin", 7
Combo1.AddItem "Nuparu", 8
Combo1.AddItem "Deleted", 9
Combo1.AddItem "LEGOлас", 10
Combo1.AddItem "Kit Fisto", 11
Combo1.AddItem "Banky", 12
Combo1.AddItem "Пазитифффный", 13
Combo1.AddItem "Генерал Кеноби", 14
Combo1.AddItem "Диманок Филин", 15
Combo1.AddItem "Дракон", 16
Combo1.AddItem "DJ Sim", 17
Combo1.AddItem "Obi-Van", 18
Combo1.AddItem "Виталя", 19
Combo1.AddItem "ЛюкСкайуокер", 20
Combo1.AddItem "Смегорик", 21
Combo1.AddItem "KAPITAN REX", 22
Combo1.AddItem "Вячеслав", 23

Combo2.AddItem "RaZeR", 0
Combo2.AddItem "Serg", 1
Combo2.AddItem "Nikton", 2
Combo2.AddItem "Raider", 3
Combo2.AddItem "Andrew_18", 4
Combo2.AddItem "Gnum", 5
Combo2.AddItem "Iron Man", 6
Combo2.AddItem "Anakin", 7
Combo2.AddItem "Nuparu", 8
Combo2.AddItem "Deleted", 9
Combo2.AddItem "LEGOлас", 10
Combo2.AddItem "Kit Fisto", 11
Combo2.AddItem "Banky", 12
Combo2.AddItem "Пазитифффный", 13
Combo2.AddItem "Генерал Кеноби", 14
Combo2.AddItem "Диманок Филин", 15
Combo2.AddItem "Дракон", 16
Combo2.AddItem "DJ Sim", 17
Combo2.AddItem "Obi-Van", 18
Combo2.AddItem "Виталя", 19
Combo2.AddItem "ЛюкСкайуокер", 20
Combo2.AddItem "Смегорик", 21
Combo2.AddItem "KAPITAN REX", 22
Combo2.AddItem "Вячеслав", 23

Combo3.AddItem "RaZeR", 0
Combo3.AddItem "Serg", 1
Combo3.AddItem "Nikton", 2
Combo3.AddItem "Raider", 3
Combo3.AddItem "Andrew_18", 4
Combo3.AddItem "Gnum", 5
Combo3.AddItem "Iron Man", 6
Combo3.AddItem "Anakin", 7
Combo3.AddItem "Nuparu", 8
Combo3.AddItem "Deleted", 9
Combo3.AddItem "LEGOлас", 10
Combo3.AddItem "Kit Fisto", 11
Combo3.AddItem "Banky", 12
Combo3.AddItem "Пазитифффный", 13
Combo3.AddItem "Генерал Кеноби", 14
Combo3.AddItem "Диманок Филин", 15
Combo3.AddItem "Дракон", 16
Combo3.AddItem "DJ Sim", 17
Combo3.AddItem "Obi-Van", 18
Combo3.AddItem "Виталя", 19
Combo3.AddItem "ЛюкСкайуокер", 20
Combo3.AddItem "Смегорик", 21
Combo3.AddItem "KAPITAN REX", 22
Combo3.AddItem "Вячеслав", 23

VB6, заполнение трёх комбо-боксов одинаковыми пунктами. А если бы комбобоксов было 20?

RaZeR, 10 Января 2011

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

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

−103

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
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)

VisualBasic / Говнокод #5198

−102

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
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)

VisualBasic / Говнокод #4759

−109

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)

VisualBasic / Говнокод #4743

−102

01
02
03
04
05
06
07
08
09
10
11
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)

VisualBasic / Говнокод #4728

−93

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
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)

VisualBasic / Говнокод #4674

−103

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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)

VisualBasic / Говнокод #4672

−154

01
02
03
04
05
06
07
08
09
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)

VisualBasic / Говнокод #4639

−101

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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)

VisualBasic / Говнокод #4493

−83

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
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)

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

VisualBasic / Говнокод #5201

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

VisualBasic / Говнокод #5198

VisualBasic / Говнокод #4759

VisualBasic / Говнокод #4743

VisualBasic / Говнокод #4728

VisualBasic / Говнокод #4674

VisualBasic / Говнокод #4672

VisualBasic / Говнокод #4639

VisualBasic / Говнокод #4493