1. 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)
  2. 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)
  3. 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)
  4. 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)
  5. 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)
  6. 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)
  7. 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)
  8. VisualBasic / Говнокод #2026

    −129.8

    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
    For intAtts As Integer = 5 To strParams.Length - 1
                Select Case (intAtts + 1) Mod 3
                    Case 0
                        '--- Set where to find the attachments
                        Select Case strParams(intAtts).ToUpper
                            Case "TASKVIEW"
                                strAttach = CType(Me.Parent, ctlTaskViewTemplate).ctlDocNavigator.ContainerID.ToString & ","
                            Case "WORKITEM"
                                strAttach = WorkItem.WorkItemContainer.ToString & ","
                            Case "CASE"
                                strAttach = BFECase.CaseContainerID.ToString & ","
                        End Select
                    Case 1
                        '--- Set the relative path of where to find the attachments
                        strAttach = strAttach & strParams(intAtts) & ","
                    Case 2
                        '--- Set the type of document used to find the attachments
                        strAttach = strAttach & strParams(intAtts)
                        arrAttachments.Add(strAttach)
                        strAttach = ""
                End Select
            Next intAtts

    вот и попробуй пойми что в этих массивах по какому принципу лежит

    6istik, 22 Октября 2009

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

    −129

    1. 1
    Dim datestart As DateTime = New DateTime(DateTime.Now.Year, DateTime.Now.Month, DateTime.Now.Day)

    очередная индусятина

    xeonix, 22 Октября 2009

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

    −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
    ''' <summary>
    ''' Представляет обект RSS-новость
    ''' </summary>
    ''' <remarks></remarks>
    Public Class NewsItems
    ...
        Public Property AgencyTitle() As String
            Get
                Return Me._agencyTitle
            End Get
            Set(ByVal value As String)
                Me._agencyTitle = value
            End Set
        End Property
    ...
        ''' <summary>
        ''' Вставка региональной новости в БД
        ''' </summary>
        ''' <param name="Lang">язык</param>
        ''' <param name="DateFormat">формат даты в рассылке</param>
        ''' <param name="region">ID региона</param>
        ''' <remarks></remarks>
        Public Sub AddNewRegion(ByVal Lang As String, ByVal DateFormat As String, ByVal region As Integer)
            If AgencyTitle.StartsWith("зБЪЕФБ.Ru") Then
                Exit Sub
            End If
    ...
        End Sub
    ...
    End Class

    заставили разбираца с проектом на ВБ...
    и вот шо я там нашол.
    ...ну конешно... я бы тоже испугался новостного агенства с таким названием )))

    xeonix, 13 Октября 2009

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