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)