1. 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)
  2. 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)
  3. 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)
  4. 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)
  5. 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)
  6. 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

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

    −99

    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
    10 DEFM 13:VAC
    20 PRINT " Генератор."
    30 FOR N=0 TO 6:Z$(N)="00000":NEXT N
    40 CSR 0,:FOR N=6 TO 0 STEP -1:FOR M=1 TO 5
    50 IF GETC(Z$(N),M)="1";DRAW M-1,N
    60 NEXT M:NEXT N
    70 DRAW X,Y:K$=KEY
    80 DRAWC X,Y:IF K$="" THEN 70
    90 IF GETC(Z$(Y),X+1)="1";DRAW X,Y
    100 IF K$="8";IF Y<6;Y=Y+1:GOTO 70
    110 IF K$="2";IF Y>0;Y=Y-1:GOTO 70
    120 IF K$="4";IF X>0;X=X-1:GOTO 70
    130 IF K$="6";IF X<4;X=X+1:GOTO 70
    140 IF K$=" " THEN 200
    150 IF K$="I" THEN 270
    160 IF K$="C" THEN 30
    170 IF K$="D" THEN 300
    175 IF K$="U" THEN 350
    180 IF K$="P" THEN 400
    185 IF K$=CHR 123 THEN 450
    190 GOTO 70
    200 A$="1"
    210 IF GETC(Z$(Y),X+1)="1";A$="0"
    220 $=Z$(Y)
    230 B$=MID(1,X)
    240 C$=MID(X+2,4-X)
    250 Z$(Y)=B$+A$+C$
    260 GOTO 70
    270 FOR N=0 TO 6:B$="":FOR M=1 TO 5
    280 IF GETC(Z$(N),M)="0";B$=B$+"1":GOTO 290
    285 B$=B$+"0"
    290 NEXT M:Z$(N)=B$:NEXT N:GOTO 40
    300 B$=Z$
    310 FOR N=0 TO 5
    320 Z$(N)=Z$(N+1)
    330 NEXT N
    340 Z$(6)=B$
    345 GOTO 40
    350 B$=Z$(6)
    360 FOR N=6 TO 1 STEP -1
    370 Z$(N)=Z$(N-1)
    380 NEXT N:Z$=B$
    390 GOTO 40
    400 FOR N=0 TO 6
    410 Z$(N+7)=Z$(N)
    420 NEXT N
    430 FOR N=0 TO 6
    440 Z$(N)=Z$(13-N)
    445 NEXT N:GOTO 40
    450 B$="":FOR N=6 TO 0 STEP -1:S=0:L=1
    460 FOR M=5 TO 1 STEP -1
    470 S=S+VAL GETC(Z$(N),M)*L
    475 L=L*2
    480 NEXT M
    490 IF S<10; B$=B$+CHR(48+S):GOTO 510
    500 B$=B$+CHR(55+S)
    510 NEXT N
    520 CSR 2:PRINT "C=";B$;
    530 GOTO 70

    Не VisualBasic, но тоже Бейсик. Программа для микрокомпьютера Электроника МК-85М. Писал ее (и еще много других) лет 10 назад.
    Подробнее о назначении программы в комментарии.

    Arigato, 16 Октября 2010

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

    −97

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object, ByVal ParmName25 As String, ByVal ParmValue25 As Object, ByVal ParmName26 As String, ByVal ParmValue26 As Object, ByVal ParmName27 As String, ByVal ParmValue27 As Object, ByVal ParmName28 As String, ByVal ParmValue28 As Object, ByVal ParmName29 As String, ByVal ParmValue29 As Object)
    378: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18, ParmName19, ParmValue19, ParmName20, ParmValue20, ParmName21, ParmValue21, ParmName22, ParmValue22, ParmName23, ParmValue23, ParmName24, ParmValue24, ParmName25, ParmValue25, ParmName26, ParmValue26, ParmName27, ParmValue27, ParmName28, ParmValue28)
     PRM(29) = New MySqlParameter(ParmName29, ParmValue29)
    CMD.Parameters.Add(PRM(29))
     End Sub

    бывшие сотрудники, писавшие одно окно продолжают радовать лулзами. недавно встретил резюме сослуживца максима прохорова. Приведённым выше примером он работает с MySQL
    более подробное описание поциента и срач с ним http://ursusalbus.livejournal.com/11418.html
    сайты полные говна (сферического и эталонного в вакууме, ржач на пол дня) vb-net.ru asp-net.ru

    ursus, 08 Октября 2010

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

    −153

    1. 1
    2. 2
    3. 3
    10 IF 256 > 255 THEN PRINT "Pozdravlyaem s Dnem programmista!" : GOTO 40
    30 PRINT "Bugagaga! Ktulhu woke up!!"
    40 END

    Поздравление с днём программиста от HH.ru. Впрочем, там многие хороши: http://kazan.hh.ru/news.xml?id=929

    rishatbitmaster, 14 Сентября 2010

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

    −100

    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
    Case vIP(1)
             Case "1"  v_empirumserver="evempr"
    ....
      ещё где-то 100 таких-же строчек
    ....
             Case "160"    v_empirumserver = "svcf1501"
             Case "161"
                Select Case vIP(2)
                	Case "17"
    		End Select
    		    v_empirumserver = "svnrw040"          
             Case "163"
    		    v_empirumserver = "svrg5008" 
    ....
      ещё где-то 100 таких-же строчек
    ....
      End Select

    Только что увидел.....
    Это кусок с скрипта входу в систему на корпоративном домене.
    убило

    Select Case vIP(2)
    зачем оно здесь????

    adli__82, 23 Августа 2010

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